Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi String mithilfe von Integer in Gruppen aufteilen (https://www.delphipraxis.net/168861-string-mithilfe-von-integer-gruppen-aufteilen.html)

JannF 14. Jun 2012 21:49

Delphi-Version: 2010

String mithilfe von Integer in Gruppen aufteilen
 
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 14. Jun 2012 23:58

AW: String mithilfe von Integer in Gruppen aufteilen
 
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 :wink:
Zitat:

Zitat von sx2008 (Beitrag 1170956)
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 19. Jun 2012 00:22

AW: String mithilfe von Integer in Gruppen aufteilen
 
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 19. Jun 2012 06:15

AW: String mithilfe von Integer in Gruppen aufteilen
 
Verschwinden zu lassen oder die Eingabe verhindern?


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:54 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