python转易语言

口算MD5 · 发表于 2024-10-30 16:21:16

本帖最后由口算MD5 于 2024-10-30 16:22 编辑

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

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

' d = b'65151f8d966bf596'
' e = b'88ca0f0ea1ecf975'
' def f(g, d, e):
' h = pyaes.AESModeOfOperationCBC(d, iv=e)
' i = b''.join(h.decrypt(g[j:j+16]) for j in range(0, len(g), 16))
' return i[:-i[-1]]
' j = requests.post(a, headers=b, data=c)
' if j.status_code == 200:
' k = j.text.strip()
' l = binascii.unhexlify(k)
' m = f(l, d, e)
' n = json.loads(m)
' for o in n['data']:
' p = f"aes-256-cfb:{o['password']}@{o['ip']}:{o['port']}"
' q = base64.b64encode(p.encode('utf-8')).decode('utf-8')
' r = f"ss://{q}#{o['title']}"
' print(r)

口算MD5 · 发表于 2024-11-1 08:32:10

再加100精币有没有佬帮忙弄一下

番茄吧 · 发表于昨天 07:03

你好歹把这个py 发全啊，别人好调试，你这个怎么给你翻译

后弦 · 发表于昨天 07:13

import requests
import json
import binascii
import pyaes

# 定义AES解密函数
def f(g, d, e):
h = pyaes.AESModeOfOperationCBC(d, iv=e)
i = b''.join(h.decrypt(g[j:j+16]) for j in range(0, len(g), 16))
return i[:-i[-1]]

# 示例数据，替换为实际URL、headers和data
a = 'http://example.com/api'  # 替换为实际URL
b = {'Content-Type': 'application/json'}  # 替换为实际headers
c = {'key': 'value'}  # 替换为实际data

# AES密钥和IV
d = bytes.fromhex('65151f8d966bf596')
e = bytes.fromhex('88ca0f0ea1ecf975')

# 发送POST请求
j = requests.post(a, headers=b, data=json.dumps(c))

if j.status_code == 200:
k = j.text.strip()
l = binascii.unhexlify(k)
m = f(l, d, e)
n = json.loads(m.decode('utf-8'))
for o in n['data']:
      p = f"aes-256-cfb:{o['password']}@{o['ip']}:{o['port']}"
      q = base64.b64encode(p.encode('utf-8')).decode('utf-8')
      r = f"ss://{q}#{o['title']}"
      print(r)
else:
print(f"Request failed with status code {j.status_code}")

后弦 · 发表于昨天 07:23

你需要发python源码完整性发出来，要不然无法转换

口算MD5 · 发表于昨天 10:46

后弦发表于 2024-11-22 07:23
你需要发python源码完整性发出来，要不然无法转换

l = binascii.unhexlify(k)

佬这个翻译成易语言就行

口算MD5 · 发表于昨天 10:46

番茄吧发表于 2024-11-22 07:03
你好歹把这个py 发全啊，别人好调试，你这个怎么给你翻译

l = binascii.unhexlify(k) 佬只翻译这一行就行

番茄吧 · 发表于昨天 14:36

l = binascii.unhexlify(k)

输出调试文本 (到文本 (字节集_十六进制到字节集 (“48656c6c6f”)))

应该是这个，你看你需要结果是字节集，就不要到文本，如果解码后有中文会乱码，就把到文本替换成编码_Utf8到Ansi

后弦 · 发表于昨天 16:23

变量名	类型	静态	数组	备注
url	文本型
headers	文本型
data	文本型
aesKey	字节集
aesIv	字节集
responseText	文本型
decryptedData	字节集

.局部_variable jsonData, 文本型

变量名	类型	静态	数组	备注
jsonObject	对象
dataArray	对象
i	整数型
item	对象
password	文本型
ip	文本型
port	文本型
title	文本型
ssUrl	文本型

