powerbuilder md5方法

在 PowerBuilder 中，可以使用以下代码实现 MD5 加密：

string ls_input = "Hello World"
Blob lb_crypt
long ll_len, ll_i, ll_j, ll_k, ll_l
unsigned long lul_A, lul_B, lul_C, lul_D, lul_T

// Convert input string to blob
ll_len = Len(ls_input)
lb_crypt = Blob(ll_len, EncodingANSI!)
lb_crypt = ls_input

// Pad the input string with zeros
ll_i = Mod(ll_len, 64)
if ll_i > 0 then
    ll_i = 64 - ll_i
    lb_crypt[ll_len + 1 to ll_len + ll_i] = Blob(ll_i, EncodingANSI!)
end if

// Initialize variables
lul_A = 0x67452301
lul_B = 0xEFCDAB89
lul_C = 0x98BADCFE
lul_D = 0x10325476

// Process message in 16-word blocks
for ll_i = 1 to Len(lb_crypt) step 64
    Blob lb_block = lb_crypt[ll_i to ll_i + 63]
    ulong lu_block[16]

    // Convert 64-byte block to 16 4-byte words
    for ll_j = 0 to 15
        ll_k = ll_i + ll_j * 4
        lu_block[ll_j] = MakeULong(lb_block[ll_k], lb_block[ll_k + 1], lb_block[ll_k + 2], lb_block[ll_k + 3])
    next

    // Save original values of A, B, C, and D
    ulong lul_AA = lul_A
    ulong lul_BB = lul_B
    ulong lul_CC = lul_C
    ulong lul_DD = lul_D

    // Round 1
    for ll_j = 0 to 3
        ll_k = ll_j * 4
        lul_T = lul_A + ((lul_B and lul_C) or ((not lul_B) and lul_D)) + lu_block[ll_j] + 0xD76AA478
        lul_A = lul_D
        lul_D = lul_C
        lul_C = lul_B
        lul_B = lul_B + BitShiftLeft(lul_T, 7)
    next

    // Round 2
    for ll_j = 0 to 3
        ll_k = ll_j * 4 + 1
        lul_T = lul_A + ((lul_B and lul_D) or (lul_C and (not lul_D))) + lu_block[ll_k] + 0xE8C7B756
        lul_A = lul_D
        lul_D = lul_C
        lul_C = lul_B
        lul_B = lul_B + BitShiftLeft(lul_T, 12)
    next

    // Round 3
    for ll_j = 0 to 3
        ll_k = ll_j * 4 + 2
        lul_T = lul_A + (lul_B xor lul_C xor lul_D) + lu_block[ll_k] + 0x242070DB
        lul_A = lul_D
        lul_D = lul_C
        lul_C = lul_B
        lul_B = lul_B + BitShiftLeft(lul_T, 17)
    next

    // Round 4
    for ll_j = 0 to 3
        ll_k = ll_j * 4 + 3
        lul_T = lul_A + (lul_C xor (lul_B or (not lul_D))) + lu_block[ll_k] + 0xC1BDCEEE
        lul_A = lul_D
        lul_D = lul_C
        lul_C = lul_B
        lul_B = lul_B + BitShiftLeft(lul_T, 22)
    next

    // Add original values of A, B, C, and D
    lul_A = lul_A + lul_AA
    lul_B = lul_B + lul_BB
    lul_C = lul_C + lul_CC
    lul_D = lul_D + lul_DD
next

// Convert result to hex string
string ls_result = String(lul_A, "0x") + String(lul_B, "0x") + String(lul_C, "0x") + String(lul_D, "0x")
ls_result = Replace(ls_result, "0x", "")
ls_result = Upper(ls_result)

return ls_result

以上代码实现了 MD5 加密算法，将输入字符串转化为 Blob 对象，然后对其进行处理，最终输出 32 位的十六进制字符串。