HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
0529
StarratSRoundBoat暗号化・複合化モジュール公開0解決


StarratS

リンク

2008/5/29(Thu) 19:25:18|NO.16280

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

; ; 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

あ、またミスったwww一番上削除すると(投稿者削除)になっちゃうんだ?へぼぃ・・・



この記事に返信する


ONION software Copyright 1997-2023(c) All rights reserved.