---
title: "Crypt (kryptera text-strängar)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38201-crypt-kryptera-text-strängar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Pace"
published: "2001-07-10T21:12:00.000Z"
updated: "2001-07-10T21:12:00.000Z"
replies: 0
views: 1222
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/38201-crypt-kryptera-text-strängar"
---

# Crypt (kryptera text-strängar)

## #1 — Pace, 2001-07-10T21:12Z

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](http://cgi.webforum.nu/wf/Forum11/HTML/005198.html)

```
' 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
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/38201-crypt-kryptera-text-strängar