" Eternal Bliss 's Coumouflage Crackme "



 

This tutorial is coming from...
ReFleXZ '99
Url: Http://ReFleXZ99.cjb.net
Email: ReFleXZ@fcmail.com

 
 
About the essay...
Written by:
ACiD BuRN

Date:11th June 1999
Program name: Eternal Bliss 's camouflage Crackme
Program type: W32
Program location: Here
Program filename: N/A
Program size: n/c
Translation by: Secret Agent James Bond 007

Tools required:
Smart check 6

Difficult level:
Easy (    )  Medium ( )  Hard (    )  Pro (    )
 


 
 
Introduction...
Salut! Il est grand temps de se remettre au cracking!

 
 
A propos de la protection:
Name / Serial protection ....

 
Le Tut...
Salut les gars! :)
Aujourd'hui, je vais vous apprendre à cracker un crackme VB et à le keygener !
Pourquoi? Parce qu'il n'y a pas beaucoup de tutorial sur le keygening de programmes VB donc j'ai voulu en faire un!

Vous trouvererez le crackme ici

Très bon site avec plein de crackme!
 

Protections : - anti smartcheck
- serial / name
 
 

1)anti smartcheck (SC):

Il y a plusieurs façons de détecter si SC est acitvé. Je vais vous donner la plus courante:

Le programme regarde la barre des titres de SC et il trouve:
"NuMega SmartCheck"

Puis se faire tout seul! merde!

La deuxième façon et de regarde l'ID de le fenetre de SC: NMSCVM50
Et si il le trouve alors il se ferme aussi tout seul!

Comment l'eviter?
Si vous voulez cracker la plupart des applications avec un anti SC, c'est préférable de patcher directement l'exécutable SC. Pour cela, utilisez un hexéditeur et cherchez NuMega SmartCheck. Ensuite changez le en ce que vous voulez!

Pour patcher l'ID de la fenetre, c'est plus difficile parce que vous ne le voyez pas avec un hexéditeur!
Vous pouvez utiliser le programme de CyberBlade (un ami): UPK.

Mais je ne l'ai pas et je vais vous dire comment j'ai fait!

Tout d'abord, j'ai mis un BPX sur l'API avant le MessageBox qui dit "you are not registered blabla..."
Ensuite, vous devrez charger le crackme dans SC et l'exécuter!!!
On retourne dans SoftIce et vous allez rechercher:
s 0 l ffffffff 'NMSC' (je n'ai pas recherche NMSCWM50... soyez sur que vous trouverez le bon)
tapez S jusqu' a ce que vous trouviez NMSCVM50. La premiere fois que vous le verez, reecrivez
par dessus des 00000000.hehe , le crackme continue son exécution sous SC!!
 

2) Comment l'enregistrer?

Clicker sur Register et entrez un nom et un serial au hasard genre 123456
and cliquez sur "Check It": vous verez :
Wrong Try again a l'emplacement de votre nom...
Donc ce n'est pas le bon =)!!

Ok. quittez le crackme et retournez dans SC.
D'abord, sauvez votre projet, avec File/Save as...
parce que je pense que vous ne voudrez pas refaire cette premiere partie du tut plusieurs fois!

Vous verez command5_click, double click and regardez cette chose interessante:
Maintenant allez sous SC et regardez votre nom, you verez:

--------------Start of SC cut--------------------------------

Mid(varian:byReF String:"ACiD BuRN",long1,VARIANT:Integer:1)
Asc(string:"A")returns Integer:65
Trim(VARIANT:Integer:34)
Mid(varian:byReF String:"ACiD BuRN",long2,VARIANT:Integer:1)
Asc(string:"C")returns Integer:67
Trim(VARIANT:Integer:32)
Mid(varian:byReF String:"ACiD BuRN",long3,VARIANT:Integer:1)
Asc(string:"i")returns Integer:105
Trim(VARIANT:Integer:10)
Mid(varian:byReF String:"ACiD BuRN",long4,VARIANT:Integer:1)
Asc(string:"D")returns Integer:68
Trim(VARIANT:Integer:39)
Mid(varian:byReF String:"ACiD BuRN",long5,VARIANT:Integer:1)
Asc(string:" ")returns Integer:32
Trim(VARIANT:Integer:67)
Mid(varian:byReF String:"ACiD BuRN",long6,VARIANT:Integer:1)
Asc(string:"B")returns Integer:66
Trim(VARIANT:Integer:33)
Mid(varian:byReF String:"ACiD BuRN",long7,VARIANT:Integer:1)
Asc(string:"u")returns Integer:117
Trim(VARIANT:Integer:22)
Mid(varian:byReF String:"ACiD BuRN",long8,VARIANT:Integer:1)
Asc(string:"R")returns Integer:82
Trim(VARIANT:Integer:49)
Mid(varian:byReF String:"ACiD BuRN",long8,VARIANT:Integer:1)
Asc(string:"N")returns Integer:78
Trim(VARIANT:Integer:45)
 

