#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