Vb6 pin puk sorgulama

'eqwedelly

Üye
16 Ocak 2011
240
0
TÜRKİYE
Bu kodları değerlendirebilirsiniz amaç pin puk yanlış doğru mu değil mesele burası değil kodu öğrenip daha güzel yerlerde kullanma askerdeyim direk proje atamıyorum

Vb6 yı acın forma bir buton ekleyin ve butona bu kodu ekleyin.


Kod:
Dim pin As Integer
Dim puk As Integer
Dim tekrar As Integer
tekrar = 0
pin = InputBox("pin numaranızı giriniz")
Do Until pin = "1995"
tekrar = tekrar + 1
If tekrar = 3 Then
MsgBox "deneme hakkın doldu bile"
Exit Do
End If
MsgBox "yanlıs pin girdiniz lutfen tekrar gırınız"
pin = InputBox("pin giriniz")
If pin = 1995 Then
End
End If
Loop
tekrar = 0
puk = InputBox("puk giriniz")
Do Until puk = "1357"
tekrar = tekrar + 1
If tekrar = 3 Then
MsgBox "uzgunuz sisteminiz bloke olmuştur"
End
Exit Do
End If
MsgBox "yanlıs puk numarası girdiniz"
puk = InputBox("puk giriniz")
If puk = 1357 Then
End
End If
Loop
 
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.