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

#00301　ＭＩＳＯ        さん　RE:暗号化






◆説明◆
　このサンプルでは Edit1 に入力されたデータを暗号化し、Edit1 に
代入します。

◆注意◆
　半角文字にしか対応していません。

◆サンプルコード◆
function Angou(data: String): String;
var
   Ang, St: String;
   Len, i: Integer;
begin
   Len := Length(data);
   Ang := '';
   for i := 1 to Len do
   begin
      St := Copy(data, i, 1);
      if (St = 'A') or (St = 'a') then St := '<' else
      if (St = 'B') or (St = 'b') then St := '=' else
      if (St = 'C') or (St = 'c') then St := ':' else
      if (St = 'D') or (St = 'd') then St := ';' else
      if (St = 'E') or (St = 'e') then St := ' ' else
      if (St = 'F') or (St = 'f') then St := '9' else
      if (St = 'G') or (St = 'g') then St := '8' else
      if (St = 'H') or (St = 'h') then St := '7' else
      if (St = 'I') or (St = 'i') then St := '6' else
      if (St = 'J') or (St = 'j') then St := '5' else
      if (St = 'K') or (St = 'k') then St := '4' else
      if (St = 'L') or (St = 'l') then St := '3' else
      if (St = 'M') or (St = 'm') then St := '2' else
      if (St = 'N') or (St = 'n') then St := '1' else
      if (St = 'O') or (St = 'o') then St := '0' else
      if (St = 'P') or (St = 'p') then St := 'Z' else
      if (St = 'Q') or (St = 'q') then St := 'Y' else
      if (St = 'R') or (St = 'r') then St := 'X' else
      if (St = 'S') or (St = 's') then St := 'W' else
      if (St = 'T') or (St = 't') then St := 'V' else
      if (St = 'U') or (St = 'u') then St := 'U' else
      if (St = 'V') or (St = 'v') then St := 'T' else
      if (St = 'W') or (St = 'w') then St := 'S' else
      if (St = 'X') or (St = 'z') then St := 'R' else
      if (St = 'Y') or (St = 'y') then St := 'Q' else
      if (St = 'Z') or (St = 'z') then St := 'P' else
      if St = '0' then St := 'O' else
      if St = '1' then St := 'N' else
      if St = '2' then St := 'M' else
      if St = '3' then St := 'L' else
      if St = '4' then St := 'K' else
      if St = '5' then St := 'J' else
      if St = '6' then St := 'I' else
      if St = '7' then St := 'H' else
      if St = '8' then St := 'G' else
      if St = '9' then St := 'F' else
      if St = ' ' then St := 'E' else
      if St = ';' then St := 'D' else
      if St = ':' then St := 'C' else
      if St = '=' then St := 'B' else
      if St = '<' then St := 'A';

      Ang := Ang + St;
   end;

   Result := Ang;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   data: String;
begin
   data := Edit1.Text;
   Edit1.Text := Angou(data);
end;

                               　　　　　J-OH!(VEC05267)

Original document by J-OH!　　　　   氏 ID:(VEC05267)

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