18位身份证格式验证算法.txt

大量Delphi开发资料

function IDToNewID(ID: String): String;
var
i,SfzXy:Integer;
XYM:String;
a:array[0..17] of string;
begin
a[0]:='0';
a[1]:='7';
a[2]:='9';
a[3]:='10';
a[4]:='5';
a[5]:='8';
a[6]:='4';
a[7]:='2';
a[8]:='1';
a[9]:='6';
a[10]:='3';
a[11]:='7';
a[12]:='9';
a[13]:='10';
a[14]:='5';
a[15]:='8';
a[16]:='4';
a[17]:='2';
SfzXy:=0;
for i:=1 to 17 do
SfzXy:=SfzXy+StrToInt(Copy(ID,i,1))*strtoInt(a[i]);
Case (SfzXy Mod 11) of
0: XYM :='1';
1: XYM :='0';
2: XYM :='X';
3: XYM :='9';
4: XYM :='8';
5: XYM :='7';
6: XYM :='6';
7: XYM :='5';
8: XYM :='4';
9: XYM :='3';
10:XYM :='2';
end;
Result:=XYM;
end;