この発言は
#00846　戸田  隆        さんのRE:簡単な暗号化
に対するコメントです

この発言に対し以下のコメントが寄せられています

#00848　戸田  隆        さん　RE^3:簡単な暗号化




#846 戸田  隆 さん こんにちは らせん企画の佐々木です

>      らせん企画さんが示して下さったこの暗号化ロジックですが、キーと
>    なる数字に４９以上を使用し、半角数字の｢0123456」あたりを暗号化〜
>    復元化してみると、正しく復元出来ない場合があるようです。入力側の
>    文字列に、なんらかの範囲指定制限(例えばアルファベットのみとか)が
>    あるのでしょうか？

  これはサンプルのテストの方法に問題があるのです。
一度 Caption にセットし、それを使用して復号している
ために発生しています。Caption が勝手に文字列を編集
してしまいます。

Var
  WAngou: String;
Begin
  WAngou := Angou(50, Edit1.Text);
  Label1.Caption := WAngou
  Label2.Caption := Angou(206, WAngou);
End;

  とすれば問題ないです。

             99/4/12(Mon) 07:08am  BYQ05322 らせん企画の佐々木

Original document by らせん企画      氏 ID:(BYQ05322)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。