
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ランキング
-
C言語にて作成中の三目並べにつ...
-
指定したフォルダーを最前面表...
-
COBOLのS9タイプからXタイプへ...
-
c言語についてで、星占いをswit...
-
無限ループ中にある任意のキー...
-
vba listviewにおけるtextのAli...
-
VBAにてTIFFから画像を取込みた...
-
プロダクションコードとは?
-
マイコンからプログラムを読み...
-
通信ゲームを作りたいんですが
-
Ofの使い方
-
C言語primeについて
-
デジタルフィルタ
-
winsockを使った通信方法
-
DataGridViewで指定列の背景色...
-
困っています
-
プログラミングの問題と解答例...
-
Macターミナルで実行中のプログ...
-
C# シリアル通信でデータ受信...
-
TCP/IP通信時のサーバーからの受信
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vba listviewにおけるtextのAli...
-
指定したフォルダーを最前面表...
-
マイコンからプログラムを読み...
-
初級者の質問――time_tについて
-
2値化した画像の黒い部分のピク...
-
プロダクションコードとは?
-
gccでスタックオーバーフローの...
-
Arduino nano(アルドゥイーノ ...
-
世界一美しいソースコード
-
expectを使用しない対話型処理
-
C言語で1000までの素数を求める...
-
c言語 コマンドライン引数
-
Ofの使い方
-
COBOLのS9タイプからXタイプへ...
-
winsockを使った通信方法
-
無限ループ中にある任意のキー...
-
通信ゲームを作りたいんですが
-
デュアルCPUでのプログラミング...
-
HPBが立ち上がらない
-
遠方界のプログラム
おすすめ情報