某勇者易语言登录例子.动态RSa算法

某勇者易语言登录例子.动态RSa算法

@xiaobaibk47

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 url, 文本型
.局部变量 data, 文本型
.局部变量 str, 文本型
.局部变量 json, 类_json
.局部变量 modulus, 文本型
.局部变量 exponent, 文本型
.局部变量 pwd, 文本型
.局部变量 us, 文本型
.局部变量 cookies, 文本型

us ＝ “aa123456aa”
pwd ＝ “QQqq520..”
url ＝ “https://77wdw.com/service/vpkey”
str ＝ 到文本 (网页_访问_对象 (url, , , cookies, , “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/78.0.3904.108 Safari/537.36”, , , , , , , , , , , , , ))
.如果真 (json.解析 (str) ＝ 真)
    modulus ＝ json.取通用属性 (“modulus”, )
    exponent ＝ json.取通用属性 (“exponent”, )
    调试输出 (modulus, exponent)
    pwd ＝ V8计算 (#常量2, “pwd('” ＋ pwd ＋ “','” ＋ modulus ＋ “','” ＋ exponent ＋ “')”, , )
    调试输出 (pwd)
    url ＝ “https://77wdw.com/kz/member/login?r=0.004960743952900248”
    data ＝ “loginpwd=” ＋ 编码_URL编码 (pwd, 真, 真) ＋ “&loginame=” ＋ us ＋ “&lang=chs”
    str ＝ 到文本 (网页_访问_对象 (url, 1, data, cookies, , #常量3, , , , , , , , , , , , , ))
    调试输出 (str)
.如果真结束


.子程序 __启动窗口_创建完毕