Kryptering/dekryptering af tekst.

Jeg krypterer med følgende kode:

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

Og dekrypterer

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

krypt er sat til ”nØle6#7”

Ved kryptering af ”Morten Ørgaard Hansen” får jeg følgende resultat:

Teksten: Morten Ørgaard Hansen
Krypteret: »NÞÙ??Wn?ÓÆ????GÍÓ©?¥
Dekrypteret: Morten Ørgaard Hansen

Hvilket ser fint ud, men hvis ikke jeg dekrypterer i samme session går det helt galt.

Hvis jeg f.eks. gemmer de krypteret information i en tekst-fil og senere indlæser denne og dekrypterer, er resultatet desværre ikke tilfredsstillende:

Teksten: »NÞÙ??Wn?ÓÆ????GÍÓ©?¥
Krypteret: M?rt 
Dekrypteret: »eÞÙ??WneÓÆ???eÍÓ©?¥

Hvilket jeg ikke rigtigt kan bruge til noget.

Nogen der kan hjælp??

//Oergaard