プチコンまとめWiki (初代/mkII)

投稿プログラム : ゆうあしの暗号化システム

2014年1月16日投稿 / 投稿者 :ゆうしゃアシスタント / タグ : 投稿プログラム ツール mkII専用 QRコード

初めまして

どーも。休日は中指t(ry)ゆうしゃアシスタントどす。

これが初投稿だな…

長い道のりだった…

受験生だからPC買ってもらうのに骨がおれました…。

…いや受験生がPC買ってもらうなよwwwww

とりあえず初投稿

どんなの?

暗号化ルーチン。

使い方

  • 1、RUN
  • 2、100%までまつ。
  • 3、SAVE"MEM:YACHDRMM"
  • 4、暗号化 YACH$に文字入れる。 GOSUB @YACHANGE1 YACHED2$に暗号化された文字が入る。
  • 5、複合化 YACH$に文字入れる。 GOSUB @YACHANGE2 YACHED2$に複合化された文字が入る。
  • 6、SELECT押しながら起動するとSAVEしたパターンをLOADする

注意

同じ文字は同じ文字に変換される。

バージョン

ver 1.0

QRコード

PRG:YACHDR10
1/22/2
qr0.pngqr1.png

QRコード化には、Citringoさんに手伝ってもらいました。

プログラムリスト

  1. ACLS:CLEAR:MEM$=””
  2. DIM CHA$(256)
  3. DIM CHA2$(256)
  4. DIM CHA(256)
  5. DIM CHA2(256)
  6. IF (BUTTON() AND 2048) THEN LOAD”MEM:YACHDRMM”:GOTO @S1
  7. FOR I=0 TO 255
  8. CHA(I)=256:CHA2(I)=256
  9. NEXT
  10. FOR I=0 TO 255
  11. S=0
  12. CHA(I)=RND(256)
  13. FOR O=0 TO 255
  14. IF (CHA2(O)==CHA(I))AND !S THEN I=I−1:S=1
  15. NEXT O
  16. LOCATE 0,0?I/255*100;”%”,
  17. CHA2(I)=CHA(I)
  18. NEXT I
  19. FOR I=0 TO 255
  20. CHA$(I)=CHR$(CHA(I))
  21. MEM$=MEM$+CHR$(CHA(I))
  22. CHA2$(CHA(I))=CHR$(I)
  23. ?CHA$(I);
  24. NEXT I
  25. SAVE”MEM:YACHDRMM”
  26. GOTO @SKIP
  27. @S1
  28. IF MEM$==”” THEN END
  29. FOR I=0 TO 255
  30. CHA(I)=ASC(MID$(MEM$,I,1))
  31. CHA$(I)=CHR$(CHA(I))
  32. CHA2$(CHA(I))=CHR$(I)
  33. ?CHA$(I);
  34. NEXT I
  35. @SKIP
  36. FOR I=0 TO 255:?CHR$(I);:NEXT
  37. YACH$=”DEMOCHANGE...”
  38. ?YACH$
  39. GOSUB @YACHANGE1
  40. ?YACHED1$
  41. YACH$=YACHED1$
  42. GOSUB @YACHANGE2
  43. ?YACHED2$
  44. END
  45. @YACHANGE1
  46. YACHED1$=””
  47. LE=LEN(YACH$)
  48. FOR YA_I=0 TO LE−1
  49. YAASC=ASC(MID$(YACH$,YA_I,1))
  50. YACHED1$=YACHED1$+CHA$(YAASC)
  51. NEXT YA_I
  52. RETURN
  53. @YACHANGE2
  54. YACHED2$=””
  55. LE=LEN(YACH$)
  56. FOR YA_I=0 TO LE−1
  57. YAASC=ASC(MID$(YACH$,YA_I,1))
  58. YACHED2$=YACHED2$+CHA2$(YAASC)
  59. NEXT YA_I
  60. RETURN

手写しなので、ミスあるかも。 プログラムリストの修正はメルビルさんがしてくれました。ありがとうございます。

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • ゆうあし : もしQR作ってくれる人いたら名前はYACHDR10にしてくださいね。 (2014/01/16 (木) 17:48:46)
  • 天郷思音 : 表組の|>|は1個でいいと思う。 (2014/03/05 (水) 16:43:57)
  • 名無しさん : ACLSはいってるからこれはMKII専用では? (2014/03/05 (水) 22:19:57)
  • ゆうあし : わかりました。今3DSなので直せるときに直します。(名無しさん (2014/03/06 (木) 15:43:46)
  • スルメ : やっときました (2014/03/06 (木) 17:34:06)
  • gbt : 66行目@YACHANGE1@YACHANGE2では? (2014/03/06 (木) 18:13:14)
  • ゆうあし : 本当にすみませんありがとうございます。すぐ修正します。(…次からはQR使おうそうしよう。)>gbtさん (2014/03/06 (木) 20:39:08)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.029 秒 | このページの最終更新 : 2014/03/06 (木) 20:42:35 (1960d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30