Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Eigener Verschlüsselungsalgo ;)

Uploader:MitgliedAndT
Datum/Zeit:12.10.2007 17:30:35

' ATSEA (AndT's stupid encryption algorythmus)
dim as string PW_STR,TMP_PWSTR
dim as string ENC_TEXT,TMP_TEXT1,TMP_TEXT2
dim as integer char1,char2,char3
Input "Text zum Verschlüsseln eingeben";ENC_TEXT
Input "Passwort";PW_STR

FOR I AS INTEGER = 0 to LEN(ENC_TEXT)
    TMP_TEXT1=MID(ENC_TEXT,I ,1)
    char1=ASC(TMP_TEXT1)
    TMP_PWSTR=MID(PW_STR,I MOD LEN(PW_STR),1)
    char3=ASC(TMP_PWSTR)
' Verschlüsselungs Algo
char1 += char3
char1 = char1 shl I*3 mod 24

' Entschlüsselungs Algo
char2 = char1 shr I*3 mod 24
char2 -= char3

' Ein parr Zeilen für die Textausgabe.. (dabei hab ich mir nicht wirklich mühe gegeben xD)
    locate 3,1:  print "Verschlüsselt:"
    locate 4,I : print chr(char1)
    Print "Entschlüsselt:"
    locate 6,I : print chr(char2)
    print "Taste drücken.."

next
sleep