Suche Crack Source Codes

[Killa_virus]

ja das suche ich

ein quellcode von einem crack (egal was für einen ! Am besten alls windows Crack nicht dos !!,,,,,)

in Turbo Pascal wär gut und visual Basic Delphi und Visual c++

[regen]

lo virus

so weit ich weiß, hat dynamix schonmal einen
quellcode für c++ gepasted. (SUCHFUNKTION!).

in delphi und tP sollte ja eigentlich das se-
lbe funktionieren; zumindest ähnlich sollte
es sein. ich paste hier freepascal code, sol-
lte aber auch in TP und delphi funktionieren!

[dynamix]

kein Problem ..


DarCrackEngine - created by DCE Wizard}
program dce;
type THack=record old,new:byte;pos:longint; end;
const Hacks=8;
toHack:array[1..Hacks] of THack=(
(old:116;new:235;pos:327641),
(old:116;new:235;pos:330529),
(old:15;new:144;pos:1078699),
(old:132;new:144;pos:1078700),
(old:137;new:144;pos:1078701),
(old:0;new:144;pos:1078702),
(old:0;new:144;pos:1078703),
(old:0;new:144;pos:1078704));
const filetoCrack='BI4.exe';
checksum:longint=0;size:longint=2431747;
var F:file;
i:longint;
o:byte;

function getChecksum(var F:file):longint;
var ii:array[1..1000] of byte; i,readed:word;getCheckSumT:longint;
begin
getCheckSumT:=0;
seek(F,0);
repeat blockread(F,ii,1000,readed); for i:=1 to readed do inc(getCheckSumT,ii[i]); until eof(F);
getCheckSum:=getCheckSumT;
end;
begin
writeln('-= DaRCrAcKenGiNe =-');
writeln('-= by DynamiX[m3e] =-');
writeln('File to Crack : '+filetocrack);
{$I-}
assign(F,filetocrack);
reset(F,1);
size:=filesize(F);
if ioresult<>0 then begin writeln('Fehler beim ”ffnen von - '+filetocrack); close(F);halt(0);end;
if not (size=0) and not (filesize(F)=size) then
begin
writeln('Sorry ... '+filetocrack+' hat nicht die richtige GrӇe');
close(F);halt(0);
end;
if not (checksum=0) and not (Getchecksum(F)=checksum) then
begin
writeln('Sorry ... die Checksum ist nicht korrekt!(falsche Version der Exe???)');
close(F); halt(0);
end;
for i:=1 to hacks do
begin
seek(F,tohack[i].pos-1); blockread(F,o,1); if o<>tohack[i].old then
begin
writeln(tohack[i].pos-1); writeln(tohack[i].old);
writeln(o);
writeln('Sorry ... ',filetocrack,' ist nicht die richtige Version oder bereits gecrackt!');
close(F);
halt(0);
end;
seek(F,tohack[i].pos-1); blockwrite(F,tohack[i].new,1);
end;
writeln('Crack OK!')
end.

folgenden TP Source generiert ein kleinen Proggy das ich geschrieben habe .. es vergleich die org. mit der gecrackten exe und erstellt einen sourcecode der compiliert den crack ergibt. die Variablen ect. sollten eigentlich alle klar sein :) .. solltest du etwas moderneres suche kann ich dir auch noch die Sourcen von meiner Runtimecrack engine posten ;)

.. musste nochmal editieren und die smilies austellen ... sonst hehe naja siehts etwas merkwürdig aus


[Dieser Beitrag wurde von dynamix am 08. Februar 2001 um 15:40 Uhr editiert.]

[dynamix]

uiii .. @regen .. in der Zeit wo ich meinen Beitrag geschrieben habe hast du auch gepsotet :) .. ´deshalb sind kleine überschneidungen bzw. doppelerklärungen möglich ..

[xYx2k]

...fein!!

[Killa_virus]

hätte jemand den source auch in Delphi ??

[regen]

das sind delphi sources! nunja, zumindest TP
sources die du in delphi direkt übernehmen
kannst!

...REGEN!