
No.2ベストアンサー
- 回答日時:
補足を読みました。
日本語(2バイト文字)も含んでいて、バイナリで出力(保存)みたいなことを考えているのですか・・・。
いちお、自分のところにそのことをほぼ完全(?)に満たす『暗号・復号』が出来るプログラムがありましたが・・・、「VB.NET」で作成されていて、「StreamReader」を使わずにバイナリファイルを読み書きするプログラムです。
FileOpen(・・・省略・・・, OpenMode.Binary)
でファイルを開いて、
FileGet(・・・省略・・・)
で読み込んで
FilePut(・・・省略・・・)
で書き込む
それでもよろしければ、(暗号・復号)プログラムコードを丸ごと(自分のホームページで)公開しますけど・・・。
この回答への補足
ヒントを頂きありがとうございました。公開まで申し出て頂けるなんて・・・
ただ、この件に関しましては当分保留としたまま、次へ進むことになりました。
再度この話が持ち上がったときに、こちらのヒントを元にもう一度検討してみます。
解決とはいきませんでしたが、気持ちとして少々のポイントをつけさせて頂きます。
ありがとうございました。
No.1
- 回答日時:
自分が以前作成した、簡単な暗号プログラムです。
参考になればいいのですが・・・。ちなみに、この暗号プログラムは1バイト文字にしか対応していません。
「Visual Basic .NET」で作成されています。
Dim I As Integer , C As Integer
Dim Max As Integer
Dim Str1 As String '暗号前の文章を入れる変数
Dim Str2 As String '暗号後の文章を入れる変数
Str1 = "abcdefg" '暗号化する文章
Max = Len(Str1) '暗号化する文章の文字数を取得
For I = 1 to Max
C = Asc(Mid(Str1 ,I ,1)) '文字コード(十進数)を取得
C += 10 '文字コードを「10」ずらす
'▽エラー回避処理▽
If 256 < C Then
C -= 256
Else If C < 0 Then
C += 256
End If
'△エラー回避処理終わり△
Str2 &= Chr(C) '文字コードを文字に戻して変数に保存
Next I
Msgbox(Str2) '暗号結果を表示(「qrstuvw」と表示されるはずです)
この回答への補足
説明不足ですみません。
テキストの内容に、日本語も含んでいるんです。
Unicodeで出力するとか、バイナリ?なども考えているんですけど・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
プログラミングの問題と解答例...
-
COBOLのS9タイプからXタイプへ...
-
マイコンからプログラムを読み...
-
gccでスタックオーバーフローの...
-
無限ループ中にある任意のキー...
-
Arduino nano(アルドゥイーノ ...
-
指定したフォルダーを最前面表...
-
Macターミナルで実行中のプログ...
-
VB6.0 SHELLで起動...
-
スロットゲームのプログラミング
-
フレームワークとプロセスの違...
-
STATUSのZフラグについて
-
CImage::ReleaseDC()のエラーで...
-
あるプログラム実行中に別のプ...
-
「単体テスト」に関する深刻な...
-
このレジの並び方は間違ってま...
-
CreateCompatibleDCを初期化時...
-
プロセスの停止
-
Linuxでのスレッド間メッセージ...
-
ACCESS側からEXCELの書式を設定...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vba listviewにおけるtextのAli...
-
指定したフォルダーを最前面表...
-
マイコンからプログラムを読み...
-
初級者の質問――time_tについて
-
2値化した画像の黒い部分のピク...
-
プロダクションコードとは?
-
gccでスタックオーバーフローの...
-
Arduino nano(アルドゥイーノ ...
-
世界一美しいソースコード
-
expectを使用しない対話型処理
-
C言語で1000までの素数を求める...
-
c言語 コマンドライン引数
-
Ofの使い方
-
COBOLのS9タイプからXタイプへ...
-
winsockを使った通信方法
-
無限ループ中にある任意のキー...
-
通信ゲームを作りたいんですが
-
デュアルCPUでのプログラミング...
-
HPBが立ち上がらない
-
遠方界のプログラム
おすすめ情報