| Labrea :: tarpit. LABREA :: TARPIT Perl ¸ðµâÀº Tom ListonÀÇ Labrea Scanner / Worm Disrutor ¿ë À¯Æ¿¸®Æ¼ ¹× À¥ µð½ºÇ÷¹À̸¦ Æ÷ÇÔÇÕ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Labrea :: tarpit. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Michael Robinton
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~miker/Net-DNS-Codes-0.09/Codes.pm
Labrea :: tarpit. ű×
Labrea :: tarpit. ¼³¸í
Labrea :: Tarpit Perl ¸ðµâÀº Tom ListonÀÇ Labrea Scanner / Worm Disrutor¸¦À§ÇÑ À¯Æ¿¸®Æ¼ ¹× À¥ µð½ºÇ÷¹À̸¦ Æ÷ÇÔÇÕ´Ï´Ù. Labrea :: Tarpit Perl ¸ðµâÀº Tom ListonÀÇ Labrea ½ºÄ³³Ê / ¿ú È¥¶õÀ»À§ÇÑ À¯Æ¿¸®Æ¼ ¹× À¥ µð½ºÇ÷¹À̸¦ Æ÷ÇÔÇÕ´Ï´Ù. Synopsis »ç¿ë ·¡ºê ·¹¾Æ :: Tarpit QW (); ¶Ç´Â Labrea :: tarpit; µ¥¸ó (% Çؽà ¶Ç´Â % ÇؽÃ); $ bandwidth = ´ë¿ªÆø (% tarpit); $ Midnight = ÀÚÁ¤ ($ epoch_time, $ tz); $ timezone = timezone ($ Áö±Ý); $ SEC = $ TZ2_SEC ($ TZ); $ TIME_STRING = LEST_DATE ($ GMTime, $ TZ); $ rv = restore_tarpit (% tarpit, path2cache_file); $ rv = log2_mem (% tarpit, log_line, is_daemon, port_intvls, dshield); $ rv = process_log (% tarpit, path2log_file, is_daemon, port_intvls); $ rv = cull_threads (% tarpit, timeout, scanners, port_intvls, dshield); $ rv = write_cache_file (% tarpit, path2cache_file, umask, ±ê¹ß); prep_report (% tarpit, % hash); $ rv = find_old_leds (% tarpit, % º¸°í¼, $ ¿¬·É); ¿ä±¸ »çÇ× : ¡¤ Perl. ¡¤ NET :: WHOIS :: IP ¹öÀü 0.35. ¡¤ Net :: ³Ý ¸¶½ºÅ© ¹öÀü 1.8 ÀÌ»ó ¡¤ ·¡ºê¸® ¹öÀü 2.4b3 ÀÌ»ó
Labrea :: tarpit. °ü·Ã ¼ÒÇÁÆ®¿þ¾î