Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Textverschlüsselung


broken - Fr 11.08.06 18:34
Titel: Textverschlüsselung
Sers erstmal!
Ich habe folgendes Problem:

Ich habe versucht eine Prog zu schreiben, dass Text durch killen der Leerzeichen und umstellen der nach festem System
zu verschlüsseln.
System: Bei 32 Zeichen pro Zeilen werden die Zeichen 16 und 17 vorne angestellt und von da an immer von der mitte aus
abwechselnd rechts und links die zeichen abgeschnitten und angehängt.
Bsp.: NIEDERLASSUNGALGÄUGEWERBEPARK154 --> GÄLUAGGE usw.

Ich kann aber weder die Leerzeichen killen noch die einzelnen Positionen der Buchstaben herausfinden!!!


Chryzler - Fr 11.08.06 18:40
user profile iconbroken hat folgendes geschrieben:
Ich kann aber weder die Leerzeichen killen noch die einzelnen Positionen der Buchstaben herausfinden!!!

Warum nicht? :mrgreen:


Narses - Fr 11.08.06 18:47
Moin und :welcome: im Forum!

user profile iconbroken hat folgendes geschrieben:
Ich kann aber weder die Leerzeichen killen

Versuch das mal so:

Delphi-Quelltext 
1:
2:
3:
4:
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Text := StringReplace(Memo1.Lines.Text,' ','',[rfReplaceAll]);
end;


user profile iconbroken hat folgendes geschrieben:
noch die einzelnen Positionen der Buchstaben herausfinden!!!

Und probier das mal so:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
 
var
  StrVar: String;

begin
  StrVar := 'Test';
  ShowMessage(StrVar[1]);

cu
Narses


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!