AW: Text entschlüsseln, Algorithmus nur teilweise bekannt
Zitat:
Man muss halt beachten, auch einen Salt für den Passwort-Hash zu nutzen. Zitat:
Alles eine Frage des Zwecks :-D |
AW: Text entschlüsseln, Algorithmus nur teilweise bekannt
Zitat:
Zitat:
Zitat:
Ich habe jetzt mittels DEC folgendes zusammengebastelt:
Delphi-Quellcode:
Hier kommt wie erwartet nur Müll bei raus, daher hoffe ich auf ein paar Tipps, wo Fehler liegen könnten.
uses DECUtil, DECCipher, DECHash, DECFmt;
function Decode: string; const PASS = 'GEHEIM'; DATA = 'FC343FC9164CE283FC08C9A12EEEBB26A3E0E31C5C4909A130BD075A730F6BD2336C6F329BAA84E8F9AE531EC2CF8B75E882420BC792CB351860CD7276FF149E4080'; WAS_IST_DAS = '5590'; SALT = 'tBuSGDvX7y5+3vorzrFiK1rAU8rO1X2Jg6Do8Q0mwMo='; AKDFIndex: LongWord = 1; var APass: Binary; ASalt: Binary; AData: Binary; ALen: Integer; begin with TCipher_Rijndael.Create, Context do begin try ASalt := TFormat_MIME64.Decode(SALT); SetLength(ASalt, 16); // brauch ich das? APass := PASS; APass := THash_SHA256.KDFx(APass[1], Length(APass) * SizeOf(APass[1]), ASalt[1], Length(ASalt), KeySize, TFormat_Copy, AKDFIndex); // was macht KDFx()? AData := TFormat_HEX.Decode(DATA); ALen := Length(AData); Mode := cmCBCx; { Möglichkeiten: cmCTSx, cmCBCx, cmCFB8, cmCFBx, cmOFB8, cmOFBx, cmCFS8, cmCFSx, cmECBx } Init(APass); SetLength(Result, ALen div SizeOf(AData[1])); Decode(AData[1], Result[1], ALen); finally Free; ProtectBinary(ASalt); ProtectBinary(AData); ProtectBinary(APass); end; end; end; |
AW: Text entschlüsseln, Algorithmus nur teilweise bekannt
Warum schreibst du den Autor des Programmes nicht an und fragst?
|
AW: Text entschlüsseln, Algorithmus nur teilweise bekannt
Zumindest was das Resultat angeht, würde ich etwas anders interpretieren.
Also eher Richtung erst Header, dann Daten. Der CipherText am Ende (grün) sieht mir eher wir der encryptete Text aus, wenn auch ein paar Zeichen zu lang. Die (rote) 5590 sowie die HEX-Folge am Anfag könnte zur Schlüsselerstellung gehören (key/iv). Evtl. Salt und Anzahl Iterationen für den Key-Generator. Dass das ohne genau Infos zur Key-Generierung erraten wird, kann ich mir schwer vorstellen. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:43 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz