Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Text verschlüsseln (https://www.delphipraxis.net/38542-text-verschluesseln.html)

ELWOOD 20. Jan 2005 16:37


Text verschlüsseln
 
Das Programm soll so funktionieren dass die Buchstaben aus dem ABC und den Buchstaben ä ö ü Mit anderen zeichen belegt werden, z.B. A wird mit X belegt, B mit J, C mit Z usw.. Der Schlüssel( im Beispiel X,J,Z) soll aber änderbar sein wie z.B. statt X,J,Z nimmt man dann S,G,O. jetzt hab ich aber keine ahnung wie das geht, ist für die schule. Könnt ihr mir helfen???

Matze 20. Jan 2005 16:47

Re: Text verschlüsseln
 
Wir lösen hier keine kompletten Aufgaben, zeig doch mal deinen Ansatz, den du hoffentlich schon hast. ;)

sakura 20. Jan 2005 16:48

Re: Text verschlüsseln
 
Mache doch mal einen Anfang und frage dann das konkrete Problem nach - das 0-Bock-Prinzip ist durch den Kodex hier nicht zugelassen ;)

...:cat:...

Nikolas 20. Jan 2005 16:48

Re: Text verschlüsseln
 
Willst du dann einen Schlüssel aus 29 Zeichen oder willst du aus diesem SChlüssel aus drei Zeichen der Rest errechnen?

Wenn du den Schlüssel aus 29 Zeichen benutzen willst, kannst du eifach ein array[1..29] of string nehmen und ihn da reinschreiben. Dann kannst du per Delphi-Referenz durchsuchenord aus einem 'A' eine 1 machen und dann um 'A' zu ersetzen einfach den Buchstaben an der ersten Stelle im Array benutzen.

Jan 20. Jan 2005 16:50

Re: Text verschlüsseln
 
Das klingt wie eine einfache cäsar chiffrierung.
Ich verstehe zwar nicht, was du jetzt unter schlüssel verstehst, aber du kannst einfach einen bestimmten wert im ascii code auf deine zu verschlüsselnden Buchstaben addieren. also wenn zum beispiel der ascii wert des zu verschlüsselnden zeichens 60 ist, kannst du einfach 5 addieren und dann bekommst du ein anderes Zeichen.
Hoffe das hilft im Groben.
Gruß
Jan


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:58 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz