VFP 愛用者社區

john59 · 註冊時間: 2004-02-29 文章: 51 來自: taiwan 第 1 樓

網路上有很多註冊必需輸入身分證字號,請問是如何辨認真假,有人用vfp寫過類似程式嗎,請指教謝謝.

Ruey · 發表於: 星期四四月 15, 2004 2:23 pm 文章主題:

請多利用搜尋key-->"身分證字號"

john59 · 發表於: 星期四四月 15, 2004 8:01 pm 文章主題:

發表於: 星期五四月 11, 2003 11:05 pm 文章主題: 身分證檢查程式

--------------------------------------------------------------------------------

**aa6=user keyin得身分證字號

idid='10987654932210898765431320'
xdxd='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
x=substr(idid,at(substr(aa6,1,1),xdxd),1)
if x=' '
=messagebox('身分證字號錯誤',48,'訊息視窗')
return
endif
fdfd='187654321'
aa6=x+substr(aa6,2)
for i=1 to 9
y=y+val(substr(aa6,i,1))*val(substr(fdfd,i,1))
endfor
if mod(y,10)<>0
hh=10-mod(y,10)
else
hh=0
endif
if hh<>val(substr(aa6,10,1))
=messagebox('身分證字號錯誤',48,'訊息視窗')
return
endif
=============================================
這段程式看的很辛苦,概念還是有點模糊
我只是想了解id check 是根據什麼
為何它能驗出正確與否,即使用自己的id差一號慢慢試
也無法試出正確值,它到底是用怎麼樣的演算法
我想應該不大可能用database check吧?

garfield · 發表於: 星期四四月 15, 2004 8:50 pm 文章主題:

身份証第一個字母有相對的數字, 再將前面9個數字一個一個乘上一個專有的對映碼, 所得全部的加法合計之後取餘數就是最後一碼的檢查碼.

Ruey · 發表於: 星期四四月 15, 2004 9:17 pm 文章主題:

先了解驗證過程,再去了解程式.這樣比較有幫助!!

身分證驗證相關網站
1)http://neural.cs.nthu.edu.tw/jang/courses/cs3431/homework/formValid/idrule.asp
2) http://bbs.ee.ntu.edu.tw/boards/Programming/16/13.html
3) http://www.nanhwa.gov.tw/new_page_73.htm

