enkel kryptering

en sökning gav exempelvis denna http://www.aspencrypt.com/

men det finns massor av trådar som tagit upp detta....så försök att hitta något där, om du inte hittar nått så fråga igen :)

ingen komponent

jag vill ha en text som krypterar och ingen komponent, jag hade en gång en text som krypterade med 64 bitar men den försvann.

ska du kryptera lösenord rekommenderar jag md5, men det kanske du inte ska göra? då går det dessutom inte att decryptera

tja, den ska bara vara enkel...

'kryptera
text = kryptera(annanntext)

text = dekryptera(text)

Gjorde ett mkt enkelt för ett tag sedan...

<%
'##### Copyright Per Engström 2002*     #####
'##### [email]pereng@bigfoot.com[/email]               #####
'##### [url]http://pereng.cjb.net[/url]            #####
'##### Use this script while the        #####
'##### copyright text still remain!     #####
'##### Njoy!                            #####
key1= "A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z 1 2 3 4 5 6 7 8 9 0"
key2 ="r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 1 2 3 4 5 6 7 8 9 0 a b c d e f g h i j k l m n o p q"
function encode(msg)
if msg = "" then
exit function
end if
Dim code1, code2, hum
code1 = Split(key1," ") : code2 = Split(key2," ")
for a = 1 to len(msg)
hum = mid(msg,a,1)
	for i = 0 to Ubound(code1)
	if hum = code1(i) then
	hum = code2(i)
	exit for
	end if
	next
	nw_msg = nw_msg & hum
next
encode = nw_msg
end function
function decode(msg)
if msg = "" then
exit function
end if
Dim code1, code2, hum
code1 = Split(key1," ") : code2 = Split(key2," ")
for a = 1 to len(msg)
hum = mid(msg,a,1)
	for i = 0 to Ubound(code1)
	if hum = code2(i) then
	hum = code1(i)
	exit for
	end if
	next
	nw_msg = nw_msg & hum
next
decode = nw_msg
end function
%>
Kryptera/Dekryptera:
<%=encode("CxGC")%>
<%=decode("aVea")%>
(båda blir text)
key1 e alfabetet och key2 e nyckeln!

!!Njoy!!