HSPTV!掲示板

３度目の正直。スレリスト汚してごめんｗ

;
; RoundBoat 暗号化・複合化モジュール
;
; @ RoundBoatは簡単に解読できてしまう暗号方式です。
; @ 信頼性の求められるケースでは使わないでください。
;
#module "RoundBoatEncoder"

; EncRoundBoat ... 文字列にRoundBoat暗号を施し、refstrに結果を返す
; p1     : 暗号化の対象となる文字列
; 戻り値 : refstrに暗号結果を返す
#deffunc EncRoundBoat str _p1
    v=$4491,$db8a
    p1 = _p1
    dstr = ""
    tstr = ""
    repeat
        c = peek(p1,cnt): if c=0: break
        repeat 8
            wpoke tstr, 2*cnt ,v((c&1<<cnt)!0)
        loop
        dstr += tstr
    loop
    return dstr

; DecRoundBoat ... RoundBoat暗号の施された文字列を複合し、refstrに結果を返す
; p1     : 複合化の対象となる文字列
; 戻り値 : stat(0=RoundBoatで暗号化された文字列でない/1=RoundBoatで暗号化された文字列とした複合化に成功)
;        : refstrに複合結果を返す
#deffunc DecRoundBoat str _p1
    mref _stat, 64
    v=$4491,$db8a
    p1 = _p1
    i = 0
    len = strlen(p1)
    if len\16!0: return 0 ; simple check
    len /= 16
    sdim dstr, len+1
    repeat len
        n = 0
        repeat 8
            n = n|(wpeek(p1,i+2*cnt)!v)<<cnt
        loop
        i += 16
        poke dstr, cnt, n
    loop
    _stat = 1
    return dstr

#global
#ifdef ENABLE_SAMPLE
	EncRoundBoat "HSP"
	DecRoundBoat refstr
	if stat: mes refstr
#endif

----
船丸

2008/5/29(Thu) 19:13:10|NO.16276

これは負けた。ごめんなさい。

では、hsp3util2xtに吸収するか。
----
StarratS

2008/5/29(Thu) 19:20:24|NO.16278

あ、みすった。
サンプル有効にしたまま貼ってしまった。改めて

略

船丸さん＞
ゆとり教育がどうたらこうたらと言った発言　消さないでくださいな。
かなりイカした発言だったのにね。
----
StarratS

2008/5/29(Thu) 19:21:20|NO.16279

あ、またミスったｗｗｗ一番上削除すると（投稿者削除）になっちゃうんだ？へぼぃ・・・