Keskustelu: Koodit: QB: cryptaus ja decryptaus

DECLARE FUNCTION crypt$ (t$, a$)
DECLARE FUNCTION decrypt$ (t$, a$)
' yksinkertainen cryptaus & decryptaus
' by: snakari
WIDTH 80, 50 ' tää ei vaikuta mitenkään toimivuuteen
DIM SHARED kirjaimet(255) AS STRING
' ladataan kirjaimet
FOR kirjain = 1 TO 255
kirjaimet(kirjain) = CHR$(kirjain)
NEXT
' avain:
avain$ = "snakari"
' mikä cryptataan
teksti$ = "https://www.ohjelmointiputka.net"
CLS
' kryptataan
cryptattu$ = crypt$(teksti$, avain$)
decryptattu$ = decrypt$(cryptattu$, avain$)

PRINT "ennen cryptauksia: "; teksti$
PRINT "cryptauksen jälkeen: "; cryptattu$
PRINT "decryptauksen jälkeen: "; decryptattu$

FUNCTION crypt$ (t$, a$)
kohta = 1 ' avaimen aloitus kohta (vois ehkä tehä järkevämmin)
FOR nyt = 1 TO LEN(t$)
kryptaa$ = MID$(t$, nyt, 1)
avain$ = MID$(a$, kohta, 1)
' katsotaan kirjaimien arvot (tänkin vois tehä paremmin)
FOR lataa = 1 TO 255
IF kirjaimet(lataa) = kryptaa$ THEN cryptnum = lataa
IF kirjaimet(lataa) = avain$ THEN avainnum = lataa
NEXT
IF cryptnum + avainnum > 255 THEN
        docrypt$ = docrypt$ + kirjaimet(cryptnum + avainnum - 255)
        ELSE
        docrypt$ = docrypt$ + kirjaimet(cryptnum + avainnum)
END IF
IF kohta + 1 > LEN(a$) THEN kohta = 1:  ELSE kohta = kohta + 1
NEXT
crypt$ = docrypt$
END FUNCTION

FUNCTION decrypt$ (t$, a$)
kohta = 1 ' avaimen aloitus kohta (vois ehkä tehä järkevämmin)
FOR nyt = 1 TO LEN(t$)
dekryptaa$ = MID$(t$, nyt, 1)
avain$ = MID$(a$, kohta, 1)
' katsotaan kirjaimien arvot (tänkin vois tehä paremmin)
FOR lataa = 1 TO 255
IF kirjaimet(lataa) = dekryptaa$ THEN decryptnum = lataa
IF kirjaimet(lataa) = avain$ THEN avainnum = lataa
NEXT
IF decryptnum - avainnum < 1 THEN
        dodecrypt$ = dodecrypt$ + kirjaimet(decryptnum - avainnum + 255)
        ELSE
        dodecrypt$ = dodecrypt$ + kirjaimet(decryptnum - avainnum)
END IF
IF kohta + 1 > LEN(a$) THEN kohta = 1:  ELSE kohta = kohta + 1
NEXT
decrypt$ = dodecrypt$
END FUNCTION