Visual Basic programları diğer programlara nazaran biraz farklıdır.Bütün işlemler msvbvmxx.dll vasıtasıyla yapılır.Mesela vb6 ile bir messagebox göstermek isterseniz, msvbvm60 dllsinden rtcmsgbox 'ı çağırırsınız.Bu yüzden visual basic programları çok küçük olur.Çünkü bütün işlemler dll ile yapılır.Visual basic programları patch etmek de zordur.Çünkü exe de karşılaştırmaları bulmak çok zordur.Visual basic programları için en kuvvetliaraç Smartcheck tir.Bu yazıda smartcheck ile program nasıl kırılır size onu göstericem ve son olarak bir keygen kodluyacağız.Yazıyı okumadan önce smartcheck yazısını okumanız gerekmektedir.

Smartcheck yazısını okuduysanız.Ne yapacağımızı biliyorsunuz.Smartcheck'i açtık.Open ile jsit.exe yi açtık.Menüden Event reporting seçeneğini şimdilik kapatalım.Eğer bu açık olursa çok bekleriz.Çünkü bu şekilde programı baştan itibaren incelemek zorunda kalırız.Bize sadece kayıt ekranında olanlar lazım.Help/ register tuşuna basıyoruz.Çıkan menüde isim yerine Mister Stop serial yerine 12345678 yazıyoruz.Ok tuşuna basmadan önce smartcheck'e geçiyoruz.Event reporting i tekrar aktif hale getirip ok tuşuna basıyoruz.Eğer smartcheck hata bulup durursa acknowledge tuşuna bas.Program bize serialin hatalı olduğunu söyledği zaman smartcheckten programı end diyoruz.Şimdi smartcheck ' e geçiyoruz.Hata mesajını veya Mister Stop 'u arıyoruz.Şöyle birşey bulacaksınız..

txtPassword.Text  ; Seriali oku
Mid(VARIANT:ByRef String:"Mister S...",long:1,VARIANT:Integer:6  ; Isimde 6 karakter varmı ?
Len(String:"Mister S...") returns LONG:11
Mid(VARIANT:ByRef String:"Mister S...",long:3,VARIANT:Integer:1   ; 3.karakter
Len(String:"Mister S...") returns LONG:11
Mid(VARIANT:ByRef String:"Mister S...",long:11,VARIANT:Integer:1   ; son //
Mid(VARIANT:ByRef String:"Mister S...",long:1,VARIANT:Integer:1   ; ilk  //
Mid(VARIANT:ByRef String:"Mister S...",long:6,VARIANT:Integer:1   ; 6. karakter
LCase(VARIANT:String:"spMr")                                     ;Küçük harfe çevir
Mid(VARIANT:ByRef String:"spmr",long:1,VARIANT:Integer:1
Asc(String:"s") returns Integer:115  ;1. karakterin Ascii kodu
Mid(VARIANT:ByRef String:"spmr",long:2,VARIANT:Integer:1
Asc(String:"p") returns Integer:112  ;2. karakterin Ascii kodu
Mid(VARIANT:ByRef String:"spmr",long:3,VARIANT:Integer:1
Asc(String:"m") returns Integer:109  ;3. karakterin Ascii kodu
Mid(VARIANT:ByRef String:"spmr",long:4,VARIANT:Integer:1
Asc(String:"r") returns Integer:114  ;4. karakterin Ascii kodu
Hex(VARIANT:Long 225000)        ; 22500 sayısını hexe çevir.--> 36EE8
Len(String:"36EE8") returns LONG:5
Len(String:"36EE8") returns LONG:5 ; başına 2 sonuna js ekle
LCase(VARIANT:ByRef String:"236EE8js") ; küçük harfe çevir.--> 236ee8js
LCase(VARIANT:ByRef String:"12345678") ;bizim serial
Len(String:"Mister S...") returns LONG:11
MsgBox(VARIANT:String:"Password...",Integer 48, .....  ;Hata mesajı

Çok basit öyle değilmi.Buradan anlıyoruzki bizim serialimiz 236ee8js imiş.Şimdi biraz daha ileri gidip bir keygen kodluyalım.Hex(VARIANT:Long 225000) satırına kadar herşey anlaşılabiliyor.Program ismimizi okuyo en az 6 karaktermi diye bakıyor.Sonra 1. 3. 6. ve son karakterleri alıyor.Sonra bu karakterleri küçük harfe çeviriyor.Daha sonrada da bunların tek tek ascii değerlerini hesaplıyor.Şu 22500 ile bu ascii değerleri arasındaki ilişkiyi bulursak işi çözmüş olucaz.Ascii değerlerini bir toplıyalım bakalım ne olucak.115+112+109+114=450.Evet pek bir ilişki yok gibi.225000 ' i 450 ye bölelim bakalım ne bulucaz.225000/450=500 .Buradan şöyle bir sonuç çıkarabiliriz.Karakterlerin ascii değerlerini topliyor sonrada bu sonucu 500 ile çarpıyor.Emin olmak için bu işlemi bir de başka isim için yapalım.İsim yerine Turkish Scene yazıyoruz.Bu sefer elde ettiğimiz "rets" oluyor.Bunların ascii değerlerini toplıyalım.
114+101+116+115 = 446 bunu 500 ile çarpalım 218000.Smartcheck ' e bakıyoruz.Hex(VARIANT:Long 218000) yazıyor.Evet teorimizi doğruladık.Ben normalde programcılıktan felan anlamam.Eskiden vb ile keygen kodluyodum.Birde delphiyi deniyim dedim.Bu programın keygeni 300 k oldu.Sıkıştırma programı ile sıkıştırdım.Yine en az 130 k oldu.Visual basic ile kodluyunca ise en fazla 20 k yer tutuyor.Visual basic te tek sorun msvbvm60.dll ye ihitiyac duyması.Burdan anlıyoruzki delphide vb gibi lamer işi.Eheueh.Şimdi denemediğim 3 dil kaldı.VC, Cbuilder ve W32asm.Eğer bunlardan anlıyan bir vatandaş varsa bana bir email atsın.Delphi keygen ve kaynak kodunu buradan çekebilirsiniz.

Bu yazıda yazım yanlışları hatta bilgi hatası olabilir.Eğer bir yanlış bulursanız bana email atın düzeltmeye çalışırım.Bir programı eğer gerçekten kullanıyorsanız, programı satın almayı düşünün.Micro$oft programlarını - bırakın satın almayı - kullanmayı bile düşünmeyin.