วิธีตรวจสอบรหัสบัตรประชาชน

เคยสร้างกระทู้แบบนี้ขึ้นมา โดนพี่ "โกส" ลบไปละ เหอๆ :p

วางเว๊บไซต์มันก็ไปอ้างอิง ฐานข้อมูลจากรัฐบาลเลยนะครับบ

เช่น พันทิพ แห่ๆ

งง อย่างแรง
เหอะๆๆ
ไงก็ขอบคุณมากเลยนะคะ

แบบทดสอบความรัก +++++++++

ลองดู

ลองดู



ทดสอบความรัก



ทดสอบ...ความรัก...ของตัวเอง



ทดสอบความเซ็กซี่ (ถ้าโกงขอให้ไม่เปงจิง)



เอากระดาษมาแผ่นนึงแล้วเขียน 1-10



(ห้ามโกงเด็ดขาด)



1.คุณมีผมสีอ่อนหรือเข้ม

2.ถ้าเกิดได้ไปเดทคุณจะเลือกไปกินข้าว 2 ต่อ 2 หรือไปงานปาร์ตี้

3.สีโปรดของคุณคืออะไรระหว่าง ชมพู,เหลือง,ฟ้าอ่อน หรือเขียว

4.กิจกรรมที่คุณโปรดปรานมากที่สุดระหว่าง โต้คลื่น , เสก็ต หรือ สกี

5.ถ้าจะเลือกท่าเรือระหว่าง อู่เรือรบเก่า, อู่แปซิฟิค หรือ อู่วิคตอเรียซีเคร็ต คุณจะเลือกอันไหน

6.รัฐที่คุณชอบที่สุดรัฐใดระหว่าง แคริฟอร์เนีย, ฟลอริดา หรือ โอไฮโอ

7.ในฤดูร้อนคุณจะไป ทะเล หรือ จะไปที่ๆเย็นกว่านี้

8.เกิดเดือนอะไร

9.คุณจะนั่งอืดอยู่ที่บ้านหรือ ออกไปเที่ยวกับเพื่อน

10.ชื่อคนที่เป็นเพศตรงข้ามกับคุณ

*********** อธิษฐาน **********



*คำตอบ*



1. สีเข้ม-เซ็กซี่ ~ สีอ่อน-หวาน น่ารัก

2. ไปกินข้าว2ต่อ2-โรแมนติค ~ ไปปาร์ตี้-ขี้เล่น

3. ชมพู-น่ารัก ~ เหลือง-ชอบเสียงดัง ~ ฟ้าอ่อน-ใจเย็น ~ เขียวน้ำทะเล-แข็งแกร่ง

4. โต้คลื่น-ว่องไว คล่องแคล่ว ~ เสก็ต-เด็ดเดี่ยว ~ สกี-กล้าหาญ

5. อู่เรือรบเก่า-น่ากลัว ~ อู่แปซิฟิค-สนุกสนาน ~ อู่วิคตอเรีย ซีเคร็ต-เซ็กซี่

6. แคลิฟอร์เนีย - คุณชอบอยู่กับคนมากๆ ~ ฟลอริดา-ปาร์ตี้ในความร้อน ~ โอไฮโอ-

เงียบ เย็น

7. ทะเล-ผิวสีแทน ชอบพระอาทิตย์ ~ ที่ๆเย็นกว่านี้-ผิวสีอ่อน และ หัวโบราน

8. มกราคม-โด่งดัง ~ กุมภาพันธ์-น่ารัก ~ มีนาคม-เสียงดัง ~ เมษายน-ขี้เล่น

พฤษภาคม-ใจเย็นมาก ~ มิถุนายน-อารมณ์ดี ~ กรกฎาคม-เรียบง่าย ~ สิงหาคม- สนุก

สนาน ~ กันยายน-เงียบ ~ ตุลาคม-กล้าแสดงออก ~ พฤศจิกายน-ชอบยุ่งเรื่องคนอื่น

(ทั้งทางดีและไม่ดี) ~ ธันวาคม-อบอุ่น

9. อืดอยู่บ้าน-น่าเบื่อ ~ ไปเที่ยวกับเพื่อน-บ้าๆบอๆ

10. คนนั้นจะตกหลุมรักคุณ!!!!!

ถ้าคุณโฟสกระทู้นี้ไปเวปอื่น:



0 เวป...คำอธิษฐานของคุณจะไม่เป็นจิง

1-5 เวป....คำอธิษฐานของคุณจะเป็นจิงภายใน6เดือน

6-10 เวป....คำอธิษฐานของคุณจะเป็นจิงภายใน2อาทิตย์

11 เวปขึ้นไป.....จะเป็นจิงเร็ว
#6 by (124.121.64.189) At 2007-09-15 10:20,

ใช้มั่วเลขบัตรในเกมไง

ผมยังไม่มีครับอีก1ปีถังได้

เทพมากครับ

modulation มันคือไรอะ ได้มาจากไหน งงแหะ

ใช้ๆๆหาจากไหน แล้วเล่น 14หลักจะหาไงหรอ

เด๋วขอลองเขียนโปรแกรมด้วยคน
(งงตั้งแต่บรรทัดแรก) อิอิ

พยายามทำความเข้าใจแล้ว สุดท้ายก็งงอยู่ดี

ขอบคุณคับ

Public Function PIDGen() As String

Dim I As Byte
Dim RD(11) As Short
Dim RS As Short
Dim TR As Short
Dim CK As String

PIDGen = ""
For I = 0 To 11
Randomize()
RD(I) = Int(Rnd() * 10)

If I = 0 And RD(I) = 0 Then RD(I) = 5
RS += RD(I) * (13 - I)
Next

TR = RS Mod 11
CK = Right(11 - TR, 1)

For I = 0 To 11
PIDGen &= RD(I)
Next

PIDGen &= CK

End Function

'----------------------------------------------------------------------

Public Function PIDChk(ByVal PID As String) As String

Dim I As Byte
Dim RD(12) As Short
Dim RS As Short
Dim TR As Short
Dim CK As String
Dim RT As String

'PID ต้องเป็นตัวเลข 13 หลัก ดัก Error เอาเองเน้อ แหะๆ


RT = Left(PID, 12)
For I = 0 To 12
RD(I) = Mid(PID, I + 1, 1)

If I = 12 Then ExitFor
RS += RD(I) * (13 - I)
Next

TR = RS Mod 11
CK = Right(11 - TR, 1)

If RD(12) = CK Then
'ถ้าถูกต้องคืนค่าเป็นข้อความนี้ หรืออะไรก็แก้เอา
PIDChk = "Correct PID"
Else
'แต่ถ้าไม่ถูกส่ง PID ที่ถูกต้องกลับไปแทน
PIDChk = RT & CK
EndIf

End Function

โอ้วสุดย๊อด เยี่ยมจริงๆเล้ย