OpenConsole() message.s messagezeichen.s key.s keyzeichen.s codetext.s codezeichen.s Klartext.s Klartextzeichen.s Print("Insert a message: ") message.s = Input() Print("Insert a keytext: ") key.s = Input() For i = 1 To Len(message) messagezeichen = Mid(message, i, 1) k=i % Len(key)+1 keyzeichen = Mid(key, k, 1) If messagezeichen = keyzeichen codezeichen.s= messagezeichen Else codezeichen = Chr(Asc( messagezeichen) ! Asc( keyzeichen)) EndIf codetext= codetext + codezeichen Next PrintN(codetext) For i = 1 To Len(codetext) codezeichen.s = Mid(codetext, i, 1) k=i % Len(key)+1 keyzeichen = Mid(key, k, 1) If codezeichen = keyzeichen Klartextzeichen = codezeichen Else Klartextzeichen = Chr(Asc(codezeichen) ! Asc( keyzeichen)) EndIf Klartext = Klartext + Klartextzeichen Next PrintN(Klartext) Input() ; IDE Options = PureBasic 5.00 (Windows - x86) ; CursorPosition = 11 ; FirstLine = 18