Frågan#1
Hello!
Här kommer en liten krypteringsfunktion som kan kryptera text-strängar. Översatt från gamla hederliga basic ;)
Varning! Väldigt simpelt, så tror inte att ni kan skydda material till 100 procent!
Fel kan diskuteras här
' Om ni vill kontakta mig:
' Peter Dahlgren a.k.a. Pace
' voodoofilm.org
'
' OBS! Låt denna texten vara kvar, den kan komma till nytta =)
'
' cryptKey ... Där kan du ange en "krypteringsnyckel", dvs ett tal
' i intervallen 1 till 255 (ASCII nummer med andra ord) som påverkar
' kryptering på 255 olika sätt, beroende på nummer. Det är inte säkert
' att funktionen fungerar om man använder vissa "cryptKey" värden,
' men standardvärdet 10 har jag testat, så det fungerar på alla tecken!
'
' HUR FUNGERAR KRYPTERINGEN?
' Varje bokstav läses in i en sträng och omarbetas via en matematisk
' formel tillsammans med krypteringsnyckeln.
'
' Det är egentligen ett mycket enkelt sätt, varför det är LÅNGT IFRÅN 100% SÄKERT!
' JAG TAR INGET SOM HELST ANSVAR FÖR DITT ANVÄNDANDE AV DEN HÄR KODEN,
' MODIFIERAD ELLER INTE!
'
cryptKey = 10
krypterat = Encrypt("Nu ska vi se om den här krypteringen fungerar!", cryptKey)
Response.Write ("<B>Krypterat:</B><BR> " & krypterat & "<P>")
dekrypterat = Decrypt(krypterat, cryptKey)
Response.Write ("<B>Dekrypterat:</B><BR> " & dekrypterat)
'*****************************************************************
' Dekrypterar en text sträng.
'*****************************************************************
FUNCTION Decrypt (Word, cryptKey)
Text = "" 'Nollställ sträng.
FOR SwapChar = 1 TO LEN(Word) 'Loopa antal tecken.
Char = MID(Word, SwapChar, 1) 'Ta ut ett tecken i taget.
Text = Text & CHR(ASC(Char) XOR cryptKey) 'Dekryptera tecknet.
NEXT 'Nästa tecken (loop).
Decrypt = Text 'Klart.
END FUNCTION
'*****************************************************************
' Krypterar en text sträng.
'*****************************************************************
FUNCTION Encrypt (Word, cryptKey)
Text = "" 'Nollställ sträng.
FOR SwapChar = 1 TO LEN(Word) 'Loopa antal tecken.
Char = MID(Word, SwapChar, 1) 'Ta ut ett tecken i taget.
ASCII = ASC(Char) 'Returnera ASCII-koden.
Text = Text & CHR(ASCII XOR cryptKey) 'Kryptera tecknet.
NEXT 'Nästa tecken (loop).
Encrypt = Text 'Klart.
END FUNCTION
------------------
Peter D
[Redigerat av Pace den 10 jul 2001]
[Redigerat av Pace den 10 jul 2001]