View Single Post
Old 18-06-2015, 08:56 AM   #2
User Profile
software07

 
software07's Avatar
 
Join Date: Sat Jan 2015
Posts: 18

Cấp bậc: 2 [cin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1team]
Sức sống: 0 / 49
Hoạt động: 6 / 478
Kinh nghiệm: 97%


Thanks: 4
Thanked 66 Times in 11 Posts
Default

Here is the Keygen. Since no one tried it I uploaded this.

ALGORITHM:
Quote:
Dim a As String
Dim b, c, d As Integer
l = 4 'Length

If a <> 9999 Then
a = Val(0 + x)
If Val(Right(a, 1)) = 9 Then
a = Val(a + 1)
x = x + 1
End If
If Len(a) < 4 Then
For i = 1 To 4 - Len(a)
a = "0" & a
Next i
End If

b = Val(StrReverse(a)) + 1010
c = a + b
d = Val(StrReverse(c)) + 1010


Text1.Text = a
Text2.Text = b
Text3.Text = c
Text4.Text = d
End If

x = x + 1
Quote:
Download Link: Click Here
  Reply With Quote