Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Verschlüsselungs-algo (https://www.delphipraxis.net/38769-verschluesselungs-algo.html)

glkgereon 23. Jan 2005 21:46


Verschlüsselungs-algo
 
hi

könntet ihr mal bitte versuchen folgenden algo zu knacken?

hier der verschlüsselte Text:

Zitat:

DaS KrIeGt IhR Eh NiChT RaUs!
->
GfZ%NsHbBmFgS#Jo%QjBeOM^Tt$
kann mir einer sagen was bei dem text "DP Rulez!" rauskommt?

nur so um zu gucken wie gut der algo ist?

also ich erwarte nichts dolles, da der algo zum ent und verschlüsseln jeweils nur 9 zeilen brauch (da drin sind inits, begin, end ;) )

yankee 23. Jan 2005 22:21

Re: Verschlüsselungs-algo
 
Etwa so:
Delphi-Quellcode:
old, new:string;
new[0] :=chr(ord(old[0]+3));
new[1] :=chr(ord(old[1]+5));
for i:=2 to length(old)-1 do new[i] :=chr(ord(old[i]+i+5-i*2));
also nur vom Prinzip her. Ich weiß nicht mehr, weie das Gegenstück von chr ist, deswegen habe ich mal achr genommen. Und ich hoffe, ich habe mich bei der Berechnung in der for-Schleife nicht vertan.
Aber mal so vom Grundatz her, müsste das hinkommen. Habe leider im Moment kein Delphi installiert (windoofs sit gaanz frich installiert), deswegen ungetestet. Eben nur so vom Prinzip her konstruiert...

EDIT: achr nach Kommentar von jfheins korrigiert und achr durch ord ersetzt.
Bei meinem Beitrag weiter unten habe ich ausversehen auf zitat statt auf edit geklickt (*mit-der-hand-vor-den-kopf-schlag*)

jfheins 23. Jan 2005 22:39

Re: Verschlüsselungs-algo
 
chr gibt dir aus ner zahl den Buchstaben, ord aus nem Buchstaben die Zahl ...

yankee 24. Jan 2005 05:42

Re: Verschlüsselungs-algo
 
Zitat:

Zitat von yankee
Etwa so:
Delphi-Quellcode:
old, new:string;
new[0] :=chr(ord(old[0]+3));
new[1] :=chr(ord(old[1]+5));
for i:=2 to length(old)-1 do new[i] :=chr(ord(old[i]+i+5-i*2));
also nur vom Prinzip her. Ich weiß nicht mehr, weie das Gegenstück von chr ist, deswegen habe ich mal achr genommen. Und ich hoffe, ich habe mich bei der Berechnung in der for-Schleife nicht vertan.
Aber mal so vom Grundatz her, müsste das hinkommen. Habe leider im Moment kein Delphi installiert (windoofs sit gaanz frich installiert), deswegen ungetestet. Eben nur so vom Prinzip her konstruiert...

EDIT: achr nach Kommentar von jfheins korrigiert und achr durch ord ersetzt.

glkgereon 24. Jan 2005 11:46

Re: Verschlüsselungs-algo
 
Nein, es ist KEINE for-schleife
Ja, es wird jede stelle des strings einzeln "verschlüsselt"
Ja, es werden zahlen zum Ascii-wert hinzuaddiert
Nein, so simpel wie bei dir ist es nicht (bzw es ist anders)

ich werd den gleich zu hause ein bisschen weitermachen, mal sehen

ibp 24. Jan 2005 13:54

Re: Verschlüsselungs-algo
 
Code:
DP Rulez!
GU'Wxmdw
...du hast ein problem mit nicht darstellbaren zeichen!

glkgereon 24. Jan 2005 14:04

Re: Verschlüsselungs-algo
 
das ist kein problem, da es trotzdem ordungsgemäß rückverwandelt wird.

*Ätsch* :mrgreen:

kann mir denn einer von euch ein funktionierenden code schreiben, der genauso verschlüsselt wie meiner?

ibp 24. Jan 2005 14:09

Re: Verschlüsselungs-algo
 
ist es nun richtig oder nicht!
und die frage ist doch, wie gibt man einen text ein, der nicht darstellbare zeichen enthält?

malo 24. Jan 2005 14:12

Re: Verschlüsselungs-algo
 
Zitat:

Zitat von glkgereon
Nein, es ist KEINE for-schleife
Ja, es wird jede stelle des strings einzeln "verschlüsselt"
Ja, es werden zahlen zum Ascii-wert hinzuaddiert
Nein, so simpel wie bei dir ist es nicht (bzw es ist anders)

ich werd den gleich zu hause ein bisschen weitermachen, mal sehen

Keine For-Schleife? Wie kann man anständig verschlüsseln, ohne Schleife? :wall:

Naja, ich hab gestern ein ähnliches Verschlüsselungsprogramm geschrieben, das mir jedoch nur den veränderten ASCII-Code liefert (also ich hab es nicht wieder in Zeichen zurückverwandelt).

glkgereon 24. Jan 2005 14:12

Re: Verschlüsselungs-algo
 
ja, richtig ist es.

hmm, ist doch noch besser wenn der potenzielle "hacker" schon mühe hat die buchstaben/zeichen überhaupt einzugeben!


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:25 Uhr.
Seite 1 von 2  1 2      

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