fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

MuhCrypt (Einfache Verschlüsselung von Text)

Uploader:	The_Muh
Datum/Zeit:	27.10.2008 17:11:39

dim key as string

dim text as string

dim text2 as string

dim text_dummy() as integer

dim text_crypt as string

dim key_int as integer

dim dummy as integer

dim fail as integer



input "",key

text = ucase("abcdefghjklmnopqrstuvwxyz")



for i as integer = 1 to len(key)

    key_int += asc(mid(key,i,1))

next



for i as integer = 1 to len(text)

    dummy = asc(mid(text,i,1))

    redim preserve text_dummy(i)

    text_dummy(i) += dummy + key_int

next



for i as integer = 1 to ubound(text_dummy)

    if len(str(hex(text_dummy(i)))) <> 3 then

        print "alert"

        fail = 1

        exit for

    end if

    text_crypt += str(hex(text_dummy(i)))

next



if fail <> 1 then print text_crypt else print "Crypt Failure"



for i as integer = 1 to len(text_crypt) step +3

    redim preserve text_dummy(i)

    text_dummy(i) = val("&h" & mid(text_crypt,i,3))

    text2 = text2 & chr(text_dummy(i) - key_int)

next



print text2

if text = text2 then print "Erfolg!"

sleep

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.