最も簡単なテキスト暗号化のサンプル。
以下の発言を参考にさせていただきました。(そのまま？)
　 nifty:FDELPHI/MES/6/4493 瑠瓏さん
　 nifty:FDELPHI/MES/6/4501 関西人１号さん

フォームに次のコンポーネントを１ヶづつ置いて下さい。
・Memo1：暗号化したいテキストを入れておきます。
・Edit1：キーワード入力用です。
・Button1：暗号化／復号化コマンドです。

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: Integer;
  S, E: string;
  C: Char;
begin
  S:= Memo1.Text;
  E:= Edit1.Text;
  j:= 1;
  for i:= 1 to Length(S) do
  begin
    C:= E[j];
    S[i]:= Char(Ord(S[i]) xor Ord(C));
    if j = Length(E) then j:= 1 else Inc(j);
  end;
  Memo1.Text:= S;
end;

                  http://member.nifty.ne.jp/h-triton/
          ○ 快速・大容量テキストエディタ「えるの〜と」公開中 ○
          Avalon's Friendly Crew #80008  H-Triton (^^) since 1996
 


- FDELPHI  MES(16):玉石混淆みんなで作るSample蔵【見本蓄積】 00/12/30 -

Original document by H-Triton        氏 ID:(QZV11422)

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