すべてのカテゴリ » インターネット・パソコン » 技術・プログラミング

質問

終了

HSPのテキスト複合化について・・・
テキストのセーブ時に暗号化、ロード時に複合化したいのですが、複合化がわかりません;誰か教えてください。
--------------ソース-----------------
cls 1
objmode 1
sdim buf,65000
flg=1
mesbox buf,636,446,flg+4,0

objsize 60,24
pos 410,450:button gosub "LOAD",*file_load
pos 480,450:button gosub "SAVE",*file_save
pos 548,450:button gosub "END",*endbtn

onkey gosub *keychk
stop

*keychk
title "size="+strlen(buf)
return

*file_save
dialog "dcp",17,"暗号プログラムファイル"
if stat=0 : return
fname = refstr
if getpath(fname,2)="" : fname+=".dcp"
gosub *encrypt
notesel data
notesave fname
return

*file_load
dialog "dcp",16,"暗号プログラムファイル"
if stat=0 : return
notesel buf
noteload refstr
/* ここで復号化処理を行うこと */
objprm 0,buf
return

*encrypt
sdim data,2500*2

repeat strlen(buf),0
dst=(($12+(peek(buf,cnt)^dst2))^$b6)+256&255
dst2=dst
data+=strf("%02x",int(dst))
loop
return

*endbtn
end
------------------------------------
上の複合化処理を行うところでソースを入れて貰うと嬉しいです。それとdcpファイルと言うのを自作したのでプログラムから開くでdcpファイルを開くと自動で保存してあるテキストを複合化して表示できるようにしたいのですが、開くと上のプログラムだけ開いてしまい。テキストが表示されません、そこのソースもいれてもらえると「俺のネ申」
ですサイコーです。お願いします

並び替え:

HSPのコミュニティに質問しろよ。

===補足===
「HSP掲示板で聞けば答えが返ってくる」と回答してやってんじゃねーか?
知恵ねーのか?

  • 回答者:落鷹 (質問から3日後)
  • 3
この回答の満足度
  
お礼コメント

回答になってないのでそうゆうのはやめてください通報そしてブロックします
===補足===
もう少していねいにコメントできないんですか?敬語しりませんか?

関連する質問・相談

Sooda!からのお知らせ

一覧を見る