hagen reddman dec

[darknes]

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

Delphi-Quellcode:

{ The MD5String function evaluates the MD5 hashsum for
  a string. The S parameter specifies a string to
  evaluate hashsum }
function MD5String(const S: string): TMD5Digest;

und hier das andere

Delphi-Quellcode:

{ The MD5DigestToStr function converts the result of
  a hashsum evaluation function into a string of
  hexadecimal digits }
function MD5DigestToStr(const Digest: TMD5Digest): string;

und meine function die ich verwenden wollte aber die nicht geht.

Delphi-Quellcode:

function GetMD5(s: string): string; 
Begin
result := MD5DigestToStr(MD5String(s));//hier wird doch die md5 hashume in einen string umgewandelt oder liege ich da falsch?
end;

[Klaus01]

Guten Abend,

mit Deiner angehängten MD5.pas funktioniert der folgende Code
ohne Murren.

Delphi-Quellcode:

uses
  md5;


procedure TForm1.Button1Click(Sender: TObject);
begin
  edit2.Text := MD5DigestToStr(Md5String(Edit1.Text));
end;

Nachtrag:
Meine Delphi Version: TDE 2006
Was ist denn Deine: >= 2009 -> String = Unicode String


Grüße
Klaus

[darknes]

Meine delphi version ist delphi 7 lite full welche version das genau ist kann ich dir nicht sagen scheint eine gemodde version von delphi 7 second edition zu sein.
Genau deswegen verstehe ich nur bahnhof bei jedem anderen geht diese md5.pas nur bei mir nicht.
Hab erst gedacht es läge an den vista api´s deswegen hab eine neuinstallation ohne diese api´s gemacht selber fehler.
Rsa kann sehr woll md5 verwenden für C da ja

Encrypt Cipher_text = M ^ E MOD N
Decrypt Message text = C ^ D MOD N

Oder hab ich das jetzt auch falsch verstanden?

Wollte es so lösen :

Delphi-Quellcode:

function new_md5(s:string):string ;
var
  t:THash_MD5;
begin
  t:=THash_MD5.Create;
  try
  t.Init;
Result:=t.CalcBinary('s',TFormat_HEX);
t.Done;
finally
  t.Free; //hier wird THash_MD5 freigelassen.
end;
end;

aber wenn ich das verwende bekomme ich einen range check error.
if (s <> '') and (s[1] <> '$') then

[gammatester]

Zitat von darknes:

Meine delphi version ist delphi 7 lite full welche version das genau ist kann ich dir nicht sagen scheint eine gemodde version von delphi 7 second edition zu sein.
Genau deswegen verstehe ich nur bahnhof bei jedem anderen geht diese md5.pas nur bei mir nicht.
Hab erst gedacht es läge an den vista api´s deswegen hab eine neuinstallation ohne diese api´s gemacht selber fehler.
Rsa kann sehr woll md5 verwenden für C da ja

Encrypt Cipher_text = M ^ E MOD N
Decrypt Message text = C ^ D MOD N

Oder hab ich das jetzt auch falsch verstanden?

Noch ein letzer Versuch:

Das ist doch aber völlig unerheblich ob C aus einem MD5 Hashherkommt oder erwürfelt wurde.

Wenn es immer noch dieser Fehler ist,

Zitat von darknes:

Ok hier an diese stelle MD5Update(Context, @Buffer, ReadBytes); zeigt ihr mir diesen error an [Error] 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.

dann kann ich mir beim besten Willen nicht vorstellen, wie Du da hinkommst, denn das ist ja in der
function MD5Stream(const Stream: TStream): TMD5Digest; und Du verwendest (zumindest was Du bisher gezeigt hast) ja keine Streams.

Im übrigen habe ich schwere Sicherheitsbedenken bei Deinem Code: 128-Bit RSA ist viel viel zuwenig um sicher zu sein. Aber viel schlimmer ist die "Security by Obscurity" durch Deine Part1- bis Part5- Verwurschtelungen. Ist Dir eigentlich bewußt, daß allein Part1 höchsten 9 Bit Sicherheit erzeugt, wenn die 128 Eingangsbits zufällig sind, da Du 32 4-Bit-Werte summierst. Part2 bis Part5 werden diese 9 Bit Zufall noch weiter runterdrücken.

[darknes]

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 hier erlaubt wenn nicht tut es mir leid.

[lbccaleb]

Zitat von darknes:

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.

Ja wieso sollte es nicht erlaubt sein? Verboten ist es ja erst wenn du an fremden Dateien rumfuhrwerkst, wo der Programmierer nicht möchte das du das machst! Diese Art von Programmen, sin da ja dafür gemacht geknackt zu werden. Sicher ist deren Funktion fraglich, vor allem für dich, da du dich anscheinend mit der Materie noch nicht so auskennst. Vllt solltest du daher erstmal Anfangen, mit Programmen die auch einen Nutzen haben, und nicht nur als Übungszweck für irgendwelche Hacker bereitstehen.

[darknes]

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 könnte man alls falsche unterstellung anzeigen nur so alls tip.
Back to topic :
Wenn ich dich auf sonstige art beleidigt habe tut es mir leid @gammatester