String mithilfe von Integer in Gruppen aufteilen

[JannF]

Hallo,

Ich suche eine Möglichkeit einen String aus einem Edit Feld stammen mithilfe von aufeinanderfolgenden Zahlen in Gruppen aufzuteilen wobei jede Zahl die größe der Gruppe angibt.

Beispiel:

Editfeld: "HierStehteinBeispiel"

Zahl: 23125 94824 21937 12345


Dabei sollen bei jedem Zeichen im Beispielsatz nun zufällig Zeichen vor und nach dem Originalzeichen eingefügt werden
und die position des Originalzeichens in der Gruppe gemerkt werden.

Mein Hauptziel ist es nun, so eine einfach eigens entwickelte Verschlüsselung herzustellen,
dass die Beiden Schlüssel die dabei raus kommen zusammen Größer als der Originaltext sind ist egal

Beispiel meines Ziels:

"abc"

passwort:
"543"
und
"422"

verschlüsselt:

sjdadmbsiyca
....^....^...^

Ich hoffe ihr versteht mich und könnt mir helfen

Ergänzung aus meinem anderen Thread, was meine Idee wäre, allerdings brauche ich hilfe dabei.
Meine Idee wäre:

for (position)1 to lenght(string) do
begin
generiere zufälligen Strin einer seperat angegebenen Länge
insert(string von jetziger Position, bei angegebener Position)
end



Mommentan brauche ich eine Möglichkeit zufällige Strings mit einer angegebenen länge zu generieren.
Falls mir wer per Instant Messanger beistehen möchte würde ich mich sehr freuen, ich habe dauernd ideen wie ich es am besten löse, mir fehlt aber die Möglichkeit das in Quelltext auszudrücken, da ich noch blutiger Anfänger bin...

[BUG]

Dann rette ich mal sx2008s Beitrag aus dem mittlerweile geschlossenem K&T-Thema, das sollte die Frage nach dem zufälligen Generieren des Strings erledigen

Zitat von sx2008:

Delphi-Quellcode:

{**************************************************************************
 * NAME:    RandomString
 * DESC:    Erzeugt einen zufälligen String
 * PARAMS:  len: länge des erzeugten strings
 *          CharSet: string der die zu verwendenden Zeichen enthält
 *************************************************************************}
function RandomString(const len: Integer; const CharSet: string): string;
var
   i: Integer;
   pResult : PChar;
begin
   SetLength(Result,len); // Speicher im Result-String reservieren
   pResult := PChar(Result);
   for i := 1 to len do
   begin
      pResult^ := CharSet[1+Random(Length(CharSet))];
      Inc(pResult);
   end;
end;

// Beispiel Aufruf
teststring := RandomString(10, '0123456789ABCDEF');

[JannF]

So, nun sind alle probleme soweit gelöst.
Ich suche jetzt nach einer möglichst einfachen und effizienten Möglichkeit alles das keine Buchstaben des ASCII Zeichensatzen sin (66-90, 97-122) aus dem Editfeld verschwinden zu lassen.

[mkinzler]

Verschwinden zu lassen oder die Eingabe verhindern?