[Erlang] 纯文本查看 复制代码 // 导入 hashlib 模块
// hashlib 模块在易语言中不可用,我们使用 Windows API 函数来实现 SHA-256 哈希。
// 定义 SHA-256 哈希计算所需的常量和函数
const
ALG_SID_SHA_256 = 12;
CALG_SHA_256 = (ALG_CLASS_HASH shl 16) or ALG_SID_SHA_256;
function CryptAcquireContextA(phProv: var long; pszContainer: string; pszProvider: string; dwProvType: long; dwFlags: long): long; stdcall; external 'advapi32.dll';
function CryptCreateHash(hProv: long; Algid: long; hKey: long; dwFlags: long; var phHash: long): long; stdcall; external 'advapi32.dll';
function CryptHashData(hHash: long; pbData: string; dwDataLen: long; dwFlags: long): long; stdcall; external 'advapi32.dll';
function CryptGetHashParam(hHash: long; dwParam: long; pbData: var long; var pdwDataLen: long; dwFlags: long): long; stdcall; external 'advapi32.dll';
function CryptReleaseContext(hProv: long; dwFlags: long): long; stdcall; external 'advapi32.dll';
function CryptDestroyHash(hHash: long): long; stdcall; external 'advapi32.dll';
// 定义 Base58 字符集
const
ALPHABET = '123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz';
// SHA-256 哈希计算
function sha256(data: string): string;
var
hProv, hHash: long;
hashData: array of byte;
hashSize, dataSize: long;
begin
CryptAcquireContextA(hProv, nil, nil, PROV_RSA_AES, CRYPT_VERIFYCONTEXT);
CryptCreateHash(hProv, CALG_SHA_256, 0, 0, hHash);
CryptHashData(hHash, data, Length(data), 0);
CryptGetHashParam(hHash, HP_HASHVAL, 0, @hashSize, 0);
SetLength(hashData, hashSize);
CryptGetHashParam(hHash, HP_HASHVAL, @hashData[0], @hashSize, 0);
result := '';
for var i := 0 to Length(hashData) - 1 do
result := result + Format('%02x', [hashData]);
CryptDestroyHash(hHash);
CryptReleaseContext(hProv, 0);
end;
// Base58 编码
function to_base58(data: string): string;
var
num, modNum: long;
begin
num := StrToInt('0x' + data);
result := '';
while num > 0 do
begin
num := DivMod(num, 58, modNum);
result := result + ALPHABET[modNum + 1];
end;
result := StrReverse(result);
end;
// Tron HEX 转 Base58
function tron_hex_to_base58(hex_address: string): string;
var
data, checksum: string;
begin
data := hex_address;
checksum := Copy(sha256(sha256(data)), 1, 8);
result := to_base58(data + checksum);
end;
// 导出函数
function convert_to_base58(hex_addr: string; output_buffer: long; buffer_size: long): long;
var
resultStr: string;
begin
resultStr := tron_hex_to_base58(hex_addr);
WriteMemory(output_buffer, @resultStr[1], Length(resultStr));
result := Length(resultStr);
end;
|