◇ 身份證字號
-------------------------------------------------------------------------------- -------------------------------------------------------------------------
NCTU-CIS BBS `programming' 版精華區

■■■ 身份證字號 ■■■
-------------------------------------------- 整理：william@cis_nctu -----
-------------------------------------------------------------------------

發信人: wennycooper.bbs@bbs (Kevin), 信區: programming
標題: 身份證字號???
發信站: 交大 BBS 資訊站 (Wed May 18 04:39:52 1994)

曾經看過身份證號碼計算的資料,
但已忘記在那一本書??? Please Help!!
=============================================================================

發信人: william@cis_nctu (C++/ASM/Win Master), 信區: programming
發信站: 交大資科_BBS (May 18 12:04:46 1994)

1992 一月的「PC Magazine 中文版」有提。
And, 同年五月有篇用 C++來做檢查的文章。

---------------------------------------------------------------------------------- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
≡ 何陋居 ≡ If Winter comes, can Spring be far behind? - P.B. Shelley.
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
=============================================================================

發信人: ajax.bbs@csie (ajax), 信區: programming
發信站: 交大資工鳳凰城資訊站 (Thu May 19 09:00:13 1994)

身份證號碼:
A 1 0 0 9 8 7 6 3 8
^check code

字母轉換成數表:
A B C D E F G H J K L M N P Q R
10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

S T U V X Y
26 27 28 29 30 31

A 1 0 0 9 8 7 6 3 8

1 0 1 0 0 9 8 7 6 3 字母轉換成數字
X 1 9 8 7 6 5 4 3 2 1 指定常數
---------------------------------
1 8 0 32 12 對應字元相乘
0 0 45 21 3

1+8+45+32+21+12+3=122 所得之積相加
122 / 10 = 12 .... 2 總和除10 求餘數
10 - 2 = 8 10 減餘數即檢查碼

ref: 張朝植, "身分證字號識別碼辨認之巨集設計", 倚天雜誌, DEC.1993, p156
=============================================================================

發信人: Peugeot 405 (不是 MI-16 ) <gstd@c6.hinet.net>, 信區: programming
標題: 身份證字號的確定!
發信站: HiNet (Fri Dec 22 02:25:14 1995)
轉信站: cis_nctu!news.cis.nctu!news.csie.nctu!netnews.ntu!nctuccca!serv.HiNet.

國民身份證統一編號計算公式
(IDENTITY CARD) 整理製表： Peugeot 405
╓──────────────────────────────────────╖
║ 臺灣地區國民身份證代字及代號表 ║
╟────┬──┬────╥────┬──┬────╥────┬──┬────╢
║ 縣市 │英文│英文字母║ 縣市 │英文│英文字母║ 縣市 │英文│英文字母║
║ 別 │代字│代號║ 別 │代字│代號║ 別 │代字│代號║
╟────┼──┼────╫────┼──┼────╫────┼──┼────╢
║ 臺北市 │ Ａ │ １０ ║ 新竹縣 │ Ｊ │ １８ ║ 高雄縣 │ Ｓ │ ２６ ║
╟────┼──┼────╫────┼──┼────╫────┼──┼────╢
║ 臺中市 │ Ｂ │ １１ ║ 苗栗縣 │ Ｋ │ １９ ║ 屏東縣 │ Ｔ │ ２７ ║
╟────┼──┼────╫────┼──┼────╫────┼──┼────╢
║ 基隆市 │ Ｃ │ １２ ║ 臺中縣 │ Ｌ │ ２０ ║ 花蓮縣 │ Ｕ │ ２８ ║
╟────┼──┼────╫────┼──┼────╫────┼──┼────╢
║ 臺南市 │ Ｄ │ １３ ║ 南投縣 │ Ｍ │ ２１ ║ 臺東縣 │ Ｖ │ ２９ ║
╟────┼──┼────╫────┼──┼────╫────┼──┼────╢
║ 高雄市 │ Ｅ │ １４ ║ 彰化縣 │ Ｎ │ ２２ ║ 澎湖縣 │ Ｘ │ ３０ ║
╟────┼──┼────╫────┼──┼────╫────┼──┼────╢
║ 臺北縣 │ Ｆ │ １５ ║ 雲林縣 │ Ｐ │ ２３ ║ 陽明山 │ Ｙ │ ３１ ║
╟────┼──┼────╫────┼──┼────╫────┼──┼────╢
║ 宜蘭縣 │ Ｇ │ １６ ║ 嘉義縣 │ Ｑ │ ２４ ║ 新竹市 │ Ｏ │ ３５ ║
╟────┼──┼────╫────┼──┼────╫────┼──┼────╢
║ 桃園縣 │ Ｈ │ １７ ║ 臺南縣 │ Ｒ │ ２５ ║ 嘉義市 │ Ｉ │ ３４ ║
╙────┴──┴────╨────┴──┴────╨────┴──┴────╜

國民身份證統一編號計算公式 :
一．先依照上表將英文字母代號換為數字。
二．由左至右，第一位乘一，第二位乘九，第三位乘八，第四位乘七．．．．．．．
最後一位乘一。
三．將各位相對數字所乘之積相加。
四．將上式(三)所得之和除以十求得餘數。
五．以十減去上式(四)所得餘數即為檢查號碼。

範例：
Ｆ２１２３４５６７
一．換算為 1521234567
二．(1*1)+(5*9)+(2* Cool

+(1*7)+(2*6)+(3*5)+(4*4)+(5*3)+(6*2)+(7*1)
三．= 146
四．146/10 = 14 .... 6
五．10 - 6 = 4 (檢查號碼)

心得：順序加九等於代號
^^^^^^^^^^^^^^^^^^^^^^^
字母ＡＢＣＤＥＦＧＨＪＫＬＭＮＰＱＲＳＴＵＶＸＹＷＺＩＯ
順序１２３４５６７８９ 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
代號 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

=============================================================================
發信人: Mainframe.bbs@bbs.ee.ncu (256GB RAM), 信區: programming
發信站: 中央大學松濤風情資訊站 (Tue Dec 20 19:19:41 1994)

提供一個 Pascal 的程式, 希望有所幫助。
原理? 別傻了! 這麼簡單的程式怎麼難得倒你, 是吧?

function CorrectIDN(c:string):boolean;
const
IDNIDX : array['A'..'Z'] of byte =
(1,2,3,4,5,6,7,8,25,9,10,11,12,13,26,14,15,16,17,18,19,20,23,21,22,24);

IDNTable : array[1..26] of byte = (10,11,12,13,14,15,16,17,18,19,20,21,22,
23,24,25,26,27,28,29,30,31,32,33,34,35);
var V:integer;
begin
if c[1] in ['A'..'Z'] then begin
V :=
IDNTable[IDNIDX[c[1]]] div 10 + (IDNTable[IDNIDX[c[1]]] mod 10) * 9 +
(byte(c[2])-4 Cool

* 8 + (byte(c[3])-4 Cool

* 7 + (byte(c[4])-4 Cool

* 6 +
(byte(c[5])-4 Cool

* 5 + (byte(c[6])-4 Cool

* 4 + (byte(c[7])-4 Cool

* 3 +
(byte(c[8])-4 Cool

* 2 + byte(c[9])-48 + byte(c[10])-48;
CorrectIDN := (c[0] = #10) and ((c[2] = '1') or (c[2] = '2')) and (V
div 10 = V / 10);
end
else
CorrectIDN := False;
end;

-------------------------------------------------------------------------------- 在真實與幻境間穿梭的精靈───────
可以是翱天蒼鷹, 可以是沁骨晨露,
──────── 不安定的因子在血液中沸奔騰不息
==============================================================================

發信人: Limbic@cis_nctu (月斜樓上五更鐘), 信區: programming
標題: 身份證驗證程式
發信站: 交大資科_BBS (Feb 21 20:48:05 1995)
轉信站: cis_nctu

不久前有人問身份證號碼如何驗證, 這裡附上好幾年前初學 C 練習的程式
寫得有點亂, 看不懂再問

#include <ctype.h>
#include
#include <string.h>

int CheckID(char *);

void main(void)
{
char inbuf[80];
cout << " A123456789 \n: "
cin >> inbuf;
cout << (CheckID(inbuf) ? "ok" : "invalid") << endl;
} /* main */

int CheckID(char *s)
{
char *p, *LEAD="ABCDEFGHJKLMNPQRSTUVXYWZIO"
if (strlen(s)!=10 || (p=strchr(LEAD, toupper(*s)))==NULL)
return NULL;
int x = p - LEAD;
x = x/10 + x%10*9;
p = s + 1;
if (*p!='1' && *p!='2') return NULL;
for(int i=1; i<9; i++)
if (isdigit(*p)) x += (*p++-'0')*(9-i); else return NULL;
x = 9 - x%10;
return (x==*p-'0');
} /* CheckID */
=============================================================================