아래는 델마당(http://delmadang.com) 강좌, 팁 정보 게시판에 박후선 님이 올린 델파이를 이용한 암호화/복호화 소스이다.

unit UEncrypt;

interface

function Encrypt(const S: String; Key: Word): String;
function Decrypt(const S: String; Key: Word): String;

implementation

uses SysUtils;

const
C1 = 74102;
C2 = 12337;
HexaChar : array [0..15] of Char = 
( '0', '1', '2', '3', '4', '5', '6', '7', '8', 
'9','A', 'B', 'C', 'D', 'E', 'F' );
// Byte로 구성된 데이터를 Hexadecimal 문자열로 변환
function ValueToHex(const S : String): String;
var
  I : Integer;
begin
  SetLength(Result, Length(S)*2); // 문자열 크기를 설정
  for I := 0 to Length(S)-1 do
  begin
    Result[(I*2)+1] := HexaChar[Integer(S[I+1]) shr 4];
    Result[(I*2)+2] := HexaChar[Integer(S[I+1]) and $0f];
  end;
end;
// Hexadecimal로 구성된 문자열을 Byte 데이터로 변환
function HexToValue(const S : String) : String;
var
  I : Integer;
begin
  SetLength(Result, Length(S) div 2);
  for I := 0 to (Length(S) div 2) - 1 do
  begin
    Result[I+1] := Char(StrToInt('$'+Copy(S,(I*2)+1, 2)));
  end;
end;
// 암호걸기
function Encrypt(const S: String; Key: Word): String;
var
  I: byte;
  FirstResult : String;
begin
  SetLength(FirstResult, Length(S)); // 문자열의 크기를 설정
  for I := 1 to Length(S) do begin
    FirstResult[I] := char(byte(S[I]) xor (Key shr 8));
    Key := (byte(FirstResult[I]) + Key) * C1 + C2;
  end;
  Result := ValueToHex(FirstResult);
end;
// 암호풀기
function Decrypt(const S: String; Key: Word): String;
var
  I: byte;
  FirstResult : String;
begin
  FirstResult := HexToValue(S);
  SetLength( Result, Length(FirstResult) );
  for I := 1 to Length(FirstResult) do
  begin
    Result[I] := char(byte(FirstResult[I]) xor (Key shr 8));
    Key := (byte(FirstResult[I]) + Key) * C1 + C2;
  end;
end;
end.

위의 소스를 PHP로 변환해 보았다.
Integer Overflow까지 감안해서 암호화/복호화가 이루어졌는데, PHP의 경우 INT형 범위를 초과하게 되면 자동으로 Float 형으로 변환이 되어 버리기 때문에 강제 타입 캐스팅 (int)을 통해 원하는 결과를 얻을 수 있었다.

아래는 그 소스.

<?PHP
/*
   Date   : 2008년 2월 27일
   Author : 김광철 (k2club@hanmail.net)
   사용 예]
    $pid = new ENCDEC();
    $pid->Encrypt(4936);
    => 231F3051D40B78DB37FB0000004936
    $pid->Decrypt($fid);
    => 0000004936
*/ 
  class ENCDEC {
    FUNCTION ENCDEC() {
      // Class Initialization
    }
    FUNCTION ASCII2HEX($ASCII) {
      $len = strlen($ASCII);
      for ($i=0; $i<$len; $i++) 
        $result.=sprintf("%02X",ord(substr($ASCII,$i,1)));
      return $result;
    }
    FUNCTION HEX2ASCII($HEX) {
      $len = strlen($HEX);
      for ($i=0; $i<$len; $i+=2) 
        $result.=sprintf("%s", chr(hexdec(substr($HEX,$i,2))));
      return $result;
    }
    FUNCTION Make_HexaString($prg_id) {
      $FirstResult = '0';
      $Key         = $prg_id;
      $S           = sprintf("%010d", $prg_id);
      for($i = 0; $i <= strlen($S)-1; $i++) {
        $FirstResult[$i] = CHR(ORD($S[$i]) ^ ($Key>>8));
        $Key = (int)ORD($FirstResult[$i]) + (int)$Key;
        $Key = (int)($Key * 74102);
        $Key = (int)($Key + 12337);  
      }
      return $FirstResult;
    }
  
    FUNCTION Encrypt($prg_id) {
      if($prg_id == 0) return '';
      return $this->ASCII2HEX($this->Make_HexaString($prg_id)).sprintf("%010d", $prg_id);
    }
    FUNCTION Make_AsciiString($fid_id) {
      $Result = '0';
      $str = substr($fid_id, 0, strlen($fid_id) - 10);
      $Key = (int)substr($fid_id, strlen($fid_id) - 10);
      $FirstResult = $this->HEX2ASCII($str);
      for($i=0; $i <= strlen($FirstResult)-1; $i++) {
        $Result[$i] = CHR(ORD($FirstResult[$i]) ^ ($Key>>8));
        
        $Key = (int)ORD($FirstResult[$i]) + (int)$Key;
        $Key = (int)($Key * 74102);
        $Key = (int)($Key + 12337);  
      } 
      return $Result;
    }
    FUNCTION Decrypt($fid_id) {
      if($fid_id == '') return '';
      return $this->Make_AsciiString($fid_id);    
    }
  }
  // http://BASE_URL?prg_id=Value
  $pid = new ENCDEC();
  $fid = $pid->Encrypt($_GET[prg_id]);
  echo $fid."<BR><BR>";
  echo $pid->Decrypt($fid);
?>