Textverschlüsselung

broken · Hält's aus hier Beiträge: 1 WIN 2000, WIN XP

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 · Beiträge: 1097 Erhaltene Danke: 2

broken hat folgendes geschrieben:

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

Warum nicht? :mrgreen:

Narses · Verfasst: Fr 11.08.06 18:47

Moin und

im Forum!

broken hat folgendes geschrieben:

Ich kann aber weder die Leerzeichen killen

Versuch das mal so:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Text := StringReplace(Memo1.Lines.Text,' ','',[rfReplaceAll]);
end;

broken hat folgendes geschrieben:

noch die einzelnen Positionen der Buchstaben herausfinden!!!

Und probier das mal so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

var
  StrVar: String;

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

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme