oracle hash password



2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
{*******************************************************}
{                                                       }
{       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.
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
{*******************************************************}
{                                                       }
{       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.
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值