{*******************************************************}
{                                                       }
{       Oracle Password Hash                            }
{                                                       }
{       版权所有 (C) 2009 Mail:978399@qq.com  Open[xgc] }
{                                                       }
{*******************************************************}

unit OracleHASH;

interface

uses
  Windows,SysUtils;

type
   DES_cblock = array[0..7] of Byte;
   des_ks_struct = packed record
    ks: DES_cblock; 
    weak_key: Integer; 
  end;
  des_key_schedule = array[1..16] of des_ks_struct;

procedure  DES_cbc_encrypt(Source,Dest: pointer; Len: integer; Key, IV: Pointer; Enc:integer); cdecl; external 'libeay32.dll';
procedure DES_set_odd_parity(Key: des_cblock); cdecl; external 'libeay32.dll';
function DES_set_key_checked(key: des_cblock; schedule: des_key_schedule): Integer;cdecl; external 'libeay32.dll';
function Encrypt(name:widestring):string;

implementation


function Encrypt(name:widestring):string;
var
    iv,key: DES_cblock ;
    key_schedule : des_key_schedule;
    num,len,i:word;
    a: array [1..500]of byte;
    b: array [1..500] of byte;
begin
    KEY[0] := $01;
    KEY[1] :=$23;
    KEY[2] :=$45;
    KEY[3] :=$67;
    KEY[4] :=$89;
    KEY[5] :=$AB;
    KEY[6] :=$CD;
    KEY[7] :=$EF;
    len := length(name) *2;
    if len mod 8 <>0 then
    num := len + 8 - len mod 8
    else
    num := len ;
   zeromemory(@a,500);
    move(name[1],a[2],len);
   zeromemory(@b,500);
   ZeroMemory(@iv, SizeOf(iv));
    DES_set_odd_parity(KEY);
    DES_set_key_checked(key,key_schedule);
    DES_cbc_encrypt(@a,@b,len,@key_schedule[1],@iv,1);
    move(b[num-7],key[0],8);
    DES_set_odd_parity(key);
    DES_set_key_checked(key,key_schedule);
    DES_cbc_encrypt(@a,@b,len,@key_schedule[1],@iv,1);
     move(b[num-7],key[0],8);
     for i:=0 to 7 do
       Result := Result + inttohex(key[i],2);
end;
end.

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！