|
可以直接用 2进制模式数组。 配合 FORX *L start step end,游标
- @TEAM ENVI^ EnviMode=1| ENVI^ ForceLocal=1
- SET$# &passphrase=0x61 0xA7 0xA2 0x6F 0xAD 0x45 0xAF 0x1B 0x5B 0xB0 0x42 0xF8 0xD8 0x6D 0x2E 0xF6 0xD9 0x83 0x6E 0x4E 0xFB 0xC7 0xDF 0x00 0x59 0x3A 0x99 0x4E 0x0A 0x8D 0x8B 0x2F 0x68 0xFE 0x71 0xCE 0xBB 0x8E 0xEB 0x83 0xFE 0xB9 0xA3 0xCA 0xCE 0xC6 0xEC 0xE6 0x45 0x6A 0x76 0x82 0x1C 0xE9 0xD5 0x63 0x93 0x17 0x17 0x9D 0x08 0x2A 0x15 0x44
- SET$# &passphrase2=0x61 0xA7 0xA2 0x6F 0xAD 0x45 0xAF 0x1B 0x5B 0xB0 0x42 0xF8 0xD8 0x6D 0x2E 0xF6 0xD9 0x83 0x6E 0x4E 0xFB 0xC7 0xDF 0x00 0x59 0x3A 0x99 0x4E 0x0A 0x8D 0x8B 0x2F 0x68 0xFE 0x71 0xCE 0xBB 0x8E 0xEB 0x83 0xFE 0xB9 0xA3 0xCA 0xCE 0xC6 0xEC 0xE6 0x45 0x6A 0x76 0x82 0x1C 0xE9 0xD5 0x63 0x93 0x17 0x17 0x9D 0x08 0x2A 0x15 0x44
- CALL pbkdf2
- _SUB pbkdf2
- SET &n=1
- SET &byte_n=0
- SET &tmp=0
- FORX *L 1 1 8000,&n, FORX *L 0 1 4,&byte_n, ^CALC #&tmp= %%passphrase?char:%&byte_n%%% @ %%passphrase2?char:%&byte_n%%%
- MESS ok
- _END
复制代码
|
|