Dateien verschlüsseln - von Triton

Verschlüsselung ist ein Thema für sich, mit dem man locker einige 100 Seiten füllen könnte. Aber die wichtigste, schnellste und einfachste und gleichzeitig relativ sichere Methode um Dateien - zumindest für Laien - zu verschlüsseln ist die Verschiebung der Zeichen des zu verschlüsselnden Textes durch XOR. Das könnte im einfachsten Fall etwa so aussehen:

;** Einfache Verschlüsselung ;** 2004, by Triton Graphics 800,600,16,0 txt$ = "Dies ist ein Testtext! Wie man unschwer erkennen kann :-D" zahl = "66" Cls ;Verschlüsseln in txt2$ For oft = 1 To Len(txt$) zeichen$ = Mid$(txt$,oft,1) txt2$ = txt2$+Chr$(Asc(zeichen$)Xor zahl) Next ;Entschlüsseln in txt3$ For oft = 1 To Len(txt2$) zeichen$ = Mid$(txt2$,oft,1) txt3$ = txt3$+Chr$(Asc(zeichen$)Xor zahl) Next Print "Verschlüsselter Text:"+txt2$ Print "Entschlüsselter Text:"+txt3$ WaitKey()

Der Verschlüsselungskey ist in diesem Falle 66. Wenn man das so anwendet, hält es zwar Laien ab, Profis würden aber schnell das Muster erkennen und könnten es entschlüsseln. Um es noch sicherer zu machen, muss man also während der Laufzeit den Verschlüsselungskey ändern (z.B durch zahl+oft).