合拍app协议源码

.版本 2
.支持库 spec

.程序集 类_合拍
.程序集变量 imei, 文本型
.程序集变量 long, 文本型
.程序集变量 lat, 文本型
.程序集变量 json, 类_json
.程序集变量 user_id, 文本型
.程序集变量 user_token, 文本型
.程序集变量 rctk, 文本型
.程序集变量 netk, 文本型
.程序集变量 area_id, 文本型
.程序集变量 model, 文本型
.程序集变量 model1, 文本型
.程序集变量 imsi, 文本型
.程序集变量 hpid, 文本型

.子程序 Get_uid, 文本型
.局部变量 hexDigits, 字节集
.局部变量 s, 字节型, , "36"
.局部变量 i, 整数型
.局部变量 r, 整数型
.局部变量 d, 整数型

hexDigits ＝ { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 97, 98, 99, 100, 101, 102 }
置随机数种子 ()
.计次循环首 (36, i)
    r ＝ 取随机数 (1, 16)
    .如果真 (i ＝ 20)
        d ＝ r
    .如果真结束
    s [i] ＝ hexDigits [r]
.计次循环尾 ()
s [15] ＝ 52
s [20] ＝ hexDigits [位或 (位与 (d, 3), 8)]
连续赋值 (45, s [9], s [14], s [19], s [24])
返回 (到文本 (s))

.子程序 初始化, , 公开, 必须先初始化
.局部变量 type, 文本型, , "0"
.局部变量 IP信息, 精易_IP归属地
.局部变量 归属地, 文本型

imei ＝ “86” ＋ 文本_取随机数字 (13)
long ＝ 文本_取随机范围数字 (116, 126) ＋ “.” ＋ 文本_取随机数字 (14)
lat ＝ 文本_取随机范围数字 (39, 49) ＋ “.” ＋ 文本_取随机数字 (14)
加入成员 (type, “redmi note 1”)
加入成员 (type, “redmi note 2”)
加入成员 (type, “redmi note 3”)
加入成员 (type, “redmi note 4”)
加入成员 (type, “redmi note 5”)
加入成员 (type, “redmi note 6”)
加入成员 (type, “redmi note 7”)
加入成员 (type, “redmi 6”)
加入成员 (type, “xiaomi 8”)
加入成员 (type, “xiaomi mix”)
加入成员 (type, “google Pixel 2”)
加入成员 (type, “huawei Honor V9”)
加入成员 (type, “huawei nova 3i”)
加入成员 (type, “huawei nova 5i”)
加入成员 (type, “vivo X9 Plus”)
加入成员 (type, “oppo R11 Plus”)
加入成员 (type, “oppo R17 Pro”)
加入成员 (type, “meizu PRO 7 Plus”)
加入成员 (type, “meizu PRO 6 Plus”)
置随机数种子 ()
model1 ＝ type [取随机数 (1, 取数组成员数 (type))]
model ＝ 子文本替换 (model1, “ ”, “+”, , , 真)
imsi ＝ “46000” ＋ 文本_取随机数字 (10)
hpid ＝ Get_uid ()
IP信息 ＝ 网页_取IP地址 ()
归属地 ＝ IP信息.城市
area_id ＝ 取城市id (归属地)
调试输出 (area_id)


.子程序 检测昵称, 逻辑型, 公开
.参数 昵称, 文本型
.参数 Msg, 文本型, 可空
.局部变量 url, 文本型
.局部变量 str, 文本型
.局部变量 data, 文本型
.局部变量 res, 文本型

