身分證字號的公式問題(急)(20點)

Question

假如身分證字號前四碼是Q195******，請各位利用身分證公式幫我找出那6個數字可能是哪些!最好全部列出來!拜託各位大大><

我不是要公式= =我是想請各位大大幫我找出那六碼可能是哪些數字，幾十種幾百種登幫我找出來>

公式一般而言大家對身份字號的認知，多是知道共有10位，位第一位為英文字母，知道再多一點的大概就是第二個數字是男女生之分，男生為 1，女生為 2，接下來的一陀數字，是不是隨便輸入都可以呢？其實是不可以的。

身份證字號後面八個數字不是隨便打一些數字就可以了，其實前面七個可以隨便打，但是最後一位為檢查碼，必須經過之前一個字母與8個數字的組合計算後得出，以下即為檢查碼的運算原則：

英文代號以下表轉換成數字
A=10 台北市 J=18 新竹縣 S=26 高雄縣
B=11 台中市 K=19 苗栗縣 T=27 屏東縣
C=12 基隆市 L=20 台中縣 U=28 花蓮縣
D=13 台南市 M=21 南投縣 V=29 台東縣
E=14 高雄市 N=22 彰化縣 * W=32 金門縣
F=15 台北縣 * O=35 新竹市 X=30 澎湖縣
G=16 宜蘭縣 P=23 雲林縣 Y=31 陽明山
H=17 桃園縣 Q=24 嘉義縣 * Z=33 連江縣
* I=34 嘉義市 R=25 台南縣

英文轉成的數字、個位數乘９再加上十位數
各數字從右到左依次乘１、２、３、４．．．．８
求出(2),(3)之和
求出(4)除10後之餘數,用10減該餘數,結果就是檢查碼，若餘數為0，檢查碼就是 0。
例如: 身份證號碼是 F121955337

F 1 2 1 9 5 5 3 3
　　　 1 5
x x x x x x x x x x
1 9 8 7 6 5 4 3 2 1
　─────────────────────

　─────────────────────
1+45+8+14+6+45+20+15+6+3=163
163/10=16....3 (餘數)
10-3=7 (檢查碼)

參考資料
http://tw.knowledge.yahoo.com/question/?qid=1004120200572

Answer 1

我記得我看過的公式不是這樣的,公式如下~~
(英文字所代表的數字之十位數+英文字所代表的數字之個位數X9+第一數字X8+第二數字X7+第三數字X6+第四數字X5+第五數字X4+第六數字X3+第七數字X2+第八數字X1+第九數字) 算出來的結果除以10,若可以整除,即為正確身分證字號~

以你的題目做例子吧~~~ Q195******
我設 Q195"555556" (引號內的數字是我自己想的) 因為 Q=35
3+5X9+1X8+9X7+5X6+5X5+5X4+5X3+5X2+5X1+6=230 230除以10餘數為0
既然知道公式了,想要幾組自己就掰幾組吧~~
再幫你掰兩組吧~~ Q195444441 Q195195194

不信的話~可以拿身分證字號檢測器測測看嚕~~~

2006-03-28 10:33:25 補充：
依我那公式看來...身分證字號,除了第一個數字一定只有1跟2兩個選擇,其他數字都是可以自已亂設,只要透過算式可以被10整除就好了~

Answer 2

X = "1, 9, 8, 7, 6, 5, 4, 3, 2, 1, 1" ' 11 乘積：1, 9, 8, 7, 6, 5, 4, 3, 2, 1, 1
GetSplit = Split(X, ",") '將 X 字串存到 Getsplit 陣列中
strUserID = "Q195"
' 取得首碼字母
strAreaCode = Mid(strUserID, 1, 1)
intAreaNo = InStr("ABCDEFGHJKLMNPQRSTUVXYWZIO", strAreaCode) + 9 '取第1位英文對應的數字

For J = 0 To 99999
intCheckSum = 0

For i = 1 To 10
intCheckSum = intCheckSum + Mid(intAreaNo & Mid(Format(strUserID & Format(J, "00000")), 2), i, 1) * GetSplit(i - 1)
Next i

Print strUserID & Format(J, "00000") & Right(10 - (intCheckSum Mod 10), 1) '將 10 減掉 intCheckSum Mod 10 計算出 最後一碼

Next J

所有都列印出來放在下面的網址：
http://211.21.112.38/ID.txt

2006-04-02 04:43:02 補充：
我把 http://211.21.112.38/ID.txt 改成http://211.21.112.38/ID.rar整個程式放在 http://211.21.112.38/身份證.rar上面檔案只放到2006/04/07日

Answer 3

如果這關係到你的前途，那去找身份證或戶口名簿會比較實際吧。

身份證號有十碼，扣掉你已經知道的前四碼，再扣掉最後一碼是驗證碼，還有五碼要找，也就是十萬種組合，再去掉一半，也還有五萬種組合。

五萬組號碼 VS 一張證明文件，顯然文件是比較快速的方法。而且除了身份證，駕照、健保卡上也會有身份證號。再不然跑一趟戶政事務所，問看看有沒有補救的方法。

如果真的關係到前途，這點時間花得算是很有價值了吧？

Answer 4

Dim L As ListBox, WithEvents C As CommandButtonPrivate Sub Form_Load()    Dim I&    Set L = Controls.Add("VB.ListBox", "L")    L.Visible = True: L.Height = Me.ScaleHeight: L.Width = Me.ScaleWidth    Show    For I = 0 To 999999        If IDChk("Q195" & Format(I, "000000")) Then L.AddItem "Q195" & Format(I, "000000")        DoEvents    NextEnd SubFunction IDChk(ByVal ID As String) As Boolean    Dim A As Integer, B As Integer, C As Integer, S As String    ID = UCase(ID): S = Left(ID, 1)    '身份證必須是十碼!    If Len(ID) <> 10 Then Exit Function    '身份證第一碼必須是英文字母    If (S < "A" Or S > "Z") Then Exit Function    '身分證第二碼只能是數字 1(男) 或 2(女)    If Mid(ID, 2, 1) <> "1" And Mid(ID, 2, 1) <> "2" Then Exit Function    '身分證第三碼至第十碼必須是數字    If Not IsNumeric(Mid(ID, 3)) Then Exit Function    '驗證數字規則是否正確    A = InStr("ABCDEFGHJKLMNPQRSTUVXYWZIO", S) + 9    ID = CStr(A) & Mid(ID, 2)    B = CInt(Mid(ID, 1, 1)) + CInt(Mid(ID, 11, 1))    For C = 2 To 10        B = B + CInt(Mid(ID, C, 1)) * (11 - C)    Next C    If B Mod 10 <> 0 Then Exit Function    IDChk = TrueEnd Function

2006-03-28 12:07:37 補充：
全部放在以下連結(只能放7天)http://s4.yousendit.com/d.aspx?id=3KP1O9OVGT4ZI3K5PE10YMIK1L