"Keygen Nasıl Yazılır ?" |
|
|
|
|
|
Araçlar:
|
|
|
Herhalde hepiniz sıkıcı tek bytelık patchlerden softice ile serial bulmaktan sıkılmışsınızdır.Internetteki keygenleri görünce içiniz kesin cız ediyordur.Benim cız ederdi ve hala ediyor.İlk Phrozen Crew'in Winzip keygenini görünce acaip olmuştum.İsmini giriyosun seriali veriyo.Vaybe ne adamlar var :). Bende belli bir patch ve serial avlama aşamasından sonra sıkıldım ve keygen yazmayı öğrenmeye başladım.
İlk başlarda işler oldukça zordu.Hiç bir dil bilmiyordum ve karşımda bir sürü ASM kodu.Offf off deyip kaç kez vazgeçtim.Ama bir gün SummitPro'yu kırarken VB de bir keygen yazdım.Aslında oldukça basitti çünkü keygenin kodu zaten açıktı.Fakat bu beni acaip gaze getirdi.İki üç vb denemesinden sonra gördüm ki vb çok dandik bir dil.Tamam 1-2 dk da formu atıp program çalışıyo ama msvbvm*.dll ye ihtiyaç duyuyor.Oldukça yavaş çalışıyo vs..
Daha sonra delphiyi denedim.Delphinin idesi daha iyiydi.Hem birsürü componet felan vardı delphi ile de bir kaç tane keygen yazdım.Ama yine aynı problem vardı.50 K lık bir programın keygeni 150 K yer kaplıyordu.Bu yüzden son durağım olan ASM yi denemeye başladım.
Yeniden tekerleği keşfetmek yerine etrafta ASM keygen taslakları varmı diye aradım.Sonunda Quantico'nun sitesinde(quantico.tsx.org fakat kapalı şu an) bir hayli örnek buldum.Kodları incelemeye başladım.Hazır keygenler ile orjinal programların dissamble edilmiş halini karşılaştırdım.Bu şekilde olayın mantığını basit birkaç fonksiyonu ve apilerin kullanımını biraz öğrendim.Ondan sonra keygen yazmak basitti.Niye ? Çünkü tek yapmanız gereken keygen algosunu softice veya w32dasm ile bulmak bunu biraz düzenlemek ve assemble etmek.İşte bu yazıda size keygen yazmayı bir kaç örnekle anlatmaya çalışıcam.
|
|
Keygen yazabilmek için bazı asm kodlarını ve klasik bazı rutinleri bilmeniz gerekli.Burada size bir kaç komut ve rutini açıklamak istiyorum.Api leri öğrenmek için win32.hlp dosyasından faydalanabilirsiniz.
Bazı ASM komutları.Biliyorum çok az ama bunlar bize keygen yazmak için şimdilik yeter.
mov al, 25 ;al e 25 değerini ata mov byte ptr [402356],25 ; 402356 memory bölgesine 25i yaz. [ ] işareti memory demektir. push eax ; eaxi stack e sakla pop eax ; eaxi stack den al. lea eax,serial ; serialin olduğu memoryi eax a atar mov eax,offset serial ; yukarıdakiile aynı şey loop 4576 ;4576 daki işlemi ecx sayısı kadar yapar. cmp byte ptr [Serial],2D ; Serialin ilk byte'i 2D mi
Bazı döngüler ve rutinler.
Aşağıdaki rutinleri görünce artık direkt atlıycaksınız.Bunun gibi çok kullanılan rutinleri bilmeniz gerekli yoksa sürekli debug edersiniz.
Küçük Harfe Çevirme
nextletter: ; ECX = Çevrilecek stringi boyutu
MOV AL,[ESI] ; ESI = Çevrilecek string
CMP AL,41h ; A karakter de büyük mü ?
JB notupcase ; öyleyse zaten küçük harf
CMP AL,5Ah ;Z karakterden büyük mü ?
JA notupcase ; öyleyse zaten küçük harf
ADD AL,20h ; 20 ekle ve küçük harf yap
MOV [ESI],AL ;çevrilen değeri esiye tekrar yaz
notupcase:
INC ESI ;çevrilecek diğer karaktere geç
DEC ECX ;stringin boyunu bir azalt
TEST ECX,ECX ;ecx 0 mı yani bütün karakterlere bakıldı mı ?
JNZ nextletter ;başa dön
----------------------------------------------------------------------
Büyük Harfe Çevirme
nextletter: ; ECX = Çevrilecek stringi boyutu
MOV AL,[ESI] ; ESI = Çevrilecek string
CMP AL,61h ; a karakterden büyükmü ?
JB notlowcase ; öyleyse zaten büyük harf
CMP AL,7Ah ; z karakterden büyükmü ?
JA notlowcase ; öyleyse zaten büyük
SUB AL,20h ; 20 çıkar ve büyük harf yap
MOV [ESI],AL ;çevrilen değeri esiye tekrar yaz
notupcase:
INC ESI ;çevrilecek diğer karaktere geç
DEC ECX ;stringin boyunu bir azalt
TEST ECX,ECX ;ecx 0 mı yani bütün karakterlere bakıldı mı ?
JNZ nextletter ;başa dön
---------------------------------------------------------------------
String Kopyalama
mov esi, offset source
mov edi, offset destination
mov ecx, 45
rep movsb
Esiden ediye 45 byte kopyalama yapar.
-------------------------------------------------------------------
Edi de buluna bir stringin boyunun bulunması
mov edi offset mystring
mov ecx, 0FFFFFFFFh
xor eax, eax
repnz
scasb
not ecx
dec ecx ; ecx de şu an mystringin boyu var.
Bu kadarı bence şimdilik yeter.Daha fazlasını siz program kırdıkça kendiniz de bulabilirsiniz.Şimdi teker teker kıracağımız programlara geçelim
Flash 32 v3.10 http://www.logipole.com
Breakpoint nasıl koyulur felan onları hemen geçiyorum ve sizi keygenin algoritması ile başbaşa bırakıyorum.Olabildiğince açıklamaya çalışıcam.
:0041FCB6 8D542414 lea edx, dword ptr [esp+14]
:0041FCBA 8D442468 lea eax, dword ptr [esp+68]
:0041FCBE 52 push edx
* Possible StringData Ref from Data Obj ->"Flash 32"
|
:0041FCBF 6888604500 push 00456088
:0041FCC4 50 push eax
:0041FCC5 8D8C24B8060000 lea ecx, dword ptr [esp+000006B8]
* Possible StringData Ref from Data Obj ->"%s%s%s"
|
:0041FCCC 6854B34500 push 0045B354
:0041FCD1 51 push ecx
:0041FCD2 FFD3 call ebx ; First Name+Flash 32+Name şeklinde birleştir.
:0041FCD4 8DBC24C0060000 lea edi, dword ptr [esp+000006C0] ; Bunu debug edince göreceksiniz.
:0041FCDB 83C9FF or ecx, FFFFFFFF
:0041FCDE 33C0 xor eax, eax
:0041FCE0 83C414 add esp, 00000014
:0041FCE3 F2 repnz
:0041FCE4 AE scasb
:0041FCE5 F7D1 not ecx ; yukarıda söylediğimiz gibi bu boyut alma rutini.
:0041FCE7 2BF9 sub edi, ecx ;buraları tamamen geçebiliriz fazla bir önemi yok.
:0041FCE9 8D942494020000 lea edx, dword ptr [esp+00000294]
:0041FCF0 8BC1 mov eax, ecx
:0041FCF2 8BF7 mov esi, edi
:0041FCF4 8BFA mov edi, edx
:0041FCF6 C1E902 shr ecx, 02
:0041FCF9 F3 repz
:0041FCFA A5 movsd
:0041FCFB 8BC8 mov ecx, eax
:0041FCFD 8D842494020000 lea eax, dword ptr [esp+00000294]
:0041FD04 83E103 and ecx, 00000003
:0041FD07 F3 repz
:0041FD08 A4 movsb
:0041FD09 8A8C2494020000 mov cl, byte ptr [esp+00000294]
:0041FD10 84C9 test cl, cl
:0041FD12 741F je 0041FD33
* Referenced by a (U)nconditional or (C)onditional Jump at Address:
|:0041FD31(C)
| ; eax da şu an First Name+Flash 32+Name var
:0041FD14 80385F cmp byte ptr [eax], 5F ;karakter _ ?
:0041FD17 7503 jne 0041FD1C ; değilse devam et
:0041FD19 C60020 mov byte ptr [eax], 20 ;karakteri space e dönüştür
* Referenced by a (U)nconditional or (C)onditional Jump at Address:
|:0041FD17(C)
|
:0041FD1C 0FBE08 movsx ecx, byte ptr [eax] ; tek karakter al
:0041FD1F 334C2410 xor ecx, dword ptr [esp+10] ;esp+10 daki ile xor et
:0041FD23 81F1CE9A5713 xor ecx, 13579ACE ;bir daha xor
:0041FD29 40 inc eax ;diğer karaktere geç
:0041FD2A 894C2410 mov dword ptr [esp+10], ecx ;sonucu sakla
:0041FD2E 803800 cmp byte ptr [eax], 00 ;stringin sonuna geldikmi
:0041FD31 75E1 jne 0041FD14 ;başa dön
* Referenced by a (U)nconditional or (C)onditional Jump at Address:
|:0041FD12(C)
|
:0041FD33 8B442410 mov eax, dword ptr [esp+10] ;sonucu eax a yaz
:0041FD37 8D9424BC000000 lea edx, dword ptr [esp+000000BC]
:0041FD3E 35F0BD6824 xor eax, 2468BDF0 ;eax ı son kez xorla bizim serial burda
:0041FD43 52 push edx
:0041FD44 A308AA4600 mov dword ptr [0046AA08], eax
Şimdi keygenimizin mantığı şu; ilk başta FirstName+Flash 32+Name şeklinde bir string oluşturucaz.Program 14h(20) karakterden fazlasını almıyo o yüzden bunların boyutlarına dikkat edicez.Sonra yukarıdaki algo ile keygeni yazıcaz.Problem olan bir yer var o da esp+10 burada ne olduğunu bilmiyoruz.Softice ile debug edip oraya geldiğinizde ebp+10 yazarsanız.Data penceresinde ffffffff görürsünüz.
Son olarak keygen nasıl çalışıyo algoya bir bakalım.Program yukardıda söylediğim gibi ilk başta stringleri birleştiriyor.Daha sonra şu basit işlemi yapıyor.Karakter eğer _ ise bunu space yani 20h ile değiştiriyor yani Mr_Stop ile Mr Stop aynı seriali veriyor.Daha sonra her bir karakter ilk başta esp+10 daki değerler daha sonrada 13579ACE ile xor edilip saklanıyor.Bu işlem bütün karakterler için yapıldıktan sonra en son elde edilen değer bir de 2468BDF0 değeri ile xor ediliyor.Elde edilen değer desimale çevriliyor.Bu şekilde serial elde ediliyor.
Dikkat:Keygen yazarken ebp esp gibi şeyleri fazla kullanmayın.Bunun yerine değişken kullanın ve keygende geçen her bölgede ne olduğunu iyice analiz edin!!!
Bu kadar konuştuktan sonra işte size win32ASM de çalışan keygen kodu.
invoke GetDlgItemText, _hWin, EDIT_FNAME, ADDR szFName, 32h ;First Name i al ve sakla
cmp eax,0 ;isimde birşey varmı ?
jz @@err ;hata mesajını göster
cmp eax,14h ; boyut 20 karakterden fazla mı ?
ja @@err ;hata mesajını göster
invoke GetDlgItemText, _hWin, EDIT_NAME, ADDR szName, 32h ;Name'i al ve sakla
cmp eax,0 ;birşey var mı ?
jz @@err ;hata mesajı
cmp eax,14h ;boyut 20 den fazla
ja @@err1 ;hata mesajı
invoke szCatStr,ADDR szFName,ADDR magic ;ismin sonuna "Flash 32" ekle magic Flash 32 diye tanımlanacak.
invoke szCatStr,ADDR szFName,ADDR szName;bu na da Name'i ekle
mov edx, offset Key ;Key imiz ebp+10 da yazan değer yani ffffffffh
mov eax, offset szFName ;birleştirilmiş string
loc_0041FD14: ; Bundan sonrası aynen programdan kopya
cmp byte ptr [eax], 5Fh
jne loc_0041FD1C
mov byte ptr [eax], 20h
loc_0041FD1C:
movsx ecx, byte ptr [eax]
xor ecx, dword ptr [edx] ;burayı tabii ki değiştirdik ebp+10 biz de Key olduğu için
xor ecx, 013579ACEh
inc eax
mov dword ptr [edx], ecx
cmp byte ptr [eax], 00h
jne loc_0041FD14
mov eax, dword ptr [edx]
xor eax, 02468BDF0h
Gördüğünüz gibi olay çok da zor değil aslında.Size compile etmeniz için source kodu da veriyorum.Bunu compile edebilmeniz için Masm32 paketine ihtiyacınız olacak.Masm32 yi http://masm32.cjb.net adresinden indirebilirsiniz.Masm32 yi kurduğunuz harddiske zip paketini açın.QuickEdit ile flash32.asm dosyasını açın.Project Menüsünden Build All'u seçin.Program compile olacaktır.
Birinci keygeni yazmış olduk.Hazırsanız linke tıklayarak 2. keygene geçebilirsiniz.
|
|
Bu yazıda verdiğim keygen kodlarını kendinizinmiş gibi kullanmanız oldukça lame bir davranıştır.Eğer kullanacaksanız en azından keygenin bir yerinde bunu nerden aldığınızı belirtin.