home *** CD-ROM | disk | FTP | other *** search
/ 321 GAMES / 321GAMES.iso / logic / runes / runes.exe / runes.DXR / 00003.ls < prev    next >
Encoding:
Text File  |  1996-07-01  |  621 b   |  26 lines
  1. on CIPHER
  2.   global CODEWORDP
  3.   set TEMPCODEWORD to EMPTY
  4.   repeat with n = 1 to length(CODEWORDP)
  5.     set CH to char n of CODEWORDP
  6.     set CHN to charToNum(CH)
  7.     set CHN to CHN + 96 + n
  8.     set CH to numToChar(CHN)
  9.     set TEMPCODEWORD to TEMPCODEWORD & CH
  10.   end repeat
  11.   set CODEWORDP to TEMPCODEWORD
  12. end
  13.  
  14. on DECIPHER
  15.   global CODEWORDP
  16.   set TEMPCODEWORD to EMPTY
  17.   repeat with n = 1 to length(CODEWORDP)
  18.     set CH to char n of CODEWORDP
  19.     set CHN to charToNum(CH)
  20.     set CHN to CHN - 96 - n
  21.     set CH to numToChar(CHN)
  22.     set TEMPCODEWORD to TEMPCODEWORD & CH
  23.   end repeat
  24.   set CODEWORDP to TEMPCODEWORD
  25. end
  26.