AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Algorithmen, Datenstrukturen und Klassendesign Text entschlüsseln, Algorithmus nur teilweise bekannt

Text entschlüsseln, Algorithmus nur teilweise bekannt

Ein Thema von Björn Ole · begonnen am 22. Feb 2011 · letzter Beitrag vom 22. Feb 2011
Antwort Antwort
Seite 2 von 2     12
Benutzerbild von Deep-Sea
Deep-Sea

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

AW: Text entschlüsseln, Algorithmus nur teilweise bekannt

  Alt 22. Feb 2011, 13:11
Nein, muss man nicht. Man muss eine Hash-Funktion und eine KDF haben. Das sind zwei völlig verschiedene Dinge.
Naja, "völlig verschieden" nun auch nicht wirklich.
Man muss halt beachten, auch einen Salt für den Passwort-Hash zu nutzen.

Ein Grund mehr den Header nicht zu verschlüsseln und dort nur kryptographisch nicht relevante Daten zu speichern.
Was nicht so einfach ist, wenn man z.B. beliebige Dateien verschlüsseln will.
Alles eine Frage des Zwecks
Chris
Die Erfahrung ist ein strenger Schulmeister: Sie prüft uns, bevor sie uns lehrt.
  Mit Zitat antworten Zitat
Benutzerbild von Björn Ole
Björn Ole

Registriert seit: 11. Jul 2008
166 Beiträge
 
Delphi XE Professional
 
#12

AW: Text entschlüsseln, Algorithmus nur teilweise bekannt

  Alt 22. Feb 2011, 13:24
Hast du denn das Passwort?
Ja, wie im ersten Posting angegeben. Ich habe das Programm installiert und ein paar Testverschlüsselungen gemacht, um auf die Struktur zu kommen.
Wenn ja dann benutz doch einfach das besagte Programm, das ist doch Freeware.
Das versuche ich zu vermeiden. Es geht hier auch allein um die Entschlüsselung, ich werde sicherlich nicht nach diesem Schema verschlüsseln.
Welchen Sinn macht es das nachzubauen.
Ich würde gerne einige Texte automatisiert entschlüsseln, und da ich mich ungern mit dieser Software weiter befassen mag (hat himitsu schon alles zu gesagt ), hatte ich gehofft, dass sich das nachbauen lässt. Sollte es möglich sein, wird eventuell über einen besseren Weg nachgedacht, die Daten verschlüsselt abzulegen, aber das ist noch weit weg.


Ich habe jetzt mittels DEC folgendes zusammengebastelt:
Delphi-Quellcode:
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;
Hier kommt wie erwartet nur Müll bei raus, daher hoffe ich auf ein paar Tipps, wo Fehler liegen könnten.
  Mit Zitat antworten Zitat
Benutzerbild von cookie22
cookie22

Registriert seit: 28. Jun 2006
Ort: Düsseldorf
936 Beiträge
 
Delphi XE2 Professional
 
#13

AW: Text entschlüsseln, Algorithmus nur teilweise bekannt

  Alt 22. Feb 2011, 15:29
Warum schreibst du den Autor des Programmes nicht an und fragst?
Gruß
Cookie
  Mit Zitat antworten Zitat
Satty67

Registriert seit: 24. Feb 2007
Ort: Baden
1.566 Beiträge
 
Delphi 2007 Professional
 
#14

AW: Text entschlüsseln, Algorithmus nur teilweise bekannt

  Alt 22. Feb 2011, 15:44
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.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 09:47 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