AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

hagen reddman dec

Ein Thema von darknes · begonnen am 15. Feb 2011 · letzter Beitrag vom 16. Feb 2011
Antwort Antwort
Benutzerbild von Deep-Sea
Deep-Sea

Registriert seit: 17. Jan 2007
907 Beiträge
 
Delphi XE2 Professional
 
#1

AW: hagen reddman dec

  Alt 15. Feb 2011, 15:55
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;
Chris
Die Erfahrung ist ein strenger Schulmeister: Sie prüft uns, bevor sie uns lehrt.
  Mit Zitat antworten Zitat
alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#2

AW: hagen reddman dec

  Alt 15. Feb 2011, 16:09
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
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")

Geändert von alzaimar (15. Feb 2011 um 16:28 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.540 Beiträge
 
Delphi 12 Athens
 
#3

AW: hagen reddman dec

  Alt 15. Feb 2011, 16:54
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.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
darknes

Registriert seit: 11. Apr 2009
15 Beiträge
 
#4

AW: hagen reddman dec

  Alt 15. Feb 2011, 18:55
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

Geändert von darknes (15. Feb 2011 um 19:17 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von lbccaleb
lbccaleb

Registriert seit: 25. Mai 2006
Ort: Rostock / Bremen
2.037 Beiträge
 
Delphi 7 Enterprise
 
#5

AW: hagen reddman dec

  Alt 15. Feb 2011, 19:19
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!
Martin
MFG Caleb
TheSmallOne (MediaPlayer)
Die Dinge werden berechenbar, wenn man die Natur einer Sache durchschaut hat (Blade)
  Mit Zitat antworten Zitat
darknes

Registriert seit: 11. Apr 2009
15 Beiträge
 
#6

AW: hagen reddman dec

  Alt 15. Feb 2011, 19:30
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.
Angehängte Dateien
Dateityp: pas MD5.pas (12,4 KB, 11x aufgerufen)
  Mit Zitat antworten Zitat
gammatester

Registriert seit: 6. Dez 2005
999 Beiträge
 
#7

AW: hagen reddman dec

  Alt 15. Feb 2011, 19:35
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.
  Mit Zitat antworten Zitat
darknes

Registriert seit: 11. Apr 2009
15 Beiträge
 
#8

AW: hagen reddman dec

  Alt 15. Feb 2011, 19:58
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;
  Mit Zitat antworten Zitat
Klaus01
Online

Registriert seit: 30. Nov 2005
Ort: München
5.784 Beiträge
 
Delphi 10.4 Sydney
 
#9

AW: hagen reddman dec

  Alt 15. Feb 2011, 20:20
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
Klaus
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:09 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz