Code:
cls
input "Encrypted Text >>> ", ciphr$
tex$ = ""
shift = 10 # shifty
for n = 1 to length(ciphr$)
letter$ = mid(ciphr$, n, 1)
m = asc(letter$)
tex$ = tex$ + chr(m - shift)
next n
print "Decrypted Text >>> " + tex$
Code:
cls
input "Encrypted Text >>> ", ciphr$
tex$ = ""
shift = 10 # shifty
for n = 1 to length(ciphr$)
letter$ = mid(ciphr$, n, 1)
m = asc(letter$)
tex$ = tex$ + chr(m - shift)
next n
print "Decrypted Text >>> " + tex$
Code:
cls
cls
input "Decrypted Text >>> ", in$
out$ = ""
shift = 10 # shifty
for n = 1 to length(in$)
letter$ = mid(in$, n, 1)
m = asc(letter$)
out$ = out$ + chr(m + shift)
next n
print "Encrypted Text >>> " + out$