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 ;)

 - 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/)

 I forgot :(

 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

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