KeyGen Me No. 3 (Z1: Lesco Z2: )

Hi,

ich bins mal wieder... Hier ein neues Keygen, geproggt in VB wie man sieht! (An dem Symbol)

Art: KeyGenMe
Ziel 1: Keygen
Ziel 2: Serial
Erlaubtes: Keygen, Serial
Verbotenes: Patchen, Cracken, Hacken u.s.w.
Schwierigkeit: Keine Ahnung, eher leicht
Gepackt: Nein

Happy KeyGening! :D

Gruss
PMTheQuick 8)
 
geproggt in VB wie man sieht! (An dem Symbol)

Sieht man auch an dem widerlichen Code beim Disassemblen ;)

Das gibt aber teilweise "krumme" Zeichen, evtl. nicht richtig darstellbar:
Lesco
I`vfj
FoyieCj|l`

Lösungsweg: bpx __vbaStrCmp

Mit einem Keygen warte ich erstmal.
 
Original von PMTheQuick
Nicht schlecht aber es fehlt noch ein Code! Ohne denn ist es nicht gelöst!

Gruss
PMTheQuick ;)

Der wird doch angezeigt, sobald man die Serial eingibt, aber wenn den du unbedingt willst(warum auch immer)
(btw funktioniert deine Clipboard-Funktion bei mir nicht so ganz):
JcueiOfp`l@iocElzjf
 
Hi,
Keygen kann ich leider so nicht machen da mein ganzes Visual Studio sich in moment nicht starten lässt ich glaube so in etwa sollte das laufen:
Code:
 'Kegen for "Keygen Me No.3 by PMTheQuick"
Function GenerateSerialOne(Name As String) As String
Dim i As Integer, TMP As String, x As Byte, v As Integer

v = Len(Name)
For i = 1 To v
x = Asc(Mid(Name,i,1)
TMP = TMP & x Xor v
Next i

GenerateSerialOne = TMP
End Function

Function GenerateSerialTwo (Name As String ,Serial1 As String, As String) As String
Dim i As Integer, TMP As String, TMP2 As String, x As Byte, v As Integer

v = Len(Name) + Len(Serial1)
TMP = Name & Serial1
For i = 1 To v
x = Asc(Mid(TMP,1)
TMP2 = TMP2 & x Xor v
Next i

GenerateSerialTwo = TMP2
End Function
'Wie gesagt ich konnte den Code leider nicht testen !!!

xylon
 
Zurück
Oben