13. juli 2005 - 15:36Der er
10 kommentarer og 2 løsninger
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:
Det var et eks. jeg fandt, så jeg ved ikke så meget om selve koden. Jeg faldt over den samme kode flere steder, hvorfor jeg valgte at bruge den. Hvis du ligger inden med en bedrer kode til en simpel kryptering/dekryptering er den velkommen. :-)
ksoren> Det er samme måde jeg gør det på, men det vil ikke gemme "speciel" bogstaver som æ,ø,å,ä,ö,ü,é osv.
Denne fejl er først opstået efter jeg brugte unicode.
//Oergaard
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.