R语言：判断身份证号码真伪的函数编写

基于两个条件检验第二代身份证号码的真伪

基于两个条件：
1.身份证号码位数是18位
2.第二代身份证号码最后一位的编码规则

check_id=function(id){
id=as.character(id)
w=c(7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2)
v=c(1,0,“X”,9,8,7,6,5,4,3,2)
for (i in 1:length(id)) {
if(nchar(id[i])==16){
print(“第一代身份证系统无法识别，请人工检验”)
}else if(nchar(id[i])18){
sum=0;a=0;c=0
for (j in 1:17) {
sum=sum+as.numeric(substr(id[i],j,j))*w[j]
}
a=sum%%11
c=v[a+1]
if(csubstr(id[i],18,18)){
print(sprintf(“第%d个身份证号是真的”,i))
}else{
print(sprintf(“第%d个身份证号是假的，伪造身份证，你被逮捕了！”,i))
print(id[i])}
}
else{
print(sprintf(“第%d个身份证号是假的，伪造身份证，你被逮捕了！”,i))
print(id[i])
}
}
}

调用上面函数就可以了。

如有错误，欢迎交流

链接: link.

R语言：判断身份证号码真伪的函数编写相关推荐

Java判断身份证号码
1.描述用java语言判断身份证号码是否有效,地区码.出身年月.校验码等验证算法 2.源代码 ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ...
R语言使用car包的vif函数计算方差膨胀因子，并基于方差膨胀因子开方后和阈值（2）的判断来确认模型特征（预测变量）之间是否存在多重共线性（Multicollinearity）
R语言使用car包的vif函数计算方差膨胀因子,并基于方差膨胀因子开方后和阈值(2)的判断来确认模型特征(预测变量)之间是否存在多重共线性(Multicollinearity) 目录
数据ETL——使用R语言对身份证进行校验，排序筛选等操作
数据ETL--使用R语言对身份证进行校验,排序筛选等操作 CSV格式如图所示 1.分别查询:  吉林省的身份证号码(参考GB/T2260-2007标准)  校验码不正确的无效身份证号码  50岁 ...
R语言使用DALEX包的model_profile函数对caret包生成的多个算法模型的离散变量进行分析、使用偏依赖图（Partial Dependence Plots）解释某个离散特征和目标y的关系
R语言使用DALEX包的model_profile函数对caret包生成的多个算法模型的离散变量进行分析.使用偏依赖图(Partial Dependence Plots)解释某个离散特征和目标值y的关 ...
R语言使用psych包的fa函数对指定数据集进行因子分析（输入数据为相关性矩阵）、使用rotate参数指定进行斜交旋转提取因子、使用fa.diagram函数可视化斜交旋转因子分析、并解读可视化图形
R语言使用psych包的fa函数对指定数据集进行因子分析(输入数据为相关性矩阵).使用rotate参数指定进行斜交旋转提取因子.使用fa.diagram函数可视化斜交旋转因子分析.并解读可视化图形目 ...
R语言使用caret包的preProcess函数进行数据预处理：对所有的数据列进行SpatialSign变换（将数据投影到单位圆之内）、设置method参数为spatialSign
R语言使用caret包的preProcess函数进行数据预处理:对所有的数据列进行SpatialSign变换(将数据投影到单位圆之内).设置method参数为spatialSign 目录
R语言使用DALEX包的model_performance函数对caret包生成的多个算法模型进行残差分布分析并使用箱图进行残差分布的可视化
R语言使用DALEX包的model_performance函数对caret包生成的多个算法模型进行残差分布分析并使用箱图进行残差分布的可视化目录
R语言ggplot2可视化：使用geom_line函数将dataframe中数据可视化为时间序列（或折线图）（Time Series Plot From a Data Frame）、添加标题、副标题
R语言ggplot2可视化:使用geom_line函数将dataframe中数据可视化为时间序列(或折线图)(Time Series Plot From a Data Frame).添加标题.副标题. ...
R语言使用psych包的fa函数对指定数据集进行因子分析（输入数据为相关性矩阵）、使用rotate参数指定进行斜交旋转提取因子、使用nfactors参数指定抽取的因子个数、fa函数因子分析结果解读
R语言使用psych包的fa函数对指定数据集进行因子分析(输入数据为相关性矩阵).使用rotate参数指定进行斜交旋转提取因子.使用nfactors参数指定抽取的因子个数.fa函数因子分析结果解读( ...
R语言使用ggpubr包的ggarrange函数组合多张结论图（水平并排组合）
R语言使用ggpubr包的ggarrange函数组合多张结论图(水平并排组合) 目录 R语言使用ggpubr包的ggarrange函数组合结论多张结论图(水平并排组合)

R语言：判断身份证号码真伪的函数编写

R语言：判断身份证号码真伪的函数编写相关推荐

最新文章

热门文章