一个正确的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<br /> <br /> .子程序 取随机IMEI, 文本型<br /> .参数 型号码, 文本型, 可空, 默认为Huawei Mate30Pro 5G<br /> .局部变量 imei, 文本型<br /> .局部变量 arr, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 l, 整数型<br /> <br /> ' 第一部分 TAC 8位<br /> imei ＝ “86”  ' 中国<br /> imei ＝ imei ＋ 选择 (是否为空 (型号码), “991704”, 型号码)  ' 厂商及型号 此为Mate30Pro 5G<br /> ' 第二部分 SNR 序列号 6位<br /> .计次循环首 (6, )<br />     置随机数种子 ()<br />     n ＝ 取随机数 (0, 9)<br />     imei ＝ imei ＋ 到文本 (n)<br /> .计次循环尾 ()<br /> ' 第三部分 CD 验证码 Luhn算法前14位得出<br /> 文本_逐字分割 (imei, arr)<br /> .计次循环首 (取数组成员数 (arr), i)<br />     .如果 (i ％ 2 ＝ 0)<br />         n ＝ 到整数 (arr <i>) × 2<br />         l ＝ l ＋ 选择 (n ≥ 10, 到整数 (n ÷ 10) ＋ 到整数 (n ％ 10), n)<br />     .否则<br />         l ＝ l ＋ 到整数 (arr <i>)<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> imei ＝ imei ＋ 到文本 (10 － l ％ 10)<br /> 返回 (imei)

7476545

手机IMEI码取手机型号等信息

sofs

支持开源，感谢您

已注销541904

如梦入秋o 发表于 2020-1-16 11:20
厂商及型号这个号码有没有完整的汇总呀  大佬。

IMEI码是有自己的标准规范的 大概17年论坛有人写过完整版本的

飞鱼软件

感谢分享，支持开源

六升臣

这个很不错 有用的

如梦入秋o

厂商及型号这个号码有没有完整的汇总呀  大佬。

如梦入秋o

感谢大佬分享

wjswzj0

谢谢分享哦

一剑磨十年

感谢分享~~~~~~

萌萌嗒的小白

感谢分享