เราเขียนโปรแกรมสุ่มเลข guid ได้เป่าคับ

จาทำโปรแกรม autoit สุ่มโค้ดเอาแบบที่แจกหน้าบ็อกมีสูตรทำเป่าคับ

ถามอีกอานถ้าทำโปรแกรมสุมเลขบัตรประชาชนทำงัยคับเอาไปสมัคเล่นเกม งิงิ

พอมีวิธีคำนวณอยู่นะครับ...^^"

1111111111119
อันนี้ก็เป็นของจริง (ของใครก็ไม่รู้)ตัวเลข12ตัวแรกจะบอกถึงภูมิลำเนาของเจ้าของว่าอยู่ไหนเป็นคน
จังหวัดอะไรอย่างนั้นส่วนตัวเลขตัวที่ 13 นั้นจะเป็นตัว Check ว่ารหัสนั้นเป็นของจริงหรือ เปล่า เราลองมาดูการ
คำนวนกันดีกว่า

1.มั่วตัวเลข 12 ตัวขึ้นมาแล้วแยกหลักซะ
1 2 1 3 1 4 1 5 1 6 1 7

2.คูณเข้าไปด้วยค่าประจำหลักของตัวเลขนั้นๆ (ตัวเลข 13-2 ที่ใช้คูณเป็นค่าคงที่)
(1x13) (2x12) (1x11) (3x10) (1x9) (4x8) (1x7) (5x6) (1x5) (6x4) (1x3) (7x2)

3.จะได้ตัวเลขต่อไปนี้
13 24 11 30 9 32 7 30 5 24 3 14

4.เอาตัวเลขมาบวกกันทั้งหมด
13+24+11+30+9+32+7+30+5+24+3+14= 202

5.เอาตัวเลขที่หามาได้หารด้วย11 แล้วเอาเศษมันมา
202/11 = 4

6.ต่อมาก็ให้เอาเศษที่เราหามาได้นั้นไปลบกับ 11
11-4 = 7

7.ตัวเลขที่ออกมาก็คือ
1213141516177

ที่มา: [You must be registered and logged in to see this link.]

จะสร้าง CLSID วินโดวส์มีเครื่องมือให้อยู่แล้วครับ

Code:

$oScriptlet = ObjCreate ("Scriptlet.TypeLib")
 MsgBox(0,"",$oScriptlet.Guid)

ส่วนเลขบัตรก็แปลงเอาวิธีการที่คุณ jakkrich แนะนำ ก็จะได้คำสั่งด้านล่างนี้ (ไม่ได้ทดสอบนะครับ)

Code:

MsgBox(0,"",RandomNum())

Func RandomNum()
   $n1 = Random(0,9,1)
   $n2 = Random(0,9,1)
   $n3 = Random(0,9,1)
   $n4 = Random(0,9,1)
   $n5 = Random(0,9,1)
   $n6 = Random(0,9,1)
   $n7 = Random(0,9,1)
   $n8 = Random(0,9,1)
   $n9 = Random(0,9,1)
   $n10 = Random(0,9,1)
   $n11 = Random(0,9,1)
   $n12 = Random(0,9,1)

   $sumdigit = ($n1 * 13)+($n2 * 12)+($n3 * 11)+($n4 * 10)+($n5 * 9)+($n6 * 8)+($n7 * 7)+($n8 * 6)+($n9 * 5)+($n10 * 4)+($n11 * 3)+($n12 * 2)
   $snum = 11 - mod($sumdigit,11)

   if $snum =10 Then
      $digit1 = $n1&$n2&$n3&$n4&$n5&$n6&$n7&$n8&$n9&$n10&$n11&$n12&"0"
   ElseIf $snum =11 Then
      $digit1 = $n1&$n2&$n3&$n4&$n5&$n6&$n7&$n8&$n9&$n10&$n11&$n12&"1"
   Else
      $digit1 = $n1&$n2&$n3&$n4&$n5&$n6&$n7&$n8&$n9&$n10&$n11&$n12&$snum
   EndIf
   Return $digit1
   EndFunc

ขอบคุณคับ