Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Sehr eifache Verschlüsselung! (https://www.delphipraxis.net/9971-sehr-eifache-verschluesselung.html)

Die Muhkuh 8. Okt 2003 18:56


Sehr eifache Verschlüsselung!
 
Hi,

wie kann ich z.b von einem Richedit die Buchstaben auslesen und für a = 1, b = 2 etc... oder auch andere Zahlen!
Diese sollen dann in einer Datei gespeichert werden und wenn man sie wieder öffnet dann soll der richtige text da stehen!

nur wie geht das?


Spiddi

Uncle Cracker 8. Okt 2003 20:13

Re: Sehr eifache Verschlüsselung!
 
Probier's doch mal mit StringReplace und Arrays, das ist die einfachste Methode, die mir einfällt.

Stanlay Hanks 8. Okt 2003 20:55

Re: Sehr eifache Verschlüsselung!
 
Hallo! Du könntest auch mit RichEdit1.Text[i] in einer For Schleife alle Buchstaben durchgehen. Allerdings kannst du mit Text[i] nichts zuweisen, sondern nur auslesen. D.h. du müsstest das irgendwie anders lösen. (Du könntest dann zum Beispiel die Markierung dementsprechend setzen => SelStart, SelLength)
Aber prinzipiell kannst du bei sowas glaub ich nicht von Verschlüsselung reden (wenn auch sehr, sehr einfach), denn das hat man warscheinlich binnen weniger Minuten raus, das System. :wink:

Man liest sich, Stanlay :hi:

Christian Seehase 8. Okt 2003 21:33

Re: Sehr eifache Verschlüsselung!
 
Moin Stanlay,

die Methode RichEdit.Text in einer Schleife durchzugehen, ist eine sichere Methode das Programm langsam zu machen ;-)
Besser wäre es, RichEdit.Text in ein Stringvariable zu übertragen, und dann mit dieser weiterzuarbeiten.
Die Eigenschaft Text wird bei jedem Zugriff aus den Zeilen zusammengesetzt (beim Lesen), bzw. werden aus ihr die einzelnen Zeilen wieder aufgebaut (beim Schreiben).


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