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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/21 09:42
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- C言語・C++・C# [C言語] コメント文字列を無視して、数値データを読み込むプログラム部分について 5 2022/10/05 11:03
- C言語・C++・C# c言語の問題です 2 2023/07/21 10:51
- Windows 10 再起動後 Pinが使用できず、PC(windows11)にサインインできない 3 2022/08/30 20:53
- その他(形式科学) RSA暗号について 1 2022/06/01 00:16
- 仕事術・業務効率化 効率的な勉強方法(分野問わず)を教えてください 1 2023/08/16 01:33
- その他(プログラミング・Web制作) Windowsのマクロプログラムで、こんなことできますか? 3 2022/06/28 14:30
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Outlook(アウトルック) 【 Windows 10 】アドレス帳に正しくインポートを完了させたい。 3 2023/04/23 13:41
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
プロダクションコードとは?
-
COBOLのS9タイプからXタイプへ...
-
世界一美しいソースコード
-
R言語の逆行列計算について
-
processingで雪が積もるような...
-
マイコンからプログラムを読み...
-
Arduino nano(アルドゥイーノ ...
-
Labviewって・・・
-
指定したフォルダーを最前面表...
-
Excel VBA で、データベースフ...
-
vba listviewにおけるtextのAli...
-
Visual C++でDESを使って文字列...
-
vb6で別のアプリのボタン操作に...
-
SMC-4DL-PCIボードでのプログラム
-
三次元のグラフを書きたいので...
-
C言語でのソケット通信のclose
-
GOTO文の使い方
-
VBAにてTIFFから画像を取込みた...
-
初級者の質問――time_tについて
-
C言語でpingを実行してその結果...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
指定したフォルダーを最前面表...
-
vba listviewにおけるtextのAli...
-
プロダクションコードとは?
-
COBOLのS9タイプからXタイプへ...
-
C言語primeについて
-
マイコンからプログラムを読み...
-
2値化した画像の黒い部分のピク...
-
初級者の質問――time_tについて
-
Webプログラムってネイティブア...
-
c言語のサイコロを100回振って...
-
Arduino nano(アルドゥイーノ ...
-
Excel VBA で、データベースフ...
-
無限ループ中にある任意のキー...
-
processingで雪が積もるような...
-
プログラミングの問題と解答例...
-
三次元のグラフを書きたいので...
-
VBコンソールアプリ(.NET Frame...
-
gccでスタックオーバーフローの...
-
javaで辞書プログラムを作りたい.
-
アプリ終了時にタスクトレイか...
おすすめ情報