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

#00846　戸田  隆        さん　RE:簡単な暗号化




皆さん こんにちは らせん企画の佐々木です



Const
  CMax = 256;

Function Angou(PKey: Byte; PStr: String): String;
Var
  WNum, WLen, ix: Integer;
Begin
  Result := PStr;
  WLen := Length(PStr);
  For ix := 1 To WLen Do
  Begin
    WNum := Ord(PStr[ix]) - PKey;
      If WNum < 0 Then
        Inc(WNum, CMax);
      Result[ix] := Chr(WNum);
  End;
End;

  使い方

procedure TForm1.IroBtn1Click(Sender: TObject);
begin
  Label1.Caption := Angou(50, Edit1.Text);     { 暗号のキーと }
  Label2.Caption := Angou(206, Label1.Caption);{ 復号のキーの合計は }
end;                                           { 256(CMax)とする }

             98/7/9(Thu) 04:59pm  BYQ05322 らせん企画の佐々木

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

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