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

Toukou/ゆうしゃアシスタントなりの暗号化 の変更点


#title(投稿プログラム : ゆうあしの暗号化システム)
#contents
// ↑この2行は削除しないでください。
// ←このように「//」で始まる行はコメントです。ページ本文には反映されません。
//------------------------------------------------------------------------------
// ・投稿年月日は、このページを投稿しようとしている今日の日付を半角数字で入力してください。
//   この日付は、投稿プログラムを自動的に年月日順に並べる際に使用されます。
// ↓↓↓
2014年1月16日投稿
// ↑↑↑
//------------------------------------------------------------------------------
// ・投稿者名は、将来的に投稿プログラム一覧に表示するために使用します。
// ・「名無しさん」のままにしておくと、匿名の方からの投稿として扱われます。
// ↓↓↓
/ 投稿者 :ゆうしゃアシスタント
// ↑↑↑
//------------------------------------------------------------------------------
// ・適当にタグをつけることができます。半角のコンマ区切りで複数つけられます。
//   タグをつけると、同じタグが付いたページを検索することができます。
// ★次に該当するプログラムは、特定のタグを設定するようご協力お願いします。
//   これらを設定すると、将来的に投稿プログラム一覧に目立つマークが付くようになる予定です。
// ・短いプログラム → 「1行プログラム」「数行プログラム」「1画面プログラム」タグのいずれか1つ
// ・初代プチコンでも動作するプログラム → 「初代対応」タグ
// ・mkII 以降専用のプログラム → 「mkII専用」タグ
// ・QRコードを掲載している → 「QRコード」タグ
// ・該当するなら「ゲーム」「実用ツール」「音楽」タグのいずれか
// ↓↓↓
/ &tag(投稿プログラム,ツール,mkll専用,QRコード);
/ &tag(投稿プログラム,ツール,mkII専用,QRコード);
// ↑↑↑

//------------------------------------------------------------------------------
// ここに概要とか書きます。
// ・** や *** で始まる行は子見出しとなります。* の数で深さが決まります。
// ・[#英数字] はページ内リンクに使用されるアンカーですが、
//   書かなかったり、消したりしてもかまいません。ない場合はランダムな文字列が自動付与されます。

* 初めまして [#z6e57a4c]
どーも。休日は中指t(ry)ゆうしゃアシスタントどす。

これが初投稿だな…

長い道のりだった…

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

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

とりあえず初投稿


** どんなの? [#k4ff5eec]
暗号化ルーチン。
** 使い方 [#m2fad3b4]
-1、RUN
-2、100%までまつ。
-3、SAVE"MEM:YACHDRMM"
-4、暗号化
YACH$に文字入れる。
GOSUB @YACHANGE1
YACHED2$に暗号化された文字が入る。
-5、複合化
YACH$に文字入れる。
GOSUB @YACHANGE2
YACHED2$に複合化された文字が入る。
-6、SELECT押しながら起動するとSAVEしたパターンをLOADする
** 注意 [#q484071e]
同じ文字は同じ文字に変換される。
** バージョン [#g7b41d74]
ver 1.0

/////////////////////////////////
// ページを作成すると、画像の添付ができるようになります。(作成する前はできません)
// 作成後のページの右上、ウィキメニューにある「添付」から画像をアップロードできます。
// (添付ファイルはページごとに別個に管理されています。必ず作成後のページに添付してください)
// 画像をアップロードしたら、以下の書式でページ内に貼り付けられます。
// #ref(添付ファイル名)

// 以下の書式で、YouTube やニコニコ動画を貼り付けられます。
// #youtube(0HWX7kovgY8)
// #nicovideo(sm13684820)

/////////////////////////////////
// QR コードがない場合は、この部分は削除してください
// 【重要】旧プチコンから mkII に転送したプログラムは、mkII で保存しなおしてから
// QR コード化すると、枚数が半分ぐらいに減ります。ぜひお試し下さい。
// 【重要】添付できるのは画像ファイルのみです。zip ファイルは解凍してください。
* QRコード [#g695e3f5]
|>|~PRG:YACHDR10|
|~1/2|~2/2|
|&ref(qr0.png,,200%);|&ref(qr1.png,,200%);|
QRコード化には、Citringoさんに手伝ってもらいました。
// ページを作成すると、QR コードの添付ができるようになります。(作成する前はできません)
// 作成後のページの右上、ウィキメニューにある「添付」から画像をアップロードできます。
// (添付ファイルはページごとに別個に管理されています。必ず作成後のページに添付してください)
// QR コードをアップロードしたら、以下の書式でページ内に貼り付けられます。
// #ref(アップロードしたファイル名)

// QR コードを大きくしたい場合は、倍率指定ができます。コンマは必ず 2 つ指定してください。
// ブラウザによっては補完がかかってボケますが、それでも問題なく読み込み可能です。
// #ref(アップロードしたファイル名,,200%)

// 複数の QR コードを貼り付けるために表組みを用いる場合、&ref(); を使用します。
// (#ref() を表に埋め込んでしまうと、古い Internet Explorer でうまく表示されません)
//| |>|>|~PRG:FILENAME|
// |~1/3|~2/3|~3/3|
// |&ref(qr0.png,,200%);|&ref(qr1.png,,200%);|&ref(qr2.png,,200%);



/////////////////////////////////

* プログラムリスト [#j55ee5c9]
#basic{{
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
}}
手写しなので、ミスあるかも。
プログラムリストの修正はメルビルさんがしてくれました。ありがとうございます。
/////////////////////////////////
// コメントを募集したくないなら、ここから下は削除してください

* CHECKER FLAG (ひとことコメント) [#k9c3dea1]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)
- ''ゆうあし'' : もしQR作ってくれる人いたら名前はYACHDR10にしてくださいね。 (&new{2014/01/16 (木) 17:48:46};)
- ''天郷思音'' : 表組の|>|は1個でいいと思う。 (&new{2014/03/05 (水) 16:43:57};)
- ''名無しさん'' : ACLSはいってるからこれはMKII専用では? (&new{2014/03/05 (水) 22:19:57};)
- ''ゆうあし'' : わかりました。今3DSなので直せるときに直します。(名無しさん (&new{2014/03/06 (木) 15:43:46};)
- ''スルメ'' : やっときました (&new{2014/03/06 (木) 17:34:06};)
- '' &color(#e67e22){&basic{gbt};};  '' : 66行目&basic{@YACHANGE1};→&basic{@YACHANGE2};では? (&new{2014/03/06 (木) 18:13:14};)
- ''ゆうあし'' : 本当にすみませんありがとうございます。すぐ修正します。(…次からはQR使おうそうしよう。)>gbtさん (&new{2014/03/06 (木) 20:39:08};)

#comment

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