Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

Math overflow?

 [1/1] from: carlos:lorenz::gmail at: 1-Nov-2005 16:06


Hi folks I need some help to fix this script - wich I borrowed from PHP and works good with Portuguese strings - Whenever I try the link with some foreign chars it gives me errors: http://www.revistaeletronica.com.br/cgi-bin/encrypt.cgi?texto=dog ---> OK http://www.revistaeletronica.com.br/cgi-bin/encrypt.cgi?texto=cão ---> ERROR Follows the CGI script: #!rebol -cs REBOL[] encrypt: func[frase [string!] key [string!] /local result char keychar][ result: copy "" for i 1 length? frase 1[ char: copy/part at frase i 1 keychar: copy/part at key (i // length? key) 1 char: to-char (to-integer to-char char) + (to-integer to-char keychar) result: join result char ] ] decrypt: func[frase [string!] key [string!] /local result char keychar][ result: copy "" for i 1 length? frase 1[ char: copy/part at frase i 1 keychar: copy/part at key (i // length? key) 1 char: to-char (to-integer to-char char) - (to-integer to-char keychar) result: join result char ] ] cgi-input: make object! decode-cgi system/options/cgi/query-string key: "madeline" pass: encrypt cgi-input/texto key print "content-type: text/html ^/^/" print pass print decrypt pass key TIA -- *:-.,_,.-:*'``'*:-.,_,.-: Carlos Lorenz *:-.,_,.-:*'``'*:-.,_,.-: