hagen reddman dec

[Deep-Sea]

Zitat von darknes:

Selbst wenn ich es freigebe:

Delphi-Quellcode:

t:THash_MD5;
begin
t:=THash_MD5.Create;
t.init;
Result:=t.DigestStr(TFormat_MIME64);
t.done;
end;

Freigeben? Ja wo denn? Es müsste dieser Form folgen (was es nicht tut):

Delphi-Quellcode:

begin
  LokaleVariable := TEineKlasse.Create;
  try
    // Tue etwas mit LokaleVariable ...
  finally
    LokaleVariable.Free;
  end;
end;

[alzaimar]

Einen dermaßenen Kommentar-Overkill habe ich noch nie gesehen.

Delphi-Quellcode:

Begin // Begin
  i := 0; // Initialize i as 0
  inc(i); // Increment i

Ein gutes Programm kommt ganz ohne Kommentare aus

[himitsu]

Ich wollte das noch nicht ansprechen. (PS: selbst Begin kann man kommentieren? )
Aber mal im Ernst, ist dir aufgefallen, daß sich dadrin auch ein wichtiger Kommentar versteckt, welcher für uns Helfer bestimmt ist?

Ganz ohne nicht, aber nur das Wichtige, welches man wirklich nicht so einfach verstehen kann.

[darknes]

Deswegen wollte ich die md5 unit von dec verwenden.
Hier wird der md5 string ja generiert aber diese function geht bei mir nicht da die md5.pas einen fehler anzeigt.

Delphi-Quellcode:

//function GetMD5(s: string): string; 
//Begin
//result := MD5DigestToStr(MD5String(s)); //stammt aus der md5.pas die ich hier gefunden habe
//end;

Und in hex wird der md5 ja hier umgewandelt :
result := new_md5(IntToHex(x,0)); Hier wird doch der benutzer name in hex umgewandelt:
Part1(new_md5(GetUser)); Allso kann man keinen normalen md5 string generiren mit dieser unit?
@gammatester teste doch einfach mal die getmd5 function und du siehst was rauskommt.
Der md5 string soll ja für die anderen sachen erstellt werden nicht für 'abc'
sondern einen md5 string für den MD5 Hash the UserName

[lbccaleb]

Zitat von darknes:

Hier wird der md5 string ja generiert aber diese function geht bei mir nicht da die md5.pas einen fehler anzeigt.

Ja was denn für ein Fehler? Vllt solltest du diesen mal genau benennen damit man dir hier weiter helfen kann!

[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.

[gammatester]

Zitat von darknes:

Deswegen wollte ich die md5 unit von dec verwenden.
Hier wird der md5 string ja generiert aber diese function geht bei mir nicht da die md5.pas einen fehler anzeigt.

Delphi-Quellcode:

//function GetMD5(s: string): string; 
//Begin
//result := MD5DigestToStr(MD5String(s)); //stammt aus der md5.pas die ich hier gefunden habe
//end;

Und in hex wird der md5 ja hier umgewandelt :
result := new_md5(IntToHex(x,0)); Hier wird doch der benutzer name in hex umgewandelt:
Part1(new_md5(GetUser)); Allso kann man keinen normalen md5 string generiren mit dieser unit?
@gammatester teste doch einfach mal die getmd5 function und du siehst was rauskommt.
Der md5 string soll ja für die anderen sachen erstellt werden nicht für 'abc'
sondern einen md5 string für den MD5 Hash the UserName

[Dies zum inzwischen gelöschten Teil]
Was immer es ist, auf jeden Fall nicht der MD5-Hash von 'abc'? Und schon gar nicht berechnet mit einer Deiner Code-Schnipsel.

Außerdem: Durch Zahlen zählen erhält man klein MD5 Hash.
Außerdem: Wieso wird neuerdings für RSA eine MD5 benötigt?

Im übrigen finde ich Deine Reaktion etwas - na sagen wir - merkwürdig. Du hast offensichtlich wenig Ahnung, wie Du zu einem richtigen Hashdigest kommst, 'findest' ein md5.pas Unit, die aber nicht funktioniert, willst deshalb DEC benutzen, und ich soll mal irgendeine weitere dieser Obskuritäten testen?

Was für ein Kraut rauchst Du eigentlich, um auf solche Ideen zu kommen?

Jetzt speziell auf den letzten Teil. Willst Du damit sagen, daß Du keine Ahnung hast, wie man von 'abc' auf einen beliebigen String verallgemeinert? Dann laß bitte die Finger von MD5 und erst recht von RSA.

[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