Delphi-PRAXiS
Seite 6 von 7   « Erste     456 7      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi DEC 5.1 wie benutzen? (https://www.delphipraxis.net/107798-dec-5-1-wie-benutzen.html)

OG Karotte 29. Mär 2008 11:27

Re: DEC 5.1 wie benutzen?
 
Zitat:

Zitat von noway
Finde diese KDF und MGF funktionen nicht
Kann mir das jemand übersetzen

Die KDF bzw. MGF Funktionen gehören jeweils zu dem verwendeten Verfahren.
Also z.B.:
Delphi-Quellcode:
SessionKey := THash_RipeMD256.KDFx(Salt_1, Passwort);
SessionKey := THash_RipeMD256.KDF1(Salt_1, Passwort);
// oder
CheckSum := THash_MD5.MGF1(Salt_2, SessionKey);
CheckSum := THash_MD5.MGFx(Salt_2, SessionKey);

noway 29. Mär 2008 17:49

Re: DEC 5.1 wie benutzen?
 
Hallo zusammen,

ich bekomme folgende Meldung

Delphi-Quellcode:
There is no overloaded version of 'KDFx' that can be called with these arguments
Was bedeutet das ?

Ratlos
Noway (der Name ist Programm :-D )

OG Karotte 29. Mär 2008 17:58

Re: DEC 5.1 wie benutzen?
 
Das höchstwahrscheinlich die Parameteranzahl oder der Parametertyp nicht stimmt.

Solltest Du Dich auf meine Beispiele von oben beziehen: das sind nur grobe Beispiele!!!

Genauere Funktionen/Beschreibungen findest Du aber auch hier im Forum -> Hier im Forum suchenDEC

Ansonsten: Wenn Du 'Codevervollständigung' in der IDE benutzt oder mit der Maus über den Eintrag 'KDFx' fährst, solltest Du die Anzahl und Typen der erwarteten Parameter erhalten. Auch ein Blick in die entspr. DEC-Unit könnte helfen...

noway 30. Mär 2008 07:15

Re: DEC 5.1 wie benutzen?
 
Danke erstmal für die Anwtwirt.

Leider finde ich im Forum nicht das, was ich suche bzw. ich such falsch

Irgendwie habe ich es hinbekommen, das o.g. Meldungen nicht mehr erscheinen.
(Fragt sich nur, ob das die richtigen Parameter waren.)

Jetzt wird mir "ENCYPT" angemeckert. Wird nicht erkannt.

Ist es nicht möglich, von den Cracks hier, mir den Code mal zu übersetzen ? Wenn nicht , dann auch gut :?

Delphi-Quellcode:
Salt_1 = RandomBinary(16);
Salt_2 = RandomBinary(16);
SessonKey = KDF(Salt_1, Passwort);
Checksum = MGF(Salt_2, SessionKey);
CipherText = ENCYPT(SessionKey, Salt_2 + Checksum + PlainText);
FinalData = Salt_1 + CipherText;

und entschlüsselt dann so:

Salt_1 = EXTRACT(FinalData, 1, 16);
SessionKey = KDF(Salt_1, Passwort);
Temp = DECRYPT(SessonKey, EXTRACT(FinalData, 16, MaxInt));
Salt_2 = EXTRACT(Temp, 1, 16);
Checksum = EXTRACT(Temp, 16, 16);
if Checksum <> MGF(Salt_2, SessionKey) then ShowMessage('Falsches Passwort');
PlainText := EXTRACT(Temp, 32, MaxInt);
Gruß
Noway

OG Karotte 30. Mär 2008 12:00

Re: DEC 5.1 wie benutzen?
 
Zitat:

Zitat von noway
Jetzt wird mir "ENCYPT" angemeckert. Wird nicht erkannt.

Die Funktion heisst wohl eher Encrypt.

Und das hier sind eher Vergleiche als Zuweisungen (vermute aber mal das es nur Typo's sind, oder???)
Code:
Salt_1 = RandomBinary(16); // Vergleich (allerdings ohne Sinn)

Salt_1 := RandomBinary(16); // Zuweisung (so sollte es sein)
Wie das ver- und entschlüsseln funktioniert, bzw. was dabei beachtet werden muss/sollte und die Handhabung insbesondere der Funktionen KDF usw. ist an mehreren Stellen hier im Forum sehr schön beschrieben: z.B.:Hier im Forum suchenDEC AND Salt

dominikkv 30. Mär 2008 13:51

Re: DEC 5.1 wie benutzen?
 
Kleine Frage am Rande:
Gibt es sowas wie eine "offizielle Homepage" für DEC?
Ich will in den Abouts von meinem Programm DEC erwähnen und gleich zu der Homapage verlinken...
Ist das hier die richtige Adresse?

negaH 31. Mär 2008 01:33

Re: DEC 5.1 wie benutzen?
 
Ist veraltet, da arbeite ich schon lange nicht mehr.

Mein obige "Sourcecode" ist nur ein Pseudocode, sprich eine Formel oder Algorithmus oder Arbeitsanweisung. Das kannst du nicht direkt mit DEC so übernehmen.

Gruß Hagen

noway 11. Mai 2008 18:46

Re: DEC 5.1 wie benutzen?
 
Zitat:

Zitat von noway
Danke erstmal für die Anwtwirt.
Temp = DECRYPT(SessonKey, EXTRACT(FinalData, 16, MaxInt));
Noway

Hallo zusammen,
ich versuche es noch ein letztes Mal.
Woher kommt die Funktion "EXTRACT" ?
Kann mir da jenmand helfen

Danke

Noway

noway 13. Mai 2008 22:14

Re: DEC 5.1 wie benutzen?
 
Zitat:

Zitat von noway
Zitat:

Zitat von noway
Danke erstmal für die Anwtwirt.
Temp = DECRYPT(SessonKey, EXTRACT(FinalData, 16, MaxInt));
Noway

Hallo zusammen,
ich versuche es noch ein letztes Mal.
Woher kommt die Funktion "EXTRACT" ?
Kann mir da jenmand helfen

Danke

Noway

Hat keiner eine Ahnung ?

Sharky 13. Mai 2008 22:18

Re: DEC 5.1 wie benutzen?
 
Zitat:

Zitat von noway
.... Hat keiner eine Ahnung ?

Hai noway,

sich selber zu zitieren sieht nie gut aus ;-) Aber das nur am Rande.

hast Du denn gelesen was Hagen (der Entwickler des DEC) geschrieben hat?


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:21 Uhr.
Seite 6 von 7   « Erste     456 7      

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 by Thomas Breitkreuz