url ＝ “https://api2.quhepai.com/user/check-nickname?ch=hepai_s_003&imei=” ＋ imei ＋ “&ver=1.6.4&user_id=&token=&area_id=” ＋ area_id ＋ “&long=” ＋ long ＋ “&lat=” ＋ lat ＋ “&api=35&build=1710201703&os=Android&nonce=” ＋ 时间_取现行时间戳 () ＋ “&sa=&logined=0&rctk=&netk=&model=” ＋ model ＋ “&hpid=&company=” ＋ 文本_取左边 (model, “+”) ＋ “&token_temp=”
data ＝ “nickname=” ＋ 编码_URL编码 (昵称, 真, 真)
str ＝ 编码_URL解码 (网页_访问S (url, 1, data, , , “User-Agent: Dalvik/2.1.0 (Linux; U; Android 5.1.1; ” ＋ model1 ＋ “ Build/LYZ28N)”), 真)
调试输出 (str)
json.解析 (str)
res ＝ json.取属性 (“result”).取数据文本 ()
Msg ＝ json.取通用属性 (“msg”)
json.清除 ()
.如果 (res ＝ “1”)
    返回 (真)
.否则
    返回 (假)
.如果结束


.子程序 发码, 逻辑型, 公开
.参数 手机号, 文本型
.参数 Msg, 文本型, 可空
.局部变量 url, 文本型
.局部变量 data, 文本型
.局部变量 str, 文本型
.局部变量 res, 文本型

url ＝ “https://api2.quhepai.com/user/getsmscode?ch=hepai_s_003&imei=” ＋ imei ＋ “&ver=1.6.4&user_id=&token=&area_id=” ＋ area_id ＋ “&long=” ＋ long ＋ “&lat=” ＋ lat ＋ “&api=35&build=1710201703&os=Android&nonce=” ＋ 时间_取现行时间戳 () ＋ “&sa=&logined=0&rctk=&netk=&model=” ＋ model ＋ “&hpid=&company=” ＋ 文本_取左边 (model, “+”) ＋ “&token_temp=&phone=” ＋ 手机号 ＋ “&type=1”
str ＝ 编码_URL解码 (网页_访问S (url, , , , , “User-Agent: Dalvik/2.1.0 (Linux; U; Android 5.1.1; ” ＋ model1 ＋ “ Build/LYZ28N)”), 真)
json.解析 (str)
res ＝ json.取属性 (“result”).取数据文本 ()
Msg ＝ json.取通用属性 (“msg”)
json.清除 ()
.如果 (res ＝ “1”)
    返回 (真)
.否则
    返回 (假)
.如果结束


.子程序 提交, 逻辑型, 公开
.参数 手机号, 文本型
.参数 验证码, 文本型
.参数 Msg, 文本型, 可空
.局部变量 url, 文本型
.局部变量 data, 文本型
.局部变量 str, 文本型
.局部变量 res, 文本型

url ＝ “https://api2.quhepai.com/user/chkregcode?ch=hepai_s_003&imei=” ＋ imei ＋ “&ver=1.6.4&user_id=&token=&area_id=” ＋ area_id ＋ “&long=” ＋ long ＋ “&lat=” ＋ lat ＋ “&api=35&build=1710201703&os=Android&nonce=” ＋ 时间_取现行时间戳 () ＋ “&sa=&logined=0&rctk=&netk=&model=” ＋ model ＋ “&hpid=&company=” ＋ 文本_取左边 (model, “+”) ＋ “&token_temp=”
data ＝ “phone=” ＋ 手机号 ＋ “&smscode=” ＋ 验证码 ＋ “&type=1”
str ＝ 编码_URL解码 (网页_访问S (url, 1, data, , , “User-Agent: Dalvik/2.1.0 (Linux; U; Android 5.1.1; ” ＋ model1 ＋ “ Build/LYZ28N)”), 真)
json.解析 (str)
res ＝ json.取属性 (“result”).取数据文本 ()
Msg ＝ json.取通用属性 (“msg”)
json.清除 ()
.如果 (res ＝ “1”)
    返回 (真)
.否则
    返回 (假)
.如果结束


.子程序 注册登陆, 逻辑型, 公开
.参数 手机号, 文本型
.参数 密码, 文本型
.参数 验证码, 文本型
.参数 昵称, 文本型
.参数 性别, 整数型
.参数 生日, 文本型
.参数 头像名, 文本型
.参数 头像数据, 字节集
.参数 Msg, 文本型, 可空
.局部变量 url, 文本型
.局部变量 data, 文本型
.局部变量 str, 文本型
.局部变量 res, 文本型
.局部变量 zz, 文本型

