精易论坛
标题:
一个正确的IMEI码生成
[打印本页]
作者:
东坡
时间:
2020-1-15 21:46
标题:
一个正确的IMEI码生成
子程序名
返回值类型
公开
备 注
取随机IMEI
文本型
参数名
类 型
参考
可空
数组
备 注
型号码
文本型
默认为Huawei Mate30Pro 5G
变量名
类 型
静态
数组
备 注
imei
文本型
arr
文本型
0
i
整数型
n
整数型
l
整数型
' 第一部分 TAC 8位
imei =
“86”
' 中国
imei = imei +
选择
(
是否为空
(
型号码
)
,
“991704”
, 型号码
)
' 厂商及型号 此为Mate30Pro 5G
' 第二部分 SNR 序列号 6位
计次循环首
(
6,
)
置随机数种子
(
)
n =
取随机数
(
0, 9
)
imei = imei +
到文本
(
n
)
计次循环尾
(
)
' 第三部分 CD 验证码 Luhn算法前14位得出
文本_逐字分割
(
imei, arr
)
计次循环首
(
取数组成员数
(
arr
)
, i
)
如果
(
i % 2 = 0
)
n =
到整数
(
arr
[
i
]
)
× 2
l = l +
选择
(
n ≥ 10,
到整数
(
n ÷ 10
)
+
到整数
(
n % 10
)
, n
)
l = l +
到整数
(
arr
[
i
]
)
计次循环尾
(
)
imei = imei +
到文本
(
10 - l % 10
)
返回
(
imei
)
.版本 2
.子程序 取随机IMEI, 文本型
.参数 型号码, 文本型, 可空, 默认为Huawei Mate30Pro 5G
.局部变量 imei, 文本型
.局部变量 arr, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 n, 整数型
.局部变量 l, 整数型
' 第一部分 TAC 8位
imei = “86” ' 中国
imei = imei + 选择 (是否为空 (型号码), “991704”, 型号码) ' 厂商及型号 此为Mate30Pro 5G
' 第二部分 SNR 序列号 6位
.计次循环首 (6, )
置随机数种子 ()
n = 取随机数 (0, 9)
imei = imei + 到文本 (n)
.计次循环尾 ()
' 第三部分 CD 验证码 Luhn算法前14位得出
文本_逐字分割 (imei, arr)
.计次循环首 (取数组成员数 (arr), i)
.如果 (i % 2 = 0)
n = 到整数 (arr
) × 2
l = l + 选择 (n ≥ 10, 到整数 (n ÷ 10) + 到整数 (n % 10), n)
.否则
l = l + 到整数 (arr
)
.如果结束
.计次循环尾 ()
imei = imei + 到文本 (10 - l % 10)
返回 (imei)
作者:
萌萌嗒的小白
时间:
2020-1-15 22:05
感谢分享
作者:
一剑磨十年
时间:
2020-1-15 22:41
感谢分享~~~~~~
作者:
wjswzj0
时间:
2020-1-16 10:19
谢谢分享哦
作者:
如梦入秋o
时间:
2020-1-16 11:03
感谢大佬分享
作者:
如梦入秋o
时间:
2020-1-16 11:20
厂商及型号这个号码有没有完整的汇总呀 大佬。
作者:
六升臣
时间:
2020-1-16 12:12
这个很不错 有用的
作者:
飞鱼软件
时间:
2020-1-17 16:59
感谢分享,支持开源
作者:
已注销541904
时间:
2020-1-17 22:34
提示:
作者被禁止或删除 内容自动屏蔽
作者:
sofs
时间:
2020-1-19 13:39
支持开源,感谢您
作者:
7476545
时间:
2021-11-29 13:46
手机IMEI码取手机型号等信息
欢迎光临 精易论坛 (https://125.confly.eu.org/)
Powered by Discuz! X3.4