// 设置URL、headers和data
url ＝ “http://example.com/api”
headers ＝ “Content-Type: application/json”
data ＝ “{‘key’: ‘value’}”
// 设置AES密钥和IV
aesKey ＝到字节集 (“65151f8d966bf596”, )
aesIv ＝到字节集 (“88ca0f0ea1ecf975”, )
// 发送POST请求
responseText ＝ Post_Json (url, data)
// 检查响应状态码

如果真 (取子文本 (responseText, 1, 3) ＝ “200”)

// 去除空白字符

responseText ＝去两边空格 (取中间文本 (responseText, #换行符, #换行符, ))

// 十六进制字符串转字节集

decryptedData ＝十六进制到字节集 (responseText)

// AES CBC模式解密

decryptedData ＝ AesDecrypt_CBC (decryptedData, aesKey, aesIv)

// 解析JSON数据

jsonData ＝到文本 (decryptedData)

jsonObject.创建 ()

jsonObject.从json文本载入 (jsonData)

dataArray ＝ jsonObject.取属性对象 (“data”)

// 遍历数组

判断循环首 (dataArray.成员计数 () ＞ 0)

item ＝ dataArray.取属性对象 (i ＋ 1)

password ＝ item.取属性文本 (“password”)

ip ＝ item.取属性文本 (“ip”)

port ＝ item.取属性文本 (“port”)

title ＝ item.取属性文本 (“title”)

ssUrl ＝ “aes-256-cfb:” ＋ password ＋ “@” ＋ ip ＋ “:” ＋ port

ssUrl ＝ base64编码 (ssUrl)

ssUrl ＝ “ss://” ＋ ssUrl ＋ “#” ＋ title

调试输出 (ssUrl)

i ＝ i ＋ 1

判断循环尾 ()

调试输出 (“Request failed with status code ” ＋取子文本 (responseText, 1, 3))

// 自定义函数：Post_Json

子程序名	返回值类型	公开	备注
Post_Json	文本型		发送POST JSON请求
参数名	类型	参考	可空	数组	备注
url	文本型
json_data	文本型

变量名	类型	静态	数组	备注
http	Http类
response	文本型

http.创建 ()
http.打开 (url, #HttpPost )
http.加入标头 (“Content-Type”, “application/json”)
http.写入内容 (json_data)
response ＝ http.读出所有 ( #true )
返回 (response)
// 自定义函数：AesDecrypt_CBC

子程序名	返回值类型	公开	备注
AesDecrypt_CBC	字节集		AES CBC模式解密
参数名	类型	参考	可空	数组	备注
encrypted_data	字节集
key	字节集
iv	字节集

变量名	类型	静态	数组	备注
decrypted_data	字节集
padding_length	整数型

decrypted_data ＝ MyAes.AesDecryptCBC (encrypted_data, key, iv)
padding_length ＝ decrypted_data [取数组成员数 (decrypted_data)]
删除成员 (decrypted_data, 取数组成员数 (decrypted_data) － padding_length ＋ 1, padding_length)
返回 (decrypted_data)

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

.版本 2<br />
<br />
.支持库 InternetEx<br />
.支持库 MyAes<br />
<br />
.局部变量 url, 文本型<br />
.局部变量 headers, 文本型<br />
.局部变量 data, 文本型<br />
.局部变量 aesKey, 字节集<br />
.局部变量 aesIv, 字节集<br />
.局部变量 responseText, 文本型<br />
.局部变量 decryptedData, 字节集<br />
.局部_variable jsonData, 文本型<br />
.局部变量 jsonObject, 对象<br />
.局部变量 dataArray, 对象<br />
.局部变量 i, 整数型<br />
.局部变量 item, 对象<br />
.局部变量 password, 文本型<br />
.局部变量 ip, 文本型<br />
.局部变量 port, 文本型<br />
.局部变量 title, 文本型<br />
.局部变量 ssUrl, 文本型<br />
<br />
// 设置URL、headers和data<br />
url ＝ “http://example.com/api”<br />
headers ＝ “Content-Type: application/json”<br />
data ＝ “{‘key’: ‘value’}”<br />
<br />
// 设置AES密钥和IV<br />
aesKey ＝ 到字节集 (“65151f8d966bf596”, )<br />
aesIv ＝ 到字节集 (“88ca0f0ea1ecf975”, )<br />
<br />
// 发送POST请求<br />
responseText ＝ Post_Json (url, data)<br />
<br />
// 检查响应状态码<br />
.如果真 (取子文本 (responseText, 1, 3) ＝ “200”)<br />
    // 去除空白字符<br />
    responseText ＝ 去两边空格 (取中间文本 (responseText, #换行符, #换行符, ))<br />
    <br />
    // 十六进制字符串转字节集<br />
    decryptedData ＝ 十六进制到字节集 (responseText)<br />
    <br />
    // AES CBC模式解密<br />
    decryptedData ＝ AesDecrypt_CBC (decryptedData, aesKey, aesIv)<br />
    <br />
    // 解析JSON数据<br />
    jsonData ＝ 到文本 (decryptedData)<br />
    jsonObject.创建 ()<br />
    jsonObject.从json文本载入 (jsonData)<br />
    dataArray ＝ jsonObject.取属性对象 (“data”)<br />
    <br />
    // 遍历数组<br />
    .判断循环首 (dataArray.成员计数 () ＞ 0)<br />
        item ＝ dataArray.取属性对象 (i ＋ 1)<br />
        <br />
        password ＝ item.取属性文本 (“password”)<br />
        ip ＝ item.取属性文本 (“ip”)<br />
        port ＝ item.取属性文本 (“port”)<br />
        title ＝ item.取属性文本 (“title”)<br />
        <br />
        ssUrl ＝ “aes-256-cfb:” ＋ password ＋ “@” ＋ ip ＋ “:” ＋ port<br />
        ssUrl ＝ base64编码 (ssUrl)<br />
        ssUrl ＝ “ss://” ＋ ssUrl ＋ “#” ＋ title<br />
        <br />
        调试输出 (ssUrl)<br />
        <br />
        i ＝ i ＋ 1<br />
    .判断循环尾 ()<br />
.否则<br />
    调试输出 (“Request failed with status code ” ＋ 取子文本 (responseText, 1, 3))<br />
.如果真结束<br />
<br />
<br />
// 自定义函数：Post_Json<br />
.子程序 Post_Json, 文本型, 公开, 发送POST JSON请求<br />
.参数 url, 文本型<br />
.参数 json_data, 文本型<br />
.局部变量 http, Http类<br />
.局部变量 response, 文本型<br />
<br />
http.创建 ()<br />
http.打开 (url, #HttpPost)<br />
http.加入标头 (“Content-Type”, “application/json”)<br />
http.写入内容 (json_data)<br />
response ＝ http.读出所有 (#true)<br />
返回 (response)<br />
<br />
<br />
// 自定义函数：AesDecrypt_CBC<br />
.子程序 AesDecrypt_CBC, 字节集, 公开, AES CBC模式解密<br />
.参数 encrypted_data, 字节集<br />
.参数 key, 字节集<br />
.参数 iv, 字节集<br />
.局部变量 decrypted_data, 字节集<br />
.局部变量 padding_length, 整数型<br />
<br />
decrypted_data ＝ MyAes.AesDecryptCBC (encrypted_data, key, iv)<br />
padding_length ＝ decrypted_data [取数组成员数 (decrypted_data)]<br />
删除成员 (decrypted_data, 取数组成员数 (decrypted_data) － padding_length ＋ 1, padding_length)<br />
<br />
返回 (decrypted_data)

注意：

1.这里假设存在一个名为MyAes的支持库，其中包含AesDecryptCBC函数来进行AES CBC模式解密。
2.实际应用中可能需要根据实际情况调整代码中的细节，例如错误处理、网络请求库的选择等。
3.易语言的标准库并不直接支持AES加密/解密操作，因此需要引入额外的支持库或自行编写相关算法。
4.请确保在实际使用前测试并验证代码的功能正确性。

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

[求助] python转易语言

评分

评分