; Namen laden ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Dim Namen$(100)

datenfile = ReadFile("namen.dat")
key = ReadLine$(datenfile)

For a = 0 To 100
   Namen$(a) = Text_Verschluesselung$(ReadLine$(datenfile),key)
Next

CloseFile datenfile


; Namen speichern ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

datenfile = WriteFile("namen.dat")
key = Rand(0,1000000) ; zufälligen Key berechnen
WriteLine datenfile, key

For a = 0 To 100
   WriteLine datenfile, Text_Verschluesselung$(Namen$(a),key)
Next
   
CloseFile datenfile



Function Text_Verschluesselung$(txt$,key)

   For oft = 1 To Len(txt$)
      zeichen$ = Mid$(txt$,oft,1)
      txt_new$ = txt_new$+Chr$(Asc(zeichen$)Xor key)
   Next
   
   Return txt_new$

End Function