一小段py转易

晶晶易 · 发表于 4 天前

[Python] 纯文本查看 复制代码

import base64
import hashlib

def password_hashing(account: str) -> str:
    # 1. 计算SHA-256哈希值
    sha256 = hashlib.sha256()
    sha256.update(account.encode('utf-8'))
    hashed_bytes = sha256.digest()

    # 4. 取前6个字节组合成长整数
    num = 0
    for i in range(6):
        num = (num << 8) | hashed_bytes

    # 5. 转换为62进制的6位字符串
    characters = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
    short_str = []
    for _ in range(6):
        num, remainder = divmod(num, len(characters))
        short_str.append(characters[remainder])
    
    return ''.join(short_str)

# 测试用例
if __name__ == "__main__":
    test_account = "844404913"
    result = password_hashing(test_account)
    print(f"账号 '{test_account}' 的加密结果: {result}")

转出来的总是不一样不知道是转utf8的姿势不对还是转62进制没写对

hongqingfeng · 发表于 3 天前

.版本 2

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
_按钮1_被单击

计算SHA256哈希值 (编辑框1.内容)

子程序名	返回值类型	公开	备注
计算SHA256哈希值	文本型		计算指定文本的SHA - 256哈希值
参数名	类型	参考	可空	数组	备注
待计算文本	文本型

变量名	类型	静态	数组	备注
hProv	整数型
hHash	整数型
数据长度	整数型
哈希长度	整数型
哈希数据	字节集
结果文本	文本型
i	整数型

