Text in bestimmte Zahlen umwandeln

[Kinimod8]

Ich hab das Projekt noch mal ganz gebaut:

[glkgereon]

ich hab verstanden, er will jetzt das umgekehrt machen, also text in integer, oder was wolltest du jetzt?

[citybreaker]

Zitat von glkbkk:

ich hab verstanden, er will jetzt das umgekehrt machen, also text in integer, oder was wolltest du jetzt?

Ich hab es inwzischen.

Kann ich das ganze auch wieder entschlüßeln?

[Nicolai1234]

Nicht so leicht, denn einer Zahl sind mehrere Buchtstaben zugewiesen!!
21 kann DB sein. Es könnte aber auch DA,DC,EA,EB,EC,FA,FB,FC sein.

Also geht es so ohne weiteres nicht!!!

[citybreaker]

Geht ja nur bis zur Zahl 9. -.-

[fkerber]

Hi!

Das wird sicherlich schwierig.

Code:

Bsp:

234 = ADG
234 = AEG
234 = AFG
234 = ADH
234 = AEH

etc.

Da kommt einiges zusammen.

Ciao fkerber

[citybreaker]

Mhm hast recht. Lass ich das lieber und nimm was aus swissdelphicenter zum ver- und entschlüßeln.

[Nicolai1234]

Wenn das zum verschlüsseln war, wäre es eh nicht sonderlich sicher gewesen!!!

[Nicolai1234]

Nochmal ein Auszug aus dem EDH:

Zitat:

Einfach Text verschlüsseln


Wie kann ich einfach Text verschlüssen, so dass er nicht auf Anhieb gelesen werden kann?

Das kannst Du mit der XOR-Methode machen. Sie ist nicht sonderlich sicher, aber ist einfach anzuwenden:

In S steht dann der verschlüsselte String drin:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender:TObject);
var 
  s: String;
  i: Integer;
begin
  // Kodieren
  s:=Edit1.Text;
  for i:=1 to length(s) do
    s[i]:=char(23 Xor Ord(s[i]));
end;

Entschlüsseln. Der verschlüsselte Text muss zuvor in S drinstehen:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender:TObject);
var 
  s: String;
  i: Integer;
begin
  // Dekodieren
  for i:=1 to length(s) do
    s[i]:=char(23 Xor ord(s[i]));
  Edit1.Text:=s;
end;

Für 23 kann eine beliebige Zahl zwischen 1 und 31 eingesetzt werden, wenn man eine Textdatei erstellen möchte. Man brauch also kaum 255 Versuche um diesen String zu entschlüsseln. Du kannst die Methode verbessern, indem Du für jeden Buchstaben eine andere Zahl nimmst. Lege eine Zahl per Random fest speichere sie als Header in der Datei und berechne aus dieser Zahl die nächsten.

--
Name: Simon Reinhardt
E-Mail : [e-mail]

[Ralf Stehle]

FloatToInt gibt es doch gar nicht ?

Ich habe gerade eine Funktion FloatToInt gesucht und herausgefunden, daß man wohl Round(ExtendedZahl) benutzen muss