身分證產生器(測試版)NBG

q8966338

先閱讀內容，在來打勾，使用


   驗證是要產生後使用，有男女可以選擇，幾組不用說拔，最前碼就是縣市，假如我在彰化就是N





...

瀏覽完整內容，請先 註冊 或 登入會員

kev72806

丙檢有要考到這個~
下載來參考一下囉~~

南拳下雨天

這是甚麼?????????呢??

kea43291

他的身分證是自己產生的...還是....?截取某個網頁的?

zxc82134

感覺滿酷的
下載看看

watchtv76

真好~~我要下載來用用看吧
我看起來不錯用唷
太棒了

q8966338

他的身分證是自己產生的...還是....?截取某個網頁的?
kea43291 發表於 2010-10-24 09:35 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

    當然是自己產生的，如果用的滿意，將會推出正式版，功能比測試版更多喔！
...

瀏覽完整內容，請先 註冊 或 登入會員

大大，可以給我程式碼嗎??
想試著製作看看耶..
順便讓大家觀摩吧-.-

aeguls

好像挺實用的樣子 拿去用用看囉 非常感謝大大你的分享!

x213212

謝謝大大分享

voice0107

是否可用:可
測試是否有BUG:不是全部產生出來的都是可以用的
使用感想:有些產生出來的還是可以用.所以還是謝謝大大的分享

jack810216

身分證應該是由某種公式套用後所產申的
如果單純只是產生1個英文+男女+8個隨機號碼是不可能通過驗證的
正常來說應該是1個縣市英文+男女+7個數字+1個驗證號碼
隨便舉個例子A123456789這看起來像是一組身分證號碼
但是拿去某些網站驗證卻說身分證錯誤之類的
但是只要把最後一個9 從0.1.2.3.4.5.6.7.8.9每個都試一次就會發現
其中有一個號碼搭配A12345678是符合的 是可以通過驗證的
...

瀏覽完整內容，請先 註冊 或 登入會員

jack04pc

是否可用:Y
測試是否有BUG:Y
使用感想:

他男女多顯示了一次 在那個 Combo 那邊


整體來講不錯 =D

這是 學校作業 !? 程設丙檢的範圍吧

這個不難寫

我自己的原碼

驗證 + 製造 (開頭英文、男女隨機)

1. Private Sub Command1_Click()
   
2. Randomize
   
3. eng = "ABCDEFGHJKLMNPQRSTUVXYWZIO"
   
4. 
   
5. Do
   
6. a = Int(27 * Rnd(10))
   
7. Loop While a = 0
   
8. 
   
9. X1 = Mid(a + 9, 1, 1)
   
10. X2 = Mid(a + 9, 2, 1)
    
11. 
    
12. Do
    
13. b = Int(10000000 * Rnd(100))
    
14. Loop While Len(b) <> 7
    
15. 
    
16. 
    
17. 
    
18. Do
    
19. c = Int(3 * Rnd(10))
    
20. Loop While c = 0
    
21. 
    
22. 
    
23. m = 7
    
24. For i = 1 To 7
    
25. k = Mid(b, i, 1)
    
26. s = s + (k * m)
    
27. If m <> 1 Then m = m - 1
    
28. Next
    
29. 
    
30. s = s + (c * 8) + X1 + (X2 * 9)
    
31. fa = 10 - (s Mod 10)
    
32. 
    
33. ids = Mid(eng, a, 1) & c & b & fa
    
34. 
    
35. Text1.Text = ids
    
36. End Sub
    
37. 
    
38. Private Sub Command2_Click()
    
39. ins = Text1.Text
    
40. 
    
41. Dim s(10)
    
42. 
    
43. For i = 1 To 10
    
44. s(i) = Mid(ins, i, 1)
    
45. Next
    
46. 
    
47. check = InStr("ABCDEFGHJKLMNPQRSTUVXYWZIO", s(1)) + 9
    
48. 
    
49. X1 = Mid(check, 1, 1)
    
50. X2 = Mid(check, 2, 1)
    
51. 
    
52. sums = X1 + X2 * 9 + s(2) * 8 + s(3) * 7 + s(4) * 6 + s(5) * 5 + s(6) * 4 + s(7) * 3 + s(8) * 2 + s(9) + s(10)
    
53. 
    
54. If sums Mod 10 = 0 Then ans = "正確" Else ans = "錯誤"
    
55. Print ans
    
56. 
    
57. 
    
58. 
    
59. End Sub

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

當好人不容易

試過了不錯用喔
感謝大大分享

cow1997cow1997

謝謝大大^^   不錯