|
||
2001 |
|
2001 |
|
||
About EyeBatch 1.2.2 & SoftGuard6 EyeBatch is a VB program that uses SoftGuard6 protection. Now we learn how to keygen it and how to fool SoftGuard6 protection. This is an hard lesson, so keep your eyes wide open. |
||
In the cold of the night, in the warmth of the breeze, |
||
|
|
|
GRANDEM MALIGNITATEM COGNOSCENDO |
Introduction |
I wrote Hard Lesson & Medium Skill Level. Anyway I'm not fool. I was meant to you that today we will learn two things: for first we will learn how to keygen EyeBatch, & then how SoftGuard6 works. We will use a cracking application too, the SoftGuard Keygens' Template, that I coded a while ago. Happy cracking ;)
Required Tools |
- NuMega SmartCheck 6.03 (You can find it on http://www.crackstore.com/) - SoftGuard Keygens' Template (You can find it on http://www.skizolostsoul.da.ru/)
Program's URL |
I forgot :(
The Essay |
|
The VB Keygen |
Private Sub ShowKey() MASK$ = "####-&&&&-^*^*" EncryKey$ = "a2eh?#Rm-vv0tW&#f2wKX_" Nick = Text1.Text If Len(Nick) < 2 Or Len(Text2.Text) < 1 Then Text3.Text = "": Exit Sub For C = 1 To Len(Nick) If Asc(Mid$(Nick, C, 1)) < &H20 Or Asc(Mid$(Nick, C, 1)) > &H7E Then Nick = Mid$(Nick, C - 1, 1) + Mid$(Nick, C + 1, 1) End If Next If Len(Nick) < 2 Then Text3.Text = "": Exit Sub Nick = Mid$(Nick, 1, Int(Len(Nick) / 2)) + Mid$(Nick, Int(Len(Nick) / 2 + 2)) Lunghezza = Len(Nick) For C = Len(Nick) / 2 To 1 Step -1 ScrambledNick = ScrambledNick + Right$(Nick, 1) + Left$(Nick, 1) Nick = Mid$(Nick, 2, Len(Nick) - 2) Next If Len(ScrambledNick) < Lunghezza Then ScrambledNick = ScrambledNick + Mid$(Text1.Text, Len(Text1.Text) / 2, 1) End If For C = 1 To Len(ScrambledNick) Stringa$ = Stringa$ + LTrim$(Str$(Asc(Mid$(ScrambledNick, C, 1)))) Next For C = 1 To Len(EncryKey$) D = D + 1 If D > Len(Stringa$) Then D = D - Len(Stringa$) Temp = Asc(Mid$(Stringa$, D, 1)) Xor Asc(Mid$(EncryKey$, C, 1)) SecondaStringa$ = SecondaStringa$ + Chr$(Temp) Next For C = 1 To Len(Text2.Text) TerzaStringa$ = TerzaStringa$ + Trim$(Str$(Asc(Mid$(Text2.Text, C, 1)))) Next Stringa$ = "": D = 0 For C = 1 To Len(SecondaStringa$) D = D + 1 If D > Len(TerzaStringa$) Then D = D - Len(TerzaStringa$) Temp = Asc(Mid$(TerzaStringa$, D, 1)) Xor Asc(Mid$(SecondaStringa$, C, 1)) Stringa$ = Trim$(Temp) + Stringa$ Next D = 1 For C = 1 To Len(MASK$) Select Case Asc(Mid$(MASK$, C, 1)) Case 35 '# Number Mid$(MASK$, C, 1) = Mid$(Stringa$, D, 1) D = D + 1 Case 38 '& Letter Mid$(MASK$, C, 1) = Codice(Mid$(Stringa$, D, 2)) D = D + 2 Case 42 '* Small Letter Mid$(MASK$, C, 1) = LCase$(Codice(Mid$(Stringa$, D, 2))) D = D + 2 Case 94 '^ Capital Letter Mid$(MASK$, C, 1) = UCase$(Codice(Mid$(Stringa$, D, 2))) D = D + 2 End Select Next Text3.Text = MASK$ End Sub Private Function Codice(Par As String) As String 'SoftGuard's INT->CHAR conversion For C = Len(Par) To 1 Step -1 Char = Char + Mid$(Par, C, 1) Next If Char < 23 Then Char = Char + 100 If Char > 90 And Char < 97 Then Char = Char - 6 If Char > 22 And Char < 45 Then Char = Char + 42 If Char > 44 And Char < 64 Then Char = Char + 52 Codice = Chr$(Char) End Function Private Sub Text1_Change() ShowKey End Sub Private Sub Text2_Change() ShowKey End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) 'Only Digits If (KeyAscii >= 32 And KeyAscii < 48) Or KeyAscii > 57 Then KeyAscii = 0 End Sub
Final Notes |
Don't you feel better now? Well, I'm really happy... even if SoftGuard's users won't be very
happy to see this tutorial. There's explained a lot. Maybe not all, because SoftGuard can be
fully customized, but it shows what we need to know. If you need some explanation, feel free
to contact me. I'm hoping that this tutorial really helped you. Have fun
PEACE ON EARTH