2014年1月16日投稿 / 投稿者 :ゆうしゃアシスタント / タグ : 投稿プログラム ツール mkII専用 QRコード
どーも。休日は中指t(ry)ゆうしゃアシスタントどす。
これが初投稿だな…
長い道のりだった…
受験生だからPC買ってもらうのに骨がおれました…。
…いや受験生がPC買ってもらうなよwwwww
とりあえず初投稿
暗号化ルーチン。
同じ文字は同じ文字に変換される。
ver 1.0
QRコード化には、Citringoさんに手伝ってもらいました。
- ACLS:CLEAR:MEM$=””
- DIM CHA$(256)
- DIM CHA2$(256)
- DIM CHA(256)
- DIM CHA2(256)
- IF (BUTTON() AND 2048) THEN LOAD”MEM:YACHDRMM”:GOTO @S1
- FOR I=0 TO 255
- CHA(I)=256:CHA2(I)=256
- NEXT
- FOR I=0 TO 255
- S=0
- CHA(I)=RND(256)
- FOR O=0 TO 255
- IF (CHA2(O)==CHA(I))AND !S THEN I=I−1:S=1
- NEXT O
- LOCATE 0,0?I/255*100;”%”,
- CHA2(I)=CHA(I)
- NEXT I
- FOR I=0 TO 255
- CHA$(I)=CHR$(CHA(I))
- MEM$=MEM$+CHR$(CHA(I))
- CHA2$(CHA(I))=CHR$(I)
- ?CHA$(I);
- NEXT I
- SAVE”MEM:YACHDRMM”
- GOTO @SKIP
- @S1
- IF MEM$==”” THEN END
- FOR I=0 TO 255
- CHA(I)=ASC(MID$(MEM$,I,1))
- CHA$(I)=CHR$(CHA(I))
- CHA2$(CHA(I))=CHR$(I)
- ?CHA$(I);
- NEXT I
- @SKIP
- ?
- FOR I=0 TO 255:?CHR$(I);:NEXT
- YACH$=”DEMOCHANGE...”
- ?YACH$
- GOSUB @YACHANGE1
- ?YACHED1$
- YACH$=YACHED1$
- GOSUB @YACHANGE2
- ?YACHED2$
- END
- @YACHANGE1
- YACHED1$=””
- LE=LEN(YACH$)
- FOR YA_I=0 TO LE−1
- YAASC=ASC(MID$(YACH$,YA_I,1))
- YACHED1$=YACHED1$+CHA$(YAASC)
- NEXT YA_I
- RETURN
- @YACHANGE2
- YACHED2$=””
- LE=LEN(YACH$)
- FOR YA_I=0 TO LE−1
- YAASC=ASC(MID$(YACH$,YA_I,1))
- YACHED2$=YACHED2$+CHA2$(YAASC)
- NEXT YA_I
- RETURN
手写しなので、ミスあるかも。 プログラムリストの修正はメルビルさんがしてくれました。ありがとうございます。
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.114 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:14 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30