CRACKME V3.0
DelphiCool
Messages postés
455
Date d'inscription
mardi 24 juillet 2001
Statut
Membre
Dernière intervention
10 mars 2009
-
4 août 2002 à 09:49
cs_AMokers Messages postés 83 Date d'inscription jeudi 18 juillet 2002 Statut Membre Dernière intervention 8 octobre 2008 - 26 août 2003 à 20:37
cs_AMokers Messages postés 83 Date d'inscription jeudi 18 juillet 2002 Statut Membre Dernière intervention 8 octobre 2008 - 26 août 2003 à 20:37
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12071-crackme-v3-0
https://codes-sources.commentcamarche.net/source/12071-crackme-v3-0
26 août 2003 à 20:37
J'ai delete Delphi 6 entreprise !
Et je me suis payer Delphi 7 fr edition personel avec le livre de paul toth !
Voila ;)
Ca fait plaisir :p
16 févr. 2003 à 16:27
Mais ca devient rapidement obselete si plusieurs tests se font à des positions du programme differentes (ca demande de faire les modifications à chacuns de ces endroits)
Par ailleurs il est vrai que c'est pas un endroit pour parler cracking etant donné le status illegal du sujet
D'autre part, AMokers, à 16 ans, je voies pas comment on peut posseder D6 Ent... 1 moins d'etre l'heureux fils d'un riche papa... j'eviterais donc de trop l'etaler si tel n'est pas le dernier cas ;-)
4 août 2002 à 09:49
Yaisse ;-D
4 août 2002 à 00:18
3 août 2002 à 23:23
En fait, ton prog change des octets pour que le pass soit toujours bon ?
3 août 2002 à 21:42
C'est le problemec'est que j'ai compilé le crackme avec D6 ent,si tu l'as compilé avec autre chose, les octets doivent etre differents.
donc comme il ne trouve pas les octets qu'ils cherche, il te dit qu'il est deja patché ou autre.
PS : Amokers, ce n'est pas un forum de cracking ici.
Le savoir ya rien de tel, mais chaque chose à sa place s'il te plait
Merci
3 août 2002 à 10:37
3 août 2002 à 10:35
3 août 2002 à 00:21
je dispose de :
---------------------------------
http://amokers.free.fr
amokers@msn.com
ICQ : 150576014
Amokers ... Parce que mon âme est dans mon coeur 's lol
3 août 2002 à 00:13
au pif, ça te va comme réponse ;-)
pour compiler le projet, ci dessustu creer un fichier texte, tu y comme le source
et tu renomme en patch.dpr
puis tu compile
il fait un peu plus de 100 Ko non packé.
Et je le trouve long
3 août 2002 à 00:04
Voila meci
Ps Je c pas non plus comment Compiler ton projet c pas une fenetre windows alors comment je fais ?
2 août 2002 à 23:49
program patch;
uses sysutils, Classes, windows;
var Oct :array[1..10]of byte = ($75,$1A,$B8,$6C,$65,$45,$00,$E8,$67,$8A);
i, taille :integer;
CherchOct:array[1..10]of byte;
Fs :TFileStream;
patchOct:array[1..2]of byte = ($90,$90);
const exe = 'CrackMe.exe';
begin
if FileExists(exe) = false Then exit;
Fs := TFileStream.Create(exe, fmOpenReadWrite);
Taille := Fs.Size;
for i := 0 to Taille -10 do
begin
Fs.Seek(i, soFromBeginning);
Fs.Read(CherchOct, 9);
If (CherchOct[1] = Oct[1]) and (CherchOct[2] = Oct[2]) and
(CherchOct[3] = Oct[3]) and (CherchOct[4] = Oct[4]) and
(CherchOct[5] = Oct[5]) and (CherchOct[5] = Oct[5]) and
(CherchOct[6] = Oct[6]) and (CherchOct[6] = Oct[6]) and
(CherchOct[7] = Oct[7]) and (CherchOct[8] = Oct[8]) and
(CherchOct[9] = Oct[9]) Then
begin
Fs.Seek(i, soFromBeginning);
Fs.Write(patchOct, 2);
Fs.Free;
MESSAGEBOX(0, 'Je viens de patcher l''exe, merci.','',0);
exit;
end;
end;
Fs.Free;
MESSAGEBOX(0, 'Déja patché, ou ce n''est pas le bon exe.','',0);
end.
2 août 2002 à 22:28
2 août 2002 à 21:57
Parce qu'on attend toujours le source... :-O