Simple Encryption / Decryption

 

Compatibilities:

Rating:

Reproduced with permission from Penworks Lingo User"s Journal

-- Source Code from the Lingo User"s Journal -- Copyright (c) 1995 by Penworks Corporation on encryptString whichString, value    set newString =""    set len=length(whichString)      repeat with x=1 to len       set thisChar =char x of whichString       set thisChar =numToChar( charToNum(thisChar) + value )       set newString =newString & thisChar    end repeat    return(newString) end encryptString on decryptString whichString, value    set newString =""    set len=length(whichString)      repeat with x=1 to len       set thisChar =char x of whichString       set thisChar =numToChar( charToNum(thisChar) - value )       set newString =newString & thisChar    end repeat    return(newString) end decryptString

Upload Provided by ABCUpload ASP