"... Ne dusman ne dost incitmez ise seni, Ne kucumser ne buyutursen hemcinsini, Ve bilirsen her dakikanin degerini, Butun dunya ve nimetlerini senin olmus bulursun, Bundan daha fazlasi var oglum, Adam olursun."

VB ile yazilmis. Programi Smartcheck ile yukleyelim. “amois”, “fb” ve “1907” degerlerini girip, hata mesaji cikinca Smartcheck’den “End” ile programi kapatalim.

Len returns LONG 5                      <- “amois” <- Adiniz
Long(5)-> Integer(5)                    <- Ad uzunlugu = 5
Mid
Asc returns Integer 97                  <- a
Mid
Asc returns Integer 109                 <- m
Mid
Asc returns Integer 111                 <- o
Mid
Asc returns Integer 105                 <- i
Mid
Asc returns Integer 115                 <- s
Len returns LONG 2                      <- “fb” <- Soyadiniz
Long(2)-> Integer (2)                   <- Soyadi uzunlugu = 2
Mid
Asc returns Integer 102                 <- f
Mid
Asc returns Integer 98                  <- b
Len returns LONG 2                      <- Ad uzunlugu
Len returns LONG 5                      <- Soyad uzunlugu
Double (105.286) -> Integer (105)       <- ??
Ucase                                   <- Buyuk harfe cevirme
Integer (737)-> String ("737")          <- ??
Integer(105)-> String("105")            <- ??
Integer(?) -> String ("?")              <- Sabit bir deger, kendiniz bulun.
Hex                                     <- Hex’e cevir
MsgBox                                  <- Hata Mesaji

Nasil olustugunu bilmedigimiz 2 deger var, 737 ve 105.286. Daha sonra, 737 & 105.286 sayisinin integer kismi & sabit bir sayi birleserek 737105? sayisini olusturuyor. Bu sayi da Hexedecimal’e cevrilerek gecerli serial oluyor. Detaylari SoftIce ile debug ederek gorebilirsiniz.

Gelelim 737 ve 105.286 sayilarinin nasil hesaplandigina. Yine, SoftIce ile debug ederek detayli bir sekilde gorebiliriz. Fakat, birazcik incelersek SmartCheck de tek basina yeterli.

a m o i s   -> 97 + 109 + 111 + 105 + 115 = 537
f b         -> 102 + 98 = 200

-> 537 + 200 = 737 <- birinci deger

105.286 degerinin hesaplanmasindan hemen once Ad & Soyad uzunluklari tekrar gundeme gelmis.

Ad uzunlugu + Soyad uzunlugu -> 5 + 2 = 7 -> 737 / 7 = 105.28571 <- ikinci deger
 

“amois” ve “fb” icin gecerli serial -> Hex(737105?)

Keygen kodunu VB olarak veriyorum. “ascii_topla” rutinini kendiniz yaziverin.

adi = "amois"
soyadi = "fb"
sabit = "?"
uzunluk_top = Len(adi) + Len(soyadi)                        ; 5 + 2 = 7
Call ascii_topla(adi)                                       ; 537
Call ascii_topla(soyadi)                                    ; 200
serial_1 = adi + soyadi                                     ; 537 + 200 = 737
serial_2 = Int(serial_1 / uzunluk_top)                      ; Integer (737/7) = 105
serial = Hex(Val(Str(serial_1) + Str(serial_2) + sabit))    ;
MsgBox (serial)
 

Bir programı kullanarak para kazanıyorsanız, programı satın alın.