Forum: Object-Pascal / Delphi-Language
Delphi
by darknes,
16. Feb 2011
Ich kenne mich schon mit dieser Materie aus nur halt auf dem wege des pachtens hab erst zwei keygens geschrieben beide waren aber ohne cryptos und dieser hier ist ja für mich zum lernen gedacht nicht für sonstige zwecke.
Wobei das eine kein richtiger keygen ist da die serial nicht random ist.
Da ein echter keygen random serials ausgibt die aber immer gültig sind.
Das mit dem kraut rauchen...
Forum: Object-Pascal / Delphi-Language
Delphi
by darknes,
16. Feb 2011
Nein der fehler hat sich doch geändert hab ich oben verbessert aber ich lande an dieser stelle im code mit md5.pas wie gesagt warum auch immer da ich keine streams verwende wie du schon gesagt hast.
Das 128 zu wenig sind ist mir schon klar aber das ist nicht für eine software die ich schützen will.
Sagt dir das word keygenme etwas besser gesagt in diesem falle tut_me.
Ich hoffe das thema ist...
Forum: Object-Pascal / Delphi-Language
Delphi
by darknes,
15. Feb 2011
Das hab ich nicht gesagt und ich rauche kein was auch immer.
RSA Decrypt the final MD5 hash (result goes in 'b')
D679E4D420CF78D335DC9AD165F9D819 //b oder auch modul N base 16 format size 128 bits oder liege ich da falsch?
Hier aus der md5.pas
{ The MD5String function evaluates the MD5 hashsum for
a string. The S parameter specifies a string to
evaluate hashsum }
function...
Forum: Object-Pascal / Delphi-Language
Delphi
by darknes,
15. Feb 2011
Ok hier an diese stelle MD5Update(Context, @Buffer, ReadBytes);
zeigt ihr mir diesen error an md5.pas(407): Incompatible types: 'Array' and 'TByteArray'
hier ist die md.pas die ich verwende.
Da ich nichts an der md5.pas geändert habe verstehe ich bei diesem error nur bahnhof.
Forum: Object-Pascal / Delphi-Language
Delphi
by darknes,
15. Feb 2011
Es soll md5 sein die function heisst nur md4(testzwecke).
Selbst wenn ich es freigebe:
t:THash_MD5;
begin
t:=THash_MD5.Create;
t.init;
Result:=t.DigestStr(TFormat_MIME64);