' 初始化加密服务提供者
如果 (CryptAcquireContext_ (hProv, 0, 0, #PROV_RSA_AES, #CRYPT_VERIFYCONTEXT ) ＝假)
返回 (“初始化加密服务提供者失败”)
结束如果

' 创建哈希对象
如果 (CryptCreateHash_ (hProv, #CALG_SHA_256, 0, 0, hHash) ＝假)
CryptReleaseContext_ (hProv, 0)
返回 (“创建哈希对象失败”)
结束如果

' 获取待计算数据的长度
数据长度＝取字节集长度 (到字节集 (待计算文本))

' 更新哈希数据
如果 (CryptHashData_ (hHash, 到字节集 (待计算文本), 数据长度, 0) ＝假)
CryptDestroyHash_ (hHash)
CryptReleaseContext_ (hProv, 0)
返回 (“更新哈希数据失败”)
结束如果

' 获取哈希值的长度
哈希长度＝ 32 ' SHA - 256哈希值长度为32字节
哈希数据＝取空白字节集 (哈希长度)
如果 (CryptGetHashParam_ (hHash, #HP_HASHVAL, 哈希数据, 哈希长度, 0) ＝假)
CryptDestroyHash_ (hHash)
CryptReleaseContext_ (hProv, 0)
返回 (“获取哈希值失败”)
结束如果

' 将字节集转换为十六进制文本
结果文本＝ “”

计次循环首 (哈希长度, i)

结果文本＝结果文本＋取十六进制文本 (哈希数据 [i], 2)

计次循环尾 ()

' 清理资源
CryptDestroyHash_ (hHash)
CryptReleaseContext_ (hProv, 0)

返回 (结果文本)

子程序名	返回值类型	公开	备注
CryptAcquireContext_	逻辑型		"CryptAcquireContextA", 公开
参数名	类型	参考	可空	数组	备注
phProv	整数型
pszContainer	整数型
pszProvider	整数型
dwProvType	整数型
dwFlags	整数型

子程序名	返回值类型	公开	备注
CryptCreateHash_	逻辑型		"CryptCreateHash", 公开
参数名	类型	参考	可空	数组	备注
hProv	整数型
Algid	整数型
hKey	整数型
dwFlags	整数型
phHash	整数型

子程序名	返回值类型	公开	备注
CryptHashData_	逻辑型		"CryptHashData", 公开
参数名	类型	参考	可空	数组	备注
hHash	整数型
pbData	字节集
dwDataLen	整数型
dwFlags	整数型

子程序名	返回值类型	公开	备注
CryptGetHashParam_	逻辑型		"CryptGetHashParam", 公开
参数名	类型	参考	可空	数组	备注
hHash	整数型
dwParam	整数型
pbData	字节集
pdwDataLen	整数型
dwFlags	整数型

子程序名	返回值类型	公开	备注
CryptDestroyHash_	逻辑型		"CryptDestroyHash", 公开
参数名	类型	参考	可空	数组	备注
hHash	整数型

子程序名	返回值类型	公开	备注
CryptReleaseContext_	逻辑型		"CryptReleaseContext", 公开
参数名	类型	参考	可空	数组	备注
hProv	整数型
dwFlags	整数型

i支持库列表	支持库注释
spec	(未知支持库)

.版本 2 <br />
.支持库 spec <br />
 <br />
.程序集 窗口程序集_启动窗口 <br />
 <br />
.子程序 _按钮1_被单击 <br />
    计算SHA256哈希值 (编辑框1.内容) <br />
    <br />
 <br />
.子程序 计算SHA256哈希值, 文本型, , 计算指定文本的SHA - 256哈希值 <br />
.参数 待计算文本, 文本型 <br />
.局部变量 hProv, 整数型 <br />
.局部变量 hHash, 整数型 <br />
.局部变量 数据长度, 整数型 <br />
.局部变量 哈希长度, 整数型 <br />
.局部变量 哈希数据, 字节集 <br />
.局部变量 结果文本, 文本型 <br />
.局部变量 i, 整数型 <br />
 <br />
    ' 初始化加密服务提供者 <br />
    如果 (CryptAcquireContext_ (hProv, 0, 0, #PROV_RSA_AES, #CRYPT_VERIFYCONTEXT) ＝ 假) <br />
        返回 (“初始化加密服务提供者失败”) <br />
    结束 如果 <br />
 <br />
    ' 创建哈希对象 <br />
    如果 (CryptCreateHash_ (hProv, #CALG_SHA_256, 0, 0, hHash) ＝ 假) <br />
        CryptReleaseContext_ (hProv, 0) <br />
        返回 (“创建哈希对象失败”) <br />
    结束 如果 <br />
 <br />
    ' 获取待计算数据的长度 <br />
    数据长度 ＝ 取字节集长度 (到字节集 (待计算文本)) <br />
 <br />
    ' 更新哈希数据 <br />
    如果 (CryptHashData_ (hHash, 到字节集 (待计算文本), 数据长度, 0) ＝ 假) <br />
        CryptDestroyHash_ (hHash) <br />
        CryptReleaseContext_ (hProv, 0) <br />
        返回 (“更新哈希数据失败”) <br />
    结束 如果 <br />
 <br />
    ' 获取哈希值的长度 <br />
    哈希长度 ＝ 32 ' SHA - 256哈希值长度为32字节 <br />
    哈希数据 ＝ 取空白字节集 (哈希长度) <br />
    如果 (CryptGetHashParam_ (hHash, #HP_HASHVAL, 哈希数据, 哈希长度, 0) ＝ 假) <br />
        CryptDestroyHash_ (hHash) <br />
        CryptReleaseContext_ (hProv, 0) <br />
        返回 (“获取哈希值失败”) <br />
    结束 如果 <br />
 <br />
    ' 将字节集转换为十六进制文本 <br />
    结果文本 ＝ “” <br />
    .计次循环首 (哈希长度, i) <br />
        结果文本 ＝ 结果文本 ＋ 取十六进制文本 (哈希数据 <i>, 2) <br />
    .计次循环尾 () <br />
 <br />
    ' 清理资源 <br />
    CryptDestroyHash_ (hHash) <br />
    CryptReleaseContext_ (hProv, 0) <br />
 <br />
    返回 (结果文本) <br />
 <br />
 <br />
.子程序 CryptAcquireContext_, 逻辑型, "kernel32.dll",  "CryptAcquireContextA", 公开 <br />
.参数 phProv, 整数型, 传址 <br />
.参数 pszContainer, 整数型 <br />
.参数 pszProvider, 整数型 <br />
.参数 dwProvType, 整数型 <br />
.参数 dwFlags, 整数型 <br />
 <br />
.子程序 CryptCreateHash_, 逻辑型, "advapi32.dll",  "CryptCreateHash", 公开 <br />
.参数 hProv, 整数型 <br />
.参数 Algid, 整数型 <br />
.参数 hKey, 整数型 <br />
.参数 dwFlags, 整数型 <br />
.参数 phHash, 整数型, 传址 <br />
 <br />
.子程序 CryptHashData_, 逻辑型, "advapi32.dll",  "CryptHashData", 公开 <br />
.参数 hHash, 整数型 <br />
.参数 pbData, 字节集 <br />
.参数 dwDataLen, 整数型 <br />
.参数 dwFlags, 整数型 <br />
 <br />
.子程序 CryptGetHashParam_, 逻辑型, "advapi32.dll",  "CryptGetHashParam", 公开 <br />
.参数 hHash, 整数型 <br />
.参数 dwParam, 整数型 <br />
.参数 pbData, 字节集, 传址 <br />
.参数 pdwDataLen, 整数型, 传址 <br />
.参数 dwFlags, 整数型 <br />
 <br />
.子程序 CryptDestroyHash_, 逻辑型, "advapi32.dll",  "CryptDestroyHash", 公开 <br />
.参数 hHash, 整数型 <br />
 <br />
.子程序 CryptReleaseContext_, 逻辑型, "advapi32.dll",  "CryptReleaseContext", 公开 <br />
.参数 hProv, 整数型 <br />
.参数 dwFlags, 整数型

大致是这样，

花嘻嘻 · 发表于 3 天前

窗口程序集名	保留	保留	备注
程序集1

子程序名	返回值类型	公开	备注
_启动子程序	整数型

变量名	类型	静态	数组	备注
测试账号	文本型
结果	文本型

测试账号＝ “844404913”
结果＝ Password_Hashing (测试账号)
输出调试文本 (“账号 '” ＋测试账号＋ “' 的加密结果: ” ＋结果)
返回 (0)

子程序名	返回值类型	公开	备注
Password_Hashing	文本型
参数名	类型	参考	可空	数组	备注
账号	文本型

变量名	类型	静态	数组	备注
hCryptProvider	整数型
hHash	整数型
输入字节集	字节集
哈希字节集	字节集
哈希大小	整数型
长整数	长整数型
i	整数型
余数	整数型
结果	文本型
字符集	文本型

' 1. 初始化加密API - 使用十进制值代替十六进制

如果真 (CryptAcquireContext (hCryptProvider, “”, “”, 24, 4026531840) ＝ 0) ' PROV_RSA_AES

输出调试文本 (“获取加密上下文失败: ” ＋到文本 (取错误信息 ()))

返回 (“”)

' 2. 创建哈希对象

如果真 (CryptCreateHash (hCryptProvider, 32780, 0, 0, hHash) ＝ 0) ' CALG_SHA_256

输出调试文本 (“创建哈希对象失败: ” ＋到文本 (取错误信息 ()))

CryptReleaseContext (hCryptProvider, 0)

返回 (“”)

' 3. 添加数据到哈希
输入字节集＝到字节集 (账号)

如果真 (CryptHashData (hHash, 输入字节集, 取字节集长度 (输入字节集), 0) ＝ 0)

输出调试文本 (“计算哈希失败: ” ＋到文本 (取错误信息 ()))

CryptDestroyHash (hHash)

CryptReleaseContext (hCryptProvider, 0)

返回 (“”)

' 4. 获取哈希值大小 (SHA-256固定32字节)
哈希大小＝ 32 ' SHA-256 哈希值固定为32字节
' 5. 获取哈希值 - 使用固定大小
哈希字节集＝取空白字节集 (哈希大小)

如果真 (CryptGetHashParam (hHash, 2, 哈希字节集, 哈希大小, 0) ＝ 0) ' HP_HASHVAL

输出调试文本 (“获取哈希值失败: ” ＋到文本 (取错误信息 ()))

CryptDestroyHash (hHash)

CryptReleaseContext (hCryptProvider, 0)

返回 (“”)

' 6. 清理资源
CryptDestroyHash (hHash)
CryptReleaseContext (hCryptProvider, 0)
' 7. 提取前6个字节组合成长整数
长整数＝ 0

计次循环首 (6, i)

长整数＝左移 (长整数, 8) ' 左移8位

长整数＝长整数＋取字节集数据 (哈希字节集, #字节型, i)

计次循环尾 ()
' 8. 转换为62进制的6位字符串
字符集＝ “0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ”
结果＝ “”

计次循环首 (6, )

余数＝长整数％ 62

长整数＝长整数 ÷ 62

结果＝结果＋取文本中间 (字符集, 余数＋ 1, 1)

计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备注
左移	长整数型
参数名	类型	参考	可空	数组	备注
值	长整数型
位数	整数型

返回 (值 × 求次方 (2, 位数))

DLL命令名	返回值类型	公开	备注
CryptAcquireContext	整数型
DLL库文件名:
advapi32.dll
在DLL库中对应命令名:
CryptAcquireContextA
参数名	类型	传址	数组	备注
phProv	整数型
pszContainer	文本型
pszProvider	文本型
dwProvType	整数型
dwFlags	整数型

DLL命令名	返回值类型	公开	备注
CryptCreateHash	整数型
DLL库文件名:
advapi32.dll
在DLL库中对应命令名:
CryptCreateHash
参数名	类型	传址	数组	备注
hProv	整数型
Algid	整数型
hKey	整数型
dwFlags	整数型
phHash	整数型

DLL命令名	返回值类型	公开	备注
CryptHashData	整数型
DLL库文件名:
advapi32.dll
在DLL库中对应命令名:
CryptHashData
参数名	类型	传址	数组	备注
hHash	整数型
pbData	字节集
dwDataLen	整数型
dwFlags	整数型

DLL命令名	返回值类型	公开	备注
CryptGetHashParam	整数型
DLL库文件名:
advapi32.dll
在DLL库中对应命令名:
CryptGetHashParam
参数名	类型	传址	数组	备注
hHash	整数型
dwParam	整数型
pbData	字节集
pdwDataLen	整数型
dwFlags	整数型

DLL命令名	返回值类型	公开	备注
CryptDestroyHash	整数型
DLL库文件名:
advapi32.dll
在DLL库中对应命令名:
CryptDestroyHash
参数名	类型	传址	数组	备注
hHash	整数型

DLL命令名	返回值类型	公开	备注
CryptReleaseContext	整数型
DLL库文件名:
advapi32.dll
在DLL库中对应命令名:
CryptReleaseContext
参数名	类型	传址	数组	备注
hProv	整数型
dwFlags	整数型

.版本 2<br />
<br />
.程序集 程序集1<br />
<br />
.子程序 _启动子程序, 整数型, 公开<br />
.局部变量 测试账号, 文本型<br />
.局部变量 结果, 文本型<br />
<br />
测试账号 ＝ “844404913”<br />
结果 ＝ Password_Hashing (测试账号)<br />
输出调试文本 (“账号 '” ＋ 测试账号 ＋ “' 的加密结果: ” ＋ 结果)<br />
<br />
返回 (0)<br />
<br />
.子程序 Password_Hashing, 文本型, 公开<br />
.参数 账号, 文本型<br />
.局部变量 hCryptProvider, 整数型<br />
.局部变量 hHash, 整数型<br />
.局部变量 输入字节集, 字节集<br />
.局部变量 哈希字节集, 字节集<br />
.局部变量 哈希大小, 整数型<br />
.局部变量 长整数, 长整数型<br />
.局部变量 i, 整数型<br />
.局部变量 余数, 整数型<br />
.局部变量 结果, 文本型<br />
.局部变量 字符集, 文本型<br />
<br />
' 1. 初始化加密API - 使用十进制值代替十六进制<br />
.如果真 (CryptAcquireContext (hCryptProvider, “”, “”, 24, 4026531840) ＝ 0)  ' PROV_RSA_AES<br />
    输出调试文本 (“获取加密上下文失败: ” ＋ 到文本 (取错误信息 ()))<br />
    返回 (“”)<br />
.如果真结束<br />
<br />
' 2. 创建哈希对象<br />
.如果真 (CryptCreateHash (hCryptProvider, 32780, 0, 0, hHash) ＝ 0)  ' CALG_SHA_256<br />
    输出调试文本 (“创建哈希对象失败: ” ＋ 到文本 (取错误信息 ()))<br />
    CryptReleaseContext (hCryptProvider, 0)<br />
    返回 (“”)<br />
.如果真结束<br />
<br />
' 3. 添加数据到哈希<br />
输入字节集 ＝ 到字节集 (账号)<br />
.如果真 (CryptHashData (hHash, 输入字节集, 取字节集长度 (输入字节集), 0) ＝ 0)<br />
    输出调试文本 (“计算哈希失败: ” ＋ 到文本 (取错误信息 ()))<br />
    CryptDestroyHash (hHash)<br />
    CryptReleaseContext (hCryptProvider, 0)<br />
    返回 (“”)<br />
.如果真结束<br />
<br />
' 4. 获取哈希值大小 (SHA-256固定32字节)<br />
哈希大小 ＝ 32  ' SHA-256 哈希值固定为32字节<br />
<br />
' 5. 获取哈希值 - 使用固定大小<br />
哈希字节集 ＝ 取空白字节集 (哈希大小)<br />
.如果真 (CryptGetHashParam (hHash, 2, 哈希字节集, 哈希大小, 0) ＝ 0)  ' HP_HASHVAL<br />
    输出调试文本 (“获取哈希值失败: ” ＋ 到文本 (取错误信息 ()))<br />
    CryptDestroyHash (hHash)<br />
    CryptReleaseContext (hCryptProvider, 0)<br />
    返回 (“”)<br />
.如果真结束<br />
<br />
' 6. 清理资源<br />
CryptDestroyHash (hHash)<br />
CryptReleaseContext (hCryptProvider, 0)<br />
<br />
' 7. 提取前6个字节组合成长整数<br />
长整数 ＝ 0<br />
.计次循环首 (6, i)<br />
    长整数 ＝ 左移 (长整数, 8)  ' 左移8位<br />
    长整数 ＝ 长整数 ＋ 取字节集数据 (哈希字节集, #字节型, i)<br />
.计次循环尾 ()<br />
<br />
' 8. 转换为62进制的6位字符串<br />
字符集 ＝ “0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ”<br />
<br />
结果 ＝ “”<br />
.计次循环首 (6, )<br />
    余数 ＝ 长整数 ％ 62<br />
    长整数 ＝ 长整数 ÷ 62<br />
    结果 ＝ 结果 ＋ 取文本中间 (字符集, 余数 ＋ 1, 1)<br />
.计次循环尾 ()<br />
<br />
返回 (结果)<br />
<br />
<br />
<br />
.子程序 左移, 长整数型<br />
.参数 值, 长整数型<br />
.参数 位数, 整数型<br />
<br />
返回 (值 × 求次方 (2, 位数))<br />
<br />
.版本 2<br />
<br />
.DLL命令 CryptAcquireContext, 整数型, "advapi32.dll", "CryptAcquireContextA"<br />
    .参数 phProv, 整数型, 传址<br />
    .参数 pszContainer, 文本型<br />
    .参数 pszProvider, 文本型<br />
    .参数 dwProvType, 整数型<br />
    .参数 dwFlags, 整数型<br />
<br />
.DLL命令 CryptCreateHash, 整数型, "advapi32.dll", "CryptCreateHash"<br />
    .参数 hProv, 整数型<br />
    .参数 Algid, 整数型<br />
    .参数 hKey, 整数型<br />
    .参数 dwFlags, 整数型<br />
    .参数 phHash, 整数型, 传址<br />
<br />
.DLL命令 CryptHashData, 整数型, "advapi32.dll", "CryptHashData"<br />
    .参数 hHash, 整数型<br />
    .参数 pbData, 字节集<br />
    .参数 dwDataLen, 整数型<br />
    .参数 dwFlags, 整数型<br />
<br />
.DLL命令 CryptGetHashParam, 整数型, "advapi32.dll", "CryptGetHashParam"<br />
    .参数 hHash, 整数型<br />
    .参数 dwParam, 整数型<br />
    .参数 pbData, 字节集<br />
    .参数 pdwDataLen, 整数型, 传址<br />
    .参数 dwFlags, 整数型<br />
<br />
.DLL命令 CryptDestroyHash, 整数型, "advapi32.dll", "CryptDestroyHash"<br />
    .参数 hHash, 整数型<br />
<br />
.DLL命令 CryptReleaseContext, 整数型, "advapi32.dll", "CryptReleaseContext"<br />
    .参数 hProv, 整数型<br />
    .参数 dwFlags, 整数型

花嘻嘻 · 发表于 3 天前

password_hashing.zip (277.39 KB, 下载次数: 3)

laihobglei · 发表于 3 天前

窗口程序集名	保留	保留	备注
程序集1
变量名	类型	数组	备注
字符集	文本型

子程序名	返回值类型	公开	备注
_启动子程序	整数型

字符集＝ “0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ”
测试 ()
返回 (0)

子程序名	返回值类型	公开	备注
SHA256哈希	字节集
参数名	类型	参考	可空	数组	备注
账号	文本型

变量名	类型	静态	数组	备注
哈希值	文本型
字节集	字节集

如果 (取文本长度 (账号) ＝ 0)

调试输出 (“错误：账号不能为空”)

结束 ()

哈希值＝校验_取sha256 (到字节集 (账号))
调试输出 (“[SHA256] 十六进制哈希值: ” ＋哈希值)
字节集＝字节集_十六进制到字节集 (哈希值)

如果 (取字节集长度 (字节集) ＜ 6)

调试输出 (“错误：哈希字节集长度不足”)

结束 ()

返回 (字节集)

子程序名	返回值类型	公开	备注
密码哈希	文本型
参数名	类型	参考	可空	数组	备注
账号	文本型

变量名	类型	静态	数组	备注
哈希字节集	字节集
num	长整数型
i	整数型
余数	整数型
结果	文本型
o	整数型

哈希字节集＝ SHA256哈希 (账号)
调试输出 (“哈希字节集:”, 取字节集数据 (哈希字节集, #字节型, 1), 取字节集数据 (哈希字节集, #字节型, 2), 取字节集数据 (哈希字节集, #字节型, 3), 取字节集数据 (哈希字节集, #字节型, 4), 取字节集数据 (哈希字节集, #字节型, 5), 取字节集数据 (哈希字节集, #字节型, 6))
num ＝ 0

计次循环首 (6, i)

num ＝ num × 256 ＋取字节集数据 (哈希字节集, #字节型, i)

计次循环尾 ()
调试输出 (“组合后的整数:”, num)
结果＝ “”

计次循环首 (6, o)

余数＝ num ％ 62

num ＝ num ÷ 62

结果＝结果＋取文本中间 (字符集, 余数＋ 1, 1) ' 反向拼接

调试输出 (“步骤” ＋到文本 (6 － o ＋ 1) ＋ “: num=” ＋到文本 (num) ＋ “, remainder=” ＋到文本 (余数) ＋ “, char=” ＋取文本中间 (字符集, 余数＋ 1, 1))

计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备注
测试

变量名	类型	静态	数组	备注
账号	文本型
结果	文本型

账号＝ “844404913”
结果＝密码哈希 (账号)
调试输出 (“账号 '” ＋账号＋ “' 的加密结果: ” ＋结果)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br />
.支持库 spec<br />
<br />
.程序集 程序集1<br />
.程序集变量 字符集, 文本型<br />
<br />
.子程序 _启动子程序, 整数型<br />
<br />
字符集 ＝ “0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ”<br />
测试 ()<br />
返回 (0)<br />
<br />
.子程序 SHA256哈希, 字节集<br />
.参数 账号, 文本型<br />
.局部变量 哈希值, 文本型<br />
.局部变量 字节集, 字节集<br />
<br />
.如果 (取文本长度 (账号) ＝ 0)<br />
    调试输出 (“错误：账号不能为空”)<br />
    结束 ()<br />
.否则<br />
<br />
.如果结束<br />
<br />
哈希值 ＝ 校验_取sha256 (到字节集 (账号))<br />
调试输出 (“[SHA256] 十六进制哈希值: ” ＋ 哈希值)<br />
字节集 ＝ 字节集_十六进制到字节集 (哈希值)<br />
<br />
.如果 (取字节集长度 (字节集) ＜ 6)<br />
    调试输出 (“错误：哈希字节集长度不足”)<br />
    结束 ()<br />
.否则<br />
<br />
.如果结束<br />
返回 (字节集)<br />
<br />
.子程序 密码哈希, 文本型<br />
.参数 账号, 文本型<br />
.局部变量 哈希字节集, 字节集<br />
.局部变量 num, 长整数型<br />
.局部变量 i, 整数型<br />
.局部变量 余数, 整数型<br />
.局部变量 结果, 文本型<br />
.局部变量 o, 整数型<br />
<br />
哈希字节集 ＝ SHA256哈希 (账号)<br />
调试输出 (“哈希字节集:”, 取字节集数据 (哈希字节集, #字节型, 1), 取字节集数据 (哈希字节集, #字节型, 2), 取字节集数据 (哈希字节集, #字节型, 3), 取字节集数据 (哈希字节集, #字节型, 4), 取字节集数据 (哈希字节集, #字节型, 5), 取字节集数据 (哈希字节集, #字节型, 6))<br />
num ＝ 0<br />
.计次循环首 (6, i)<br />
    num ＝ num × 256 ＋ 取字节集数据 (哈希字节集, #字节型, i)<br />
.计次循环尾 ()<br />
调试输出 (“组合后的整数:”, num)<br />
<br />
结果 ＝ “”<br />
.计次循环首 (6, o)<br />
<br />
    余数 ＝ num ％ 62<br />
    num ＝ num ÷ 62<br />
    结果 ＝ 结果 ＋ 取文本中间 (字符集, 余数 ＋ 1, 1)  ' 反向拼接<br />
    调试输出 (“步骤” ＋ 到文本 (6 － o ＋ 1) ＋ “: num=” ＋ 到文本 (num) ＋ “, remainder=” ＋ 到文本 (余数) ＋ “, char=” ＋ 取文本中间 (字符集, 余数 ＋ 1, 1))<br />
.计次循环尾 ()<br />
<br />
返回 (结果)<br />
<br />
.子程序 测试<br />
.局部变量 账号, 文本型<br />
.局部变量 结果, 文本型<br />
<br />
账号 ＝ “844404913”<br />
结果 ＝ 密码哈希 (账号)<br />
调试输出 (“账号 '” ＋ 账号 ＋ “' 的加密结果: ” ＋ 结果)

输出信息：
* “[SHA256] 十六进制哈希值: b68bd4083544f5b5737a8afb73aa1fe903c2c8130e76dc1ba246287f62e521f7”
* “哈希字节集:” | 182 | 139 | 212 | 8 | 53 | 68
* “组合后的整数:” | 200711674017092
* “步骤6: num=3237285064791, remainder=50, char=O”
* “步骤5: num=52214275238, remainder=35, char=z”
* “步骤4: num=842165729, remainder=40, char=E”
* “步骤3: num=13583318, remainder=13, char=d”
* “步骤2: num=219085, remainder=48, char=M”
* “步骤1: num=3533, remainder=39, char=D”
* “账号 '844404913' 的加密结果: OzEdMD”
被调试易程序运行完毕

python打印输出：

[Python] 纯文本查看 复制代码

C:\Users\Administrator\Desktop\群消息监控\Wechat-Message\.venv\Scripts\python.exe C:\Users\Administrator\Desktop\wxhook群消息监控\Wechat-Message\dd.py 
哈希字节集: [182, 139, 212, 8, 53, 68]
组合后的整数: 200711674017092
步骤1: num=3237285064791, remainder=50, char=O
步骤2: num=52214275238, remainder=35, char=z
步骤3: num=842165729, remainder=40, char=E
步骤4: num=13583318, remainder=13, char=d
步骤5: num=219085, remainder=48, char=M
步骤6: num=3533, remainder=39, char=D
账号 '844404913' 的加密结果: OzEdMD

进程已结束，退出代码为 0

如果想让加密结果 = DMdEzO 更改易语言代码

结果＝结果＋取文本中间 (字符集, 余数＋ 1, 1)  ' 反向拼接
替换成
结果＝取文本中间 (字符集, 余数＋ 1, 1)  + 结果

python加密.e (958.67 KB, 下载次数: 1)

补充内容 (2025-7-6 01:43):
主要在于 ,十六进制转字节集。也是绕了我一大圈

zouxiangning · 发表于 3 天前

.版本 2

.子程序 password_hashing, 文本型
.参数 account, 文本型
.局部变量 sha256, 字节集
.局部变量 hashed_bytes, 字节集
.局部变量 num, 整数型
.局部变量 i, 整数型
.局部变量 characters, 文本型
.局部变量 short_str, 文本型
.局部变量 remainder, 整数型

// 1. 计算SHA-256哈希值
sha256 = 取文本SHA256(account, 假)
hashed_bytes = sha256

// 4. 取前6个字节组合成长整数
num = 0
i = 0
循环判断 (i < 6)
      num = (num << 8) | 取字节集数据(hashed_bytes, i + 1, 字节型)
      i = i + 1
循环尾 ()

// 5. 转换为62进制的6位字符串
characters = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
short_str = ""

i = 0
循环判断 (i < 6)
      remainder = num mod 62
      num = num \ 62
      short_str = 取子文本(characters, remainder + 1, 1) + short_str
      i = i + 1
循环尾 ()

返回 (short_str)
.子程序结束

// 测试用例
.子程序 _启动子程序, 整数型, 公开
.局部变量 test_account, 文本型
.局部变量 result, 文本型

test_account = "844404913"
result = password_hashing(test_account)
信息框 ("账号 '" + test_account + "' 的加密结果: " + result, 0, "测试结果")

返回 (0)
.子程序结束

		自动登录	找回密码
密码			注册

[易语言] 一小段py转易