Tutorial #SLS09
EyeBatch 1.2.2 (C) by AtalaSoft
25 JAN.
2001 
by Skizo
25 JAN.
2001 
* SkiZo^ Lost Soul * member of Da Breaker Crew *

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,
I'll come cracking around, with tutorials like this! ;-)

Skill Level
[  ] None - [  ] Easy - [X] Medium - [  ] Hard - [  ] Punishment 
Skill Level
HUMANITAS IUSTITIAM NOSQUAM RENUIT
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 


Here we go...
Run NuMega SmartCheck and load the EyeBatch. Use the settings showed in the tutorial SLS04, and click on Run. You will see the AtalaSoft logo and then a registration screen. Type Skizo as name, DBC as company name and then click on Register. A window pops up. Return in SmartCheck without clicking OK in the window, and stop the program execution



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

 


E-Mail: Skizo@DBC2000.ORG
URL: http://kickme.to/skizo