| נשלח בתאריך: 02 August 2005 בשעה 21:32 | | IP רשוּם
|
|
|
|
ל- Nameless (דרך אגב, תירשם לפורום):
הנה דוגמא של keygen עם חוקיות, בעזרת הפונקציה rnd:
קוד:
|
Public Class Form1
Private Sub MaskedTextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MaskedTextBox1.KeyPress
e.KeyChar = UCase(e.KeyChar)
End Sub
Private Shared Function Generate()
Dim MyValue
Dim I As Integer
Dim upperbound = 9
Dim lowerbound = 2
Dim TempSerial
MyValue = CInt(Int((upperbound - lowerbound + 1) * Rnd() + lowerbound))
TempSerial = CInt(Int((9 * Rnd()) + 1))
MyValue &= CovertChar( CInt(Int((26 * Rnd()) + 1)))
For I = 1 To 12
TempSerial = CInt(Int((9 * Rnd()) + 1))
If CInt(Int((9 * Rnd()) + 1)) = TempSerial Then
MyValue &= CovertChar( CInt(Int((26 * Rnd()) + 1)))
Else
MyValue &= TempSerial
End If
Next
I = 0
Do While Not (I + Mid(MyValue, 1, 1) > 10)
I = CInt(Int((9 * Rnd()) + 1))
Loop
MyValue &= I
Return MyValue
End Function
Private Shared Function CovertChar(ByVal numChr)
Select Case numChr
Case Is > 1 And numChr < 26
'MsgBox(90 - 65)
'65 & 90
'Dim TMPCHR As String
'TMPCHR = Chr(numChr() + 64)
'Return TMPCHR
Return Chr(numChr + 64)
End Select
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'This is "Generate" Button
Me.MaskedTextBox1.Text = Generate()
Me.MaskedTextBox1.Select()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Label3.Text = Text
End Sub
End Class |
|
|
הנה, הצלחתי. החוקיות של הסריאלים שהתוכנה יוצרת היא:
1. 18 תווים.
2. תו ראשון + אחרון גדול מ- 10.
3. תו שני יהיה תמיד אות.
סריאל חוקי לדוגמא: 4Z7DA-59FZ1-197H9
אני יודע שזה נראה קל אבל הייתי צריך לעבוד על זה.
__________________
? Why to crack for
|
נושאים פעילים
רשימת משתמשים
חיפוש
עזרה
הרשמה
התחברות
UnderWarrior Forums : 
תיכנות
