Kullanıcı:Mustafaavci25
Vikipedi, özgür ansiklopedi
Function f(x) f = x ^ 2 + 12125 * x - 13458 End Function
Private Sub Command1_Click()
If Text2.Text <> Hex(Text1.Text / 2 * 3) Then MsgBox "Yanlış Şifre girdiniz.", , "HATALI ŞİFRE" Else MsgBox "Şifre doğrulandı.", , "ŞİFRE" End If
End Sub
Private Sub Form_Load() Randomize Timer x = Rnd * 15785 Dim Parametre Parametre = Text2.Text Text1 = Int(f(x)) End Sub