查看完整版本: 身分證產生器(測試版)NBG

論壇 › Visual Basic 語言 › 身分證產生器(測試版)NBG

q8966338 發表於 2010-8-17 10:36 PM

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

本帖最後由 q8966338 於 2010-8-17 10:37 PM 編輯


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


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






雖然不是很好，不過也回復一下吧

回覆格式;是否可用:(Y/N)
測試是否有BUG:(Y/N)
使用感想:...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><div></div>

kev72806 發表於 2010-10-15 08:56 PM

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

南拳下雨天 發表於 2010-10-24 03:12 AM

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

kea43291 發表於 2010-10-24 09:35 AM

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

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

zxc82134 發表於 2010-10-26 02:19 PM

感覺滿酷的
下載看看<br><br><br><br><br><div></div>

watchtv76 發表於 2010-11-5 03:46 PM

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

q8966338 發表於 2010-11-6 07:58 PM

他的身分證是自己產生的...還是....?截取某個網頁的?
kea43291 發表於 2010-10-24 09:35 AM http://www02.eyny.com/images/common/back.gif


    當然是自己產生的，如果用的滿意，將會推出正式版，功能比測試版更多喔！
不過，您用的還可以吧?，不行的話要說喔

超帥夏天 發表於 2010-11-20 07:11 PM

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

aeguls 發表於 2010-11-22 10:29 PM

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

x213212 發表於 2010-11-27 05:30 PM

謝謝大大分享{:1_newtoo_sad:}<br><br><br><br><br><div></div>

voice0107 發表於 2011-1-11 09:29 AM

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

jack810216 發表於 2011-1-11 01:06 PM

身分證應該是由某種公式套用後所產申的
如果單純只是產生1個英文+男女+8個隨機號碼是不可能通過驗證的
正常來說應該是1個縣市英文+男女+7個數字+1個驗證號碼
隨便舉個例子A123456789這看起來像是一組身分證號碼
但是拿去某些網站驗證卻說身分證錯誤之類的
但是只要把最後一個9 從0.1.2.3.4.5.6.7.8.9每個都試一次就會發現
其中有一個號碼搭配A12345678是符合的 是可以通過驗證的
至於那串公式是什麼我也不知道.......<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div>

jack04pc 發表於 2011-1-13 11:20 PM

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

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


整體來講不錯 =D

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

這個不難寫

我自己的原碼

驗證 + 製造 (開頭英文、男女隨機)Private Sub Command1_Click()
Randomize
eng = "ABCDEFGHJKLMNPQRSTUVXYWZIO"

Do
a = Int(27 * Rnd(10))
Loop While a = 0

X1 = Mid(a + 9, 1, 1)
X2 = Mid(a + 9, 2, 1)

Do
b = Int(10000000 * Rnd(100))
Loop While Len(b) <> 7



Do
c = Int(3 * Rnd(10))
Loop While c = 0


m = 7
For i = 1 To 7
k = Mid(b, i, 1)
s = s + (k * m)
If m <> 1 Then m = m - 1
Next

s = s + (c * 8) + X1 + (X2 * 9)
fa = 10 - (s Mod 10)

ids = Mid(eng, a, 1) & c & b & fa

Text1.Text = ids
End Sub

Private Sub Command2_Click()
ins = Text1.Text

Dim s(10)

For i = 1 To 10
s(i) = Mid(ins, i, 1)
Next

check = InStr("ABCDEFGHJKLMNPQRSTUVXYWZIO", s(1)) + 9

X1 = Mid(check, 1, 1)
X2 = Mid(check, 2, 1)

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)

If sums Mod 10 = 0 Then ans = "正確" Else ans = "錯誤"
Print ans



End Sub
...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div>

當好人不容易 發表於 2012-2-1 09:43 AM

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

cow1997cow1997 發表於 2014-4-16 09:20 AM

謝謝大大^^   {:31:}{:31:}不錯:)<br><br><br><br><br><div></div>