sample\hspinet\base64test.hsp » Plain Format
#include "hspinet.as"
;
; BASE64TEST
;
base="abc123"
key="password"
b64encode res,base
mes "もとの文字列:"+base
mes "BASE64文字列:"+res
sdim bres,512
b64decode bres,res
mes "再変換した文字列:"+bres
rc4encode bres, key
mes "RC4暗号化した文字列:"+bres
len=strlen(bres)
repeat len
mes strf("#%d : %02x",cnt,peek(bres,cnt))
loop
rc4encode bres, key
mes "RC4複号化した文字列:"+bres
stop