>¾È³çÇϼ¼¿ä
>Ãʺ¸¶ó¼­ Àß ¸ð¸¨´Ï´Ù ¼ºÀλçÀÌÆ®¶ó¼­ ÁֹιøÈ£¸¦ Åë°úÇÏ°Ô
>¸¸µé¾î¶óÇϴµ¥
>ÀÚ·á½Ç¿¡ µî·ÏµÇ¾îÁø ÀڷḦ º¸¸é ¼³¸íÀÌ ¾ø¾î¼­
>¾î¶»°Ô ¼³Ä¡¸¦ ÇØ¾ß ÇÒÁö
>Àß ¸ð°Ú½À´Ï´Ù
>
>Ãʺ¸¿¡°Ô ½¬¿î¼³¸í ºÎŹµå·Á¿ä.


¾È³çÇϼ¼¿ä, HappyCGI ÆÀÀÇ VoposÀÔ´Ï´Ù.

Perl¿¡ ´ëÇÑ Áö½ÄÀÌ Âزû ÇÊ¿äÇÏ°Ú½À´Ï´Ù.

¸ÕÀú ÀÚ·á½Ç¿¡ ¿Ã¶ó¿ÍÀÖ´Â ¼Ò½º·Î ¼­ºê·çƾÀ» Çϳª ¸¸µì´Ï´Ù.

sub social_id_check {

(my $id = shift) =~ /(.)(.)(.)(.)(.)(.)-?(.)(.)(.)(.)(.)(.)(.)/;
$id = ($1*2)+($2*3)+($3*4)+($4*5)+($5*6)+($6*7)+($7*8)+($8*9)+($9*2)+($10*3)+($11*4)+($12*5);
$id %= 10 if ($id = 11- ($id % 11)) > 9;
return 1 if $13 == $id;

}


´ÙÀ½¿¡´Â º¯¼ö¸¦ ¼­ºê·çƾ¿¡ º¸³»°í ¾î¶² °ªÀÌ µ¹·ÁÁö´ÂÁö È®ÀÎÇÕ´Ï´Ù.

unless ( social_id_check($social_id) ) {

print "Áֹεî·Ï¹øÈ£°¡ Á¤È®ÇÏÁö ¾Ê½À´Ï´Ù";
exit;

}


À§ÀÇ ¼­ºê·çƾ¿¡¼­ Á¤È®ÇÏÁö ¾ÊÀº ¹øÈ£°¡ µé¾î¿À¸é °ªÀÌ false(0)°¡
µË´Ï´Ù. µû¶ó¼­ ¾Æ·¡¿¡ ÀÖ´Â ºÎºÐ¿¡¼­ true °ªÀ» µ¹·Á¹ÞÁö ¾ÊÀ¸¸é
Á¶°Ç¹®ÀÌ ½ÇÇàµÇ°í ¿¡·¯ ¸Þ¼¼Áö·ê Ãâ·ÂÇÏ°í ÇÁ·Î±×·¥À» ³¡³»°Ô µË´Ï´Ù.

µµ¿òÀÌ µÇ¼Ì³ª¿ä? °¨»çÇÕ´Ï´Ù.

- Vopos