vivoy31s iccid怎么查找

Posted 2023-04-11

若是指的查找手机功能：查找设备（手机寻回）开启后，若手机丢失，可进入官网跳转到查找设备网页，然后输入vivo帐号与密码登录。就可以对丢失的手机/平板进行定位跟踪、控制手机响警报音、锁定屏幕、数据备份、清除数据等操作。
网页：https://yun.vivo.com.cn/

参考技术A 打开手机设置，打开通用功能，打开关于本机，在关于本机内可以看到本机的ICCID。
如果是去营业厅办理了手机卡业务，那么iccid编码就在装有手机卡的卡片背面。
也可以拨打您手机卡归属的营业厅客服电话获取icicd号。

联通物联网卡ICCID号校验位算法

 

C#  算法  luhnNext(联通物联网卡ICCID号，默认最少19位，总长度20位)

public static int luhnSum(string InVal)
{
int evenSum;
int oddSum;
bool isEven;
bool IsOdd = true;
evenSum = 0;
oddSum = 0;
int strLen;
strLen = InVal.Length;
int i;
for (i = strLen; i >= 1; i--)
{
int digit;
digit = int.Parse(InVal.Substring(i - 1, 1));
if (IsOdd)
{
oddSum = oddSum + digit;
IsOdd = false;
}
else
{
digit = digit * 2;
if (digit > 9)
{
digit = digit - 9;
}
evenSum = evenSum + digit;
IsOdd = true;
}

}
int luhnSum = (oddSum + evenSum);

return luhnSum;
}

public static int luhnNext(string InVal)
{
int luhnNext;
int rst;
rst = luhnSum(InVal + 0) % 10;
if (rst == 0)
luhnNext = 0;
else
luhnNext = 10 - rst;

return luhnNext;

}

 

VB 的算法  luhnNext(联通物联网卡ICCID号，默认最少19位，总长度20位)

Function luhnSum(InVal As String) As Integer
Dim evenSum As Integer
Dim oddSum As Integer
Dim isEven As Boolean
IsOdd = True
evenSum = 0
oddSum = 0
Dim strLen As Integer
strLen = Len(InVal)
Dim i As Integer
For i = strLen To 1 Step -1
Dim digit As Integer
digit = CInt(Mid(InVal, i, 1))
If (IsOdd) Then
oddSum = oddSum + digit
IsOdd = False
Else
digit = digit * 2
If (digit > 9) Then
digit = digit - 9
End If
evenSum = evenSum + digit
IsOdd = True
End If
Next i
luhnSum = (oddSum + evenSum)
End Function

Function luhnCheck(InVal As String)
luhnCheck = (luhnSum(InVal) Mod 10) = 0
End Function

Function luhnNext(InVal As String)
Dim rst
rst = luhnSum(InVal & 0) Mod 10
If (rst = 0) Then
luhnNext = 0
Else
luhnNext = 10 - rst
End If
End Function