zz ＝ 文本_取随机字母 (2, 2) ＋ “-” ＋ 文本_取随机字符 (9) ＋ “-” ＋ 文本_取随机字符 (17)
url ＝ “https://api2.quhepai.com/user/phoneregister?ch=hepai_s_003&imei=” ＋ imei ＋ “&ver=1.6.4&user_id=&token=&area_id=” ＋ area_id ＋ “&long=” ＋ long ＋ “&lat=” ＋ lat ＋ “&api=35&build=1710201703&os=Android&nonce=” ＋ 时间_取现行时间戳 () ＋ “&sa=&logined=0&rctk=&netk=&model=” ＋ model ＋ “&hpid=&company=” ＋ 文本_取左边 (model, “+”) ＋ “&token_temp=”
data ＝ 文本_替换 (#注册data, , , , “_手机号”, 手机号, “_密码”, 校验_取md5 (到字节集 (密码)), “_验证码”, 验证码, “_昵称”, 昵称, “_生日”, 生日)
data ＝ 文本_替换 (data, , , , “_性别”, 到文本 (性别), “_头像名”, 头像名, “Hz-buW1IK32N-OkvFL1pmvVRhkfflp”, zz)
str ＝ 编码_URL解码 (网页_访问S (url, 1, , , , “Content-Type: multipart/form-data; boundary=” ＋ zz ＋ #换行符 ＋ “User-Agent: Dalvik/2.1.0 (Linux; U; Android 5.1.1; ” ＋ model1 ＋ “ Build/LYZ28N)”, , , , , , , , , , , , , , 到字节集 (data) ＋ 头像数据 ＋ 到字节集 (#换行符 ＋ “--” ＋ zz ＋ “--”)), 真)
json.解析 (str)
user_id ＝ json.取属性 (“data['user_id']”).取数据文本 ()
user_token ＝ json.取通用属性 (“data.token”)
rctk ＝ json.取通用属性 (“data['rongcloud_token']”)
netk ＝ json.取通用属性 (“data['netease_token']”)
res ＝ json.取属性 (“result”).取数据文本 ()
Msg ＝ json.取通用属性 (“msg”)
json.清除 ()
.如果 (res ＝ “1”)
    返回 (真)
.否则
    返回 (假)
.如果结束



.子程序 加好友, 逻辑型, 公开
.参数 对方id, 文本型
.参数 验证信息, 文本型
.参数 Msg, 文本型, 可空
.局部变量 url, 文本型
.局部变量 res, 文本型
.局部变量 data, 文本型
.局部变量 str, 文本型

url ＝ “https://api2.quhepai.com/user/friend-request/add?ver=1.6.4&os=Android&ch=hepai_s_003&imsi=” ＋ imsi ＋ “&area_id=” ＋ area_id ＋ “&nonce=” ＋ 时间_取现行时间戳 () ＋ “&long=” ＋ long ＋ “&sa=&content=” ＋ 编码_URL编码 (验证信息, 真, 真) ＋ “&token=” ＋ user_token ＋ “&logined=1&hpid=” ＋ hpid ＋ “&user_id=” ＋ user_id ＋ “&build=1710201703&imei=” ＋ imei ＋ “&model=” ＋ model ＋ “&api=35&rctk=” ＋ 编码_URL编码 (rctk, 真, 真) ＋ “&netk=” ＋ netk ＋ “&lat=” ＋ lat ＋ “&request_user_id=” ＋ 对方id
data ＝ “ver=1.6.4&os=Android&ch=hepai_s_003&imsi=” ＋ imsi ＋ “&area_id=” ＋ area_id ＋ “&nonce=” ＋ 时间_取现行时间戳 () ＋ “&long=” ＋ long ＋ “&sa=&content=” ＋ 编码_URL编码 (验证信息, 真, 真) ＋ “&token=” ＋ user_token ＋ “&logined=1&hpid=” ＋ hpid ＋ “&user_id=” ＋ user_id ＋ “&build=1710201703&imei=” ＋ imei ＋ “&model=” ＋ model ＋ “&api=35&rctk=” ＋ 编码_URL编码 (rctk, 真, 真) ＋ “&netk=” ＋ netk ＋ “&lat=” ＋ lat ＋ “&request_user_id=” ＋ 对方id ＋ “&”
str ＝ 编码_URL解码 (网页_访问S (url, 1, data, , , “Content-Type: application/x-www-form-urlencoded; charset=UTF-8” ＋ #换行符 ＋ “User-Agent: Dalvik/2.1.0 (Linux; U; Android 5.1.1; ” ＋ model1 ＋ “ Build/LYZ28N)”), 真)
json.解析 (str)
res ＝ json.取属性 (“result”).取数据文本 ()
Msg ＝ json.取通用属性 (“msg”)
json.清除 ()
.如果 (res ＝ “1”)
    返回 (真)
.否则
    返回 (假)
.如果结束


.子程序 关注, 逻辑型, 公开
.参数 对方id, 文本型
.参数 Msg, 文本型, 可空
.局部变量 url, 文本型
.局部变量 data, 文本型
.局部变量 str, 文本型
.局部变量 res, 文本型

url ＝ “https://api2.quhepai.com/live/live/focus-user?ch=hepai_s_003&imei=” ＋ imei ＋ “&ver=1.6.4&user_id=” ＋ user_id ＋ “&token=” ＋ user_token ＋ “&area_id=” ＋ area_id ＋ “&long=” ＋ long ＋ “&lat=” ＋ lat ＋ “&api=35&build=1710201703&os=Android&nonce=” ＋ 时间_取现行时间戳 () ＋ “&sa=&logined=1&rctk=” ＋ rctk ＋ “&netk=” ＋ netk ＋ “&model=” ＋ model ＋ “&hpid=&company=” ＋ 文本_取左边 (model, “+”)
data ＝ “by_user_id=” ＋ 对方id
str ＝ 编码_URL解码 (网页_访问S (url, 1, data, , , “User-Agent: Dalvik/2.1.0 (Linux; U; Android 5.1.1; ” ＋ model1 ＋ “ Build/LYZ28N)”), 真)
调试输出 (str)
json.解析 (str)
res ＝ json.取属性 (“result”).取数据文本 ()
Msg ＝ json.取通用属性 (“msg”)
json.清除 ()
.如果 (res ＝ “1”)
    返回 (真)
.否则
    返回 (假)
.如果结束


.子程序 切换城市, 逻辑型, 公开
.参数 城市id, 文本型
.参数 Msg, 文本型, 可空
.局部变量 url, 文本型
.局部变量 res, 文本型
.局部变量 str, 文本型

url ＝ “https://api2.quhepai.com/city/switch?ch=hepai_s_003&imei=” ＋ imei ＋ “&ver=1.6.4&user_id=” ＋ user_id ＋ “&token=” ＋ user_token ＋ “&area_id=” ＋ area_id ＋ “&long=” ＋ long ＋ “&lat=” ＋ lat ＋ “&api=35&build=1710201703&os=Android&nonce=” ＋ 时间_取现行时间戳 () ＋ “&sa=&logined=1&rctk=” ＋ rctk ＋ “&netk=” ＋ netk ＋ “&model=” ＋ model ＋ “&hpid=529de18c-8bef-90ae-f398-8841bbe08d5a&company=” ＋ 文本_取左边 (model, “+”) ＋ “&from=2&type=0&prep_area_id=” ＋ area_id ＋ “&next_area_id=” ＋ 城市id
str ＝ 编码_URL解码 (网页_访问S (url, , , , , “User-Agent: Dalvik/2.1.0 (Linux; U; Android 5.1.1; ” ＋ model1 ＋ “ Build/LYZ28N)”), 真)
调试输出 (str)
json.解析 (str)
res ＝ json.取属性 (“result”).取数据文本 ()
Msg ＝ json.取通用属性 (“msg”)
json.清除 ()
.如果 (res ＝ “1”)
    area_id ＝ 城市id
    返回 (真)
.否则
    返回 (假)
.如果结束


.子程序 附近的人, 逻辑型, 公开, 先切换城市在获取
.参数 性别, 整数型, , 1男 2女
.参数 页, 整数型
.参数 附近人数组, 文本型, 数组
.参数 Msg, 文本型, 可空
.局部变量 url, 文本型
.局部变量 data, 文本型
.局部变量 str, 文本型
.局部变量 res, 文本型
.局部变量 i, 整数型
.局部变量 昵称, 文本型
.局部变量 id, 文本型
.局部变量 sex, 文本型
.局部变量 更新时间, 文本型
.局部变量 距离, 文本型
.局部变量 城市, 文本型

清除数组 (附近人数组)
url ＝ “https://api2.quhepai.com/discover/people?ver=1.6.4&os=Android&ch=hepai_s_003&area_id=” ＋ area_id ＋ “&nonce=” ＋ 时间_取现行时间戳 () ＋ “&long=” ＋ long ＋ “&sa=&token=” ＋ user_token ＋ “&logined=1&hpid=&user_id=” ＋ user_id ＋ “&build=1710201703&imei=” ＋ imei ＋ “&model=” ＋ model ＋ “&api=35&rctk=” ＋ rctk ＋ “&netk=” ＋ netk ＋ “&lat=” ＋ lat
data ＝ “area_id=” ＋ area_id ＋ “&long=” ＋ long ＋ “&sa=&offline=0&hpid=&review_pass=0&zhima_check=0&model=” ＋ model ＋ “&api=35&is_filter=1&rctk=” ＋ rctk ＋ “&netk=” ＋ netk ＋ “&lat=” ＋ lat ＋ “&filter_tag=&ver=1.6.4&os=Android&ch=hepai_s_003&filter_tag_from=4&sex=” ＋ 到文本 (性别) ＋ “&sort=0&video_check=0&nonce=” ＋ 时间_取现行时间戳 () ＋ “&token=” ＋ user_token ＋ “&logined=1&identity_check=0&user_id=” ＋ user_id ＋ “&build=1710201703&filter_area_id=” ＋ area_id ＋ “&imei=” ＋ imei ＋ “&page=” ＋ 到文本 (页) ＋ “&pho_check=0&”
str ＝ 编码_URL解码 (网页_访问S (url, 1, data, , , “User-Agent: Dalvik/2.1.0 (Linux; U; Android 5.1.1; ” ＋ model1 ＋ “ Build/LYZ28N)”), 真)
json.解析 (str)
res ＝ json.取属性 (“result”).取数据文本 ()
Msg ＝ json.取通用属性 (“msg”)
.如果 (res ＝ “1”)
    .计次循环首 (json.成员数 (“data.list”), i)
        昵称 ＝ json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “]['user_nickname']”)
        id ＝ json.取属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “]['user_id']”).取数据文本 ()
        sex ＝ json.取属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “].sex”).取数据文本 ()
        距离 ＝ json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “]['h_distance']”)
        城市 ＝ json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “]['area_name']”)
        更新时间 ＝ json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “]['h_offline_time']”)
        .判断开始 (sex ＝ “1”)
            sex ＝ “男”
        .判断 (sex ＝ “2”)
            sex ＝ “女”
        .默认

        .判断结束
        .如果真 (寻找文本 (更新时间, “小时”, , 假) ≠ -1 或 寻找文本 (更新时间, “分钟”, , 假) ≠ -1)
            加入成员 (附近人数组, 昵称 ＋ “|” ＋ id ＋ “|” ＋ sex ＋ “|” ＋ 城市 ＋ “|” ＋ 更新时间)
        .如果真结束

    .计次循环尾 ()
    json.清除 ()
    返回 (真)
.否则
    json.清除 ()
    返回 (假)

@闹剧