---
title: "enkel kryptering"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/44735-enkel-kryptering"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "sailsoft"
published: "2002-05-28T16:03:51.000Z"
updated: "2002-05-28T17:51:27.000Z"
replies: 5
views: 538
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/44735-enkel-kryptering"
---

# enkel kryptering

## #1 — sailsoft, 2002-05-28T16:03Z

jag vill ha en enkel textkryptering, någon som har en på lager ?

Permalänk: https://www.webforum.nu/p/44735

## #2 — icaaq, 2002-05-28T16:18Z

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 :)

Permalänk: https://www.webforum.nu/p/683375

## #3 — sailsoft, 2002-05-28T16:39Z

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.

Permalänk: https://www.webforum.nu/p/683390

## #4 — Gein, 2002-05-28T16:49Z

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

Permalänk: https://www.webforum.nu/p/683403

## #5 — sailsoft, 2002-05-28T17:01Z

tja, den ska bara vara enkel...

'kryptera
text = kryptera(annanntext)

text = dekryptera(text)

Permalänk: https://www.webforum.nu/p/683412

## #6 — pirro, 2002-05-28T17:51Z

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!!

Permalänk: https://www.webforum.nu/p/683442

---

Tråden på webben: https://www.webforum.nu/amne/asp/44735-enkel-kryptering