40 lines
1.4 KiB
SQL
40 lines
1.4 KiB
SQL
-- Copyright 2018 Tanel Poder. All rights reserved. More info at http://tanelpoder.com
|
|
-- Licensed under the Apache License, Version 2.0. See LICENSE.txt for terms & conditions.
|
|
|
|
@saveset
|
|
set serverout on
|
|
|
|
def convstr=0123456789abcdfghjkmnpqrstuvwxyz
|
|
def base=32
|
|
|
|
declare
|
|
r number := 0;
|
|
j number := 0;
|
|
a number := 0;
|
|
begin
|
|
|
|
for i in 1..length('&1') loop
|
|
|
|
j := length('&1') - i + 1;
|
|
-- dbms_output.put_line('i='||i||' j='||j||' chr='||substr('&1',i,1));
|
|
|
|
a := (( power(&base, j-1) * (instr('&convstr',substr('&1',i,1))-1) ));
|
|
-- dbms_output.put_line(' a='||a);
|
|
|
|
r := r + a;
|
|
|
|
-- dbms_output.put_line(' r='||to_char(r,'XXXXXXXXXXXXXXXX'));
|
|
-- dbms_output.put_line('power='||to_char(power(&base, i-1)));
|
|
-- dbms_output.put_line(' mult='||to_char(instr('&convstr',substr('&1',i,1))-1) );
|
|
-- dbms_output.put_line('--');
|
|
dbms_output.put_line('j='||j||' i='||i||' c='||substr('&1',i,1)||' mult='||to_char(instr('&convstr',substr('&1',i,1))-1)||' power='||to_char(power(&base, i-1))||' a='||a );
|
|
end loop;
|
|
dbms_output.put_line('result= '||r||' 0x'||trim(to_char(r, 'xxxxxxxxxxxxxxxxxxxxxxxx')));
|
|
dbms_output.put_line('last 4B= '||trunc(mod(r,power(2,32)))||' 0x'||trim(to_char(trunc(mod(r,power(2,32))), 'xxxxxxxxxxxxxxxxxxxxxxxx')));
|
|
|
|
dbms_output.put_line(chr(10)||'sqlid=&1 hash_value='|| trunc(mod(r,power(2,32))) );
|
|
end;
|
|
/
|
|
|
|
@loadset
|