Simpel kryptering af tekst

Hvor \"hårdt\" skal den være krypteret?

Sad lige og legede lidt og fandt noget du kan bruge, synes egentlig den er mere end 30 point hver men det må du om, den var sjov at lave ;-)

<%@ Language=VBScript %>
<HTML>
<HEAD>
  <TITLE> Kryptering </TITLE>
</HEAD>
<BODY>
<%
 
  tekst = \"Lad os se om dette kan krypteres, med denne nøgle\"
  krypt = \"Med en Nøgle med 1 tal & specialkarakterer\"
 
  function krypter(teksten)
  for tal1 = 0 to len(teksten)
    for tal2 = 1 to len(krypt)
      kontrol = tal1*len(krypt) + tal2
      if kontrol <= len(teksten) then
        original = asc(mid(teksten,kontrol,1))
        ny = asc(mid(krypt,tal2,1))
        nytekst = nytekst + chrw(original + ny)
      end if
    next
  next
  krypter = nytekst
  end function
 
  function dekrypter(teksten)
  for tal1 = 0 to len(teksten)
    for tal2 = 1 to len(krypt)
      kontrol = tal1*len(krypt) + tal2
      if kontrol <= len(teksten) then
        original = ascw(mid(teksten,kontrol,1))
        ny = asc(mid(krypt,tal2,1))
        nytekst = nytekst + chrw(original - ny)
      end if
    next
  next
  dekrypter = nytekst
  end function
 
  ktekst = krypter(tekst)
 
  Response.Write \"Teksten: \" & tekst & \" : \" & len(tekst)
  Response.Write \"<P>Krypteret: \" & ktekst & \" : \" & len(ktekst)
  Response.Write \"<P>Dekrypteret: \" & dekrypter(ktekst)
 
%>
<P>&nbsp;</P>

</BODY>
</HTML>

hver = værd

faktisk burde de sidste linier de sådan ud:

  Response.Write \"Teksten: \" & tekst & \" : \"
  Response.Write \"<P>Krypteret: \" & ktekst & \" : \"
  Response.Write \"<P>Dekrypteret: \" & dekrypter(ktekst)
  krypt = \"hsjkehfse\"
  Response.Write \"<P>Dekrypteret med forkert nøgle: \" & dekrypter(ktekst)

strax -> Jeg afprøver den lige derhjemme, da jeg p.t. ikke har adgang til ASP, er den god, skal vi nok finde ud af point\'ne...

sone -> Det behøver ikke være nogen særlig hård kryptering, bare den ikke kan gennemskues indenfor 5 minutter...

Du kan jo se det i funktion på http://test.alphar.dk

strax -> Det er lige det script, jeg havde brug for...  Jeg opretter et nyt spørgsmål med yderligere 100 point til dig...  Hvis du er interesseret ??? :o)

Selvfølgelig :D

Hej, undslyld jeg trækker et gammelt spørgsmål op... Men jeg sad lige og havde brug for noget lignende...
Jeg har dog det problem at jeg kun kan dekryptere i samme session som jeg krypterer - altså, hvis jeg gemmer en krypteret streng i databasen, bliver den ikke dekrypteret korrekt når jeg trækker den ud igen...
Fx:

Tekst: 123456789
Nøgle: Med en Nøgle med 1 tal & specialkarakterer

Krypteret: ~??T?¤W?i

Dekrypteret: 1??4?67???

Hvis nogen kan hjælpe opretter jeg et nyt spørgsmål om emnet...
På forhånd tak

Har oprettet et nyt spørgsmål: http://www.eksperten.dk/spm/55341