お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"RE^2:簡単な暗号化"

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

この発言に対し以下のコメントが寄せられています
#00848 戸田 隆 さん RE^3:簡単な暗号化

#846 戸田 隆 さん こんにちは らせん企画の佐々木です > らせん企画さんが示して下さったこの暗号化ロジックですが、キーと > なる数字に49以上を使用し、半角数字の「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蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。

Copyright 1996-2002 Delphi Users' Forum