Serials erstellen

[jamma-markus]

hallo,

kann man eigentlich mit delphi md5-verschlüsselte strings erzeugen, sodass ich z.b.: meinen namen eingebe und der das als md5-code ausgibt?

[Sharky]

Zitat:

Zitat von jamma-markus

hallo,

kann man eigentlich mit delphi md5-verschlüsselte strings erzeugen, sodass ich z.b.: meinen namen eingebe und der das als md5-code ausgibt?

Ja ;-)


In der Code-Library ist zum Beispiel etwas.
Ansonsten natürlich wie immer an dieser Stelle: Schaue Dir das DEC von Hagen an.

p.S.: md5 ist keine "Verschlüsselung" in diesem sinne.

[Edit]Habe den Link richtig gesetzt! Sorry :oops: Das kommt davon wenn man alles gleichzeitig macht.

[mirage228]

Zitat:

Zitat von Sharky

Zitat:

Zitat von jamma-markus

hallo,

kann man eigentlich mit delphi md5-verschlüsselte strings erzeugen, sodass ich z.b.: meinen namen eingebe und der das als md5-code ausgibt?

Ja ;-)


In der Code-Library ist zum Beispiel etwas.

Also irgendwie führt der Link wieder zu Deinem eigenen Post :mrgreen:

mfG
mirage228

[Pseudemys Nelsoni]

Mit dieser Unit gehts (Siehe Anhang)

[jfheins]

md5 :zwinker:

[jamma-markus]

hallo Pseudemys Nelsoni,

wie muss ich denn die pas-datei einbinden, damit ich beim click auf einen butten in einem label den codierten text aus einem edit-feld stehen habe?

[Pseudemys Nelsoni]

hallo jamma-markus,

erstmal bindest du die datei bei uses ein. Sagen wir mal "S" ist eine string variable und du möchtest das wort "hallo" verschlüsseln, dann würdest du das ganze so machen:

Delphi-Quellcode:

S := MD5DigestToStr(MD5String('hallo'));

Du hättest nur in die MD5.pas gucken müssen und da hättest du es lesen können ;)

Siehe hier:

Zitat:

{ 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;

{ The MD5File function evaluates the MD5 hashsum for
a file. The FileName parameter specifies the name
of a file to evaluate hashsum }
function MD5File(const FileName: string): TMD5Digest;

{ The MD5Stream function evaluates the MD5 hashsum for
a stream. The Stream parameters specifies the
TStream descendant class object to evaluate hashsum }
function MD5Stream(const Stream: TStream): TMD5Digest;

{ The MD5Buffer function evaluates the MD5 hashsum for
any memory buffer. The Buffer parameters specifies a
buffer to evaluate hashsum. The Size parameter specifies
the size (in bytes) of a buffer }
function MD5Buffer(const Buffer; Size: Integer): TMD5Digest;

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

{ The MD5DigestCompare function compares two
TMD5Digest record variables. This function returns
TRUE if parameters are equal or FALSE otherwise }
function MD5DigestCompare(const Digest1, Digest2: TMD5Digest): Boolean;

MfG

[GuenterS]

Zitat:

Zitat von himitsu

Und wenn sich dann noch etwas "gutes" am PC sinden würde (z.B. 'ne Hardware-Seriennummer, oder so) würde das dann auch nochmal den Key verändern, abr leider ist es "schwer" etwas am PC zu finden, was sich dafür verwenden läßt, da der PC ja auch mal aufgerüstet (oder ausgetauscht) werden könnte :(

Naja die System-Festplatte wird wohl nicht sehr oft ausgetauscht werden und in dem Falle, müßte man das Programm ja vielleicht eh auch neu installieren. (bzw. dann auch wieder aktivieren)

[jamma-markus]

danke, problem gelöst.