------------------End of Smartcheck cut----------------------
 

Regardez maintenant le code : avez vous trouve un truc cool?

ici:

Mid(varian:byReF String:"ACiD BuRN",long1,VARIANT:Integer:1) <= 1er caractere
Asc(string:"A")returns Integer:65 <=== Valeur ASCII -> décimal
Trim(VARIANT:Integer:34) <=== la valeur de seiral??

Pourquoi pas essayer toutes ces valeurs comme un serial?
Donc prenez toutes les valeurs pour chaque lettre et ca donne:

Essayons:
name : ACiD BuRN
serial : 343210396733224945

clickez sur "Check It" et ca marche!!!!! Bon on l'a cracké!!! Maintenant je vais vous expliquer comment le keygener.
 

3)Keygen it
 

Bon... Comment a t il trouve cette putain de valeur?!!!
hehe!! laissez moi voir...
Pourquoi pas un XOR?
 

Asc(string:"A")returns Integer:65 <== 1st ascii value
Trim(VARIANT:Integer:34) <== 1st good key
Asc(string:"C")returns Integer:67 <== 2nd ascii value
Trim(VARIANT:Integer:32) <== 2nd good key
.....
 

Si nous faisons 65 XOR 34 (a l'aide la calculatrice Windows en mode scientifique)

nous trouvons: 99

hehe !!
Si nous trouvons la meme valeur avec 67 XOR 32 alors on a de quoi faire un keygen!
regardez!!
67 XoR 32 = 99 !
cool!! on l'a fait!!

parce que si nous faisons 67 XOR 99=32 =) La bonne valeur de la cle!
Donc pour faire un bon serial de votre nom vous devrez prendre la valeur
ASCII de chaque lettre et le XOR 99. Sauvegarder cette valeur et ajouter 
a cote le prochain resultat pour chaque lettre de votre nom!!

Comment le coder? Voici le code source VB5:
 

4)source du Keygen:
 

--------------Start of the source-------------

Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
code = Asc(Mid$(Text1.Text, i, 1)) Xor 99
Text2.Text = Text2.Text & code
Next i
End Sub

----------------End of the source-------------

Pour le tester, creez un nouveau projet avec un boutton et 2 textbox
double clicquez sur le boutton et copiez le code!
hehe !! 

Fini!

Crackme Cracked!! =)

J'espere que vous avez appris quelque chose de ce tut et excusez moi pour le mauvais
anglais!
EMail : Acid2600@hotmail.com
Email du traducteur: snipernet_1@yahoo.com

ACiD BuRN [ReFleXZ'99] 


 
 
Final Notes...
Greetz To:

R!SC, ^Inferno^, AB4DS, Cyber Blade, Klefz, , Volatility, Torn@do, T4D, Jeff, [Virus], Jane , Appbusta , Duelist , tKC , BuLLeT , Lucifer48 , MiZ , DnNuke , Bjanes ...
---> 4 Being So Good Friends To Me. 
Sorry if you are not here too many people to greetz !!!)

                                      ....And All Crackers !!! ....

U can Found me on IRC : At #ReFleXZ99, #Cracking4Newbies , #ECL on Efnet


 
 
Disclaimer...
This tutorial is written for EDUCATIONAL purposes only.
So if you want to use the program after its trial period ends please BUY IT!
Support shareware (and its authors), this is our learning tool!

ReFleXZ is not responsible for any damage caused with this essay or any of its parts.
So everything what you're doing and 'experimenting' is on your own responsibile!

Also, in this tutorial you'll not find any serial numbers, so try to search
elsewhere under Cracks and Warez.

Copyright © 1999-2000 By ReFleXZ '99
All Rights Reserved