Program isteği

F0r3v3r' Alıntı:

word listler için çok işe yarayabilir mesela adamın modem şifresi ali05645498458
isim + telefon numarası
sen programa
ali
05645498458
kızı/oğlu ismi
eşi
vb. bulduğunuz her bilgiyi yazarsınız gerekli birleşmeleri yapar ve şifreyi bulmak kolaylaşabilir.

Genişletmek için tıkla ...

Private Sub Check1_Click()
If Check1.Value = Checked Then
Timer1.Enabled = True

End If
End Sub

Private Sub Command1_Click()
Timer1.Enabled = False
Check1.Value = 0


End Sub

Private Sub Form_Load()
Check1.Caption = "Karıştır"
Text1.Text = ""
Command1.Caption = "Durdur"
Timer1.Interval = 75
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Randomize
Dim harfler(4) As String
Dim sayılar(4) As Integer
harfler(0) = Chr(Math.Round(Rnd() * (122 - 97) + 97))
harfler(1) = Chr(Math.Round(Rnd() * (122 - 97) + 97))
harfler(2) = Chr(Math.Round(Rnd() * (122 - 97) + 97))
harfler(3) = Chr(Math.Round(Rnd() * (122 - 97) + 97))
harfler(4) = Chr(Math.Round(Rnd() * (122 - 97) + 97))
sayılar(0) = Math.Round(Rnd() * (9 - 0) + 0)
sayılar(1) = Math.Round(Rnd() * (9 - 0) + 0)
sayılar(2) = Math.Round(Rnd() * (9 - 0) + 0)
sayılar(3) = Math.Round(Rnd() * (9 - 0) + 0)
sayılar(4) = Math.Round(Rnd() * (9 - 0) + 0)
Text1.Text = harfler(0) & harfler(1) & harfler(2) & harfler(3) & harfler(4) & sayılar(0) & sayılar(1) & sayılar(2) & sayılar(3) & sayılar(4)
End Sub

Genişletmek için tıkla ...

deadrow23' Alıntı:

Hocam belki işinize yarar;

Bunu internetten buldum ve biraz üzerinde oynadım.
1 Text1,1 command buton,1 timer ve 1 tane checkbox ekleyin hocam...(Bu arada hocam timerin intervalını 500 yaparsanız daha yavaş üretir fakat şifrelerin tümünü görürsünüz hocam...)

Genişletmek için tıkla ...

Çok teşekkürler deneyeceğim

// Malesef dediğim bu değil. bu rastgele harf-rakam üretiyor. benim istediğim: benim girdiğim harf ve rakamları rastgele sıralaması. :RpS_huh: