|
¿ì¿¬È÷ NT¿¡¼ ¸ÞÀϸµÀ» µ¹·Á¾ß ÇÒ±âȸ°¡ »ý°Ü¼ ¾Ë°ÔµÇ¾ú½À´Ï´Ù.
¿©·¯ºÐ°ú ÇÔ²² Á¤º¸°øÀ¯¸¦ À§Çؼ ¿Ã·Áµå¸³´Ï´Ù... ^^
¿ì¼± blat.zipÆÄÀÏÀ» ´Ù¿î¹ÞÀ¸¼Å¼ ¾ÐÃàÀ» Ǫ¼¼¿ä...
¼³¸í¼´Â readme.txtÆÄÀÏÀ» Âü°í·Î ÇÏ½Ã¸é µÇ´Âµ¥ ¿µ¾î·Î µÇ¾îÀֱ⠶§¹®¿¡ Àú°°ÀÌ ¿µ¾î¸¦ Àß ¸øÇϽô ºÐµéÀº... ¾Æ·¡ ¼³¸íÀ» Âü°í·Î Çϼ¼¿ä...
1. "gwinsock.dll" ÆÄÀϰú "blat.exe"ÆÄÀÏÀ» "WINNTSYSTEM32"µð·ºÅ丮¿¡´Ù º¹»çÇØ¼ ºÙ¿© ³Ö±â ÇÕ´Ï´Ù....
2. ½ÃÀÛ¹öư->½ÇÇà ¶õ¿¡
command
¶ó°í Ä¡½Ã¸é µµ½ºÃ¢ÀÌ ³ªÅ¸³ª´Âµ¥... ±×°÷¿¡¼
Áï µµ½ºÃ¢¿¡¼
WINNTSYSTEM32
µð·ºÅ丮·Î À̵¿Çϼż
Blat -install yourdomain.co.kr Çϰí Ä¡½Ã¸é µÈ´ä´Ï´Ù....
±×·³ blatÀº ¼³Ä¡°¡ µÈ°ÍÀ̰í À̰ÍÀ» ÀÌ¿ëÇØ¼ Æû¸ÞÀÏÀ̳ª ¸ÞÀϸµÀ» µ¹¸®½Ã·Á¸é ¾Æ·¡ ¼Ò½º¸¦ Âü°í·Î Çϼ¼¿ä... ^^
#!/usr/bin/perl
$mail_program = "c:/winnt.sbs/system32/blat"; #NT¸ÞÀÏ ÇÁ·Î±×·¥(blat.ext) À§Ä¡
$recipients = " test1@test.co.kr, test2@test.co.kr"; #¸ÞÀÏ º¸³¾ »ç¶÷ ±¸ºÐ....
,
À¸·Î ±¸ºÐÇÏ¸é µÊ!!!
$subject = "ÀÌ°Ç Å×½ºÆ® ¶ó¿ä~"; #Á¦¸ñÀÌ µé¾î°¡´Â ÀÚ¸®...
$fromsender = " madgf@hanmail.net"; #º¸³»´Â »ç¶÷ ¸ÞÀÏ ÁÖ¼Ò...
$comments = "Çб³Á¾ÀÌ ¶¯¶¯¶¯ ¾î¼ ¸ðÀÌÀÚ"; #º¸³»½Ç ³»¿ëÀÔ´Ï´Ù...
$file = "mailling.txt ";
open(OUTPUT, ">$file");
print OUTPUT "$comments
";
print OUTPUT "¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß
";
print OUTPUT " this mail from: http://sepal.woorizip.com/
";
print OUTPUT "¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß
";
close(OUTPUT);
$commandline = $mail_program;
$commandline .= " $file";
$commandline .= "-s "$subject" " if $subject;
$commandline .= "-t "$recipients"" if $recipients;
$commandline .= "-f $fromsender " if $fromsender;
system($commandline);
unlink($file);
Âü°í·Î $recipients¿¡¼
-t ¿É¼Ç: ¹ÞÀ»»ç¶÷ ¹Ýµå½Ã Àû¾î¾ßÇÔ!
-c ¿É¼Ç: ÂüÁ¶
-b ¿É¼Ç: ¼ûÀºÂüÁ¶
(°¢ ¿É¼Ç¿¡¼ ¸ÞÀϵéÀº ,·Î ±¸ºÐ...)
¿¹: $commandline .= "-t "$recipients"" "-c "$recipients"" "-b "$recipients""
°¢°¢ ¸ÞÀÏ¿¡ ÂüÁ¶¿Í ¼ûÀºÂüÁ¶¸¦ º¸³¿...
¿ø¹®¹ßÃé : http://www.spfamily.com
|