墨迹哥's

摘要： 之前在腾讯微薄上曾发表过类似的讨论。为此和以前一个同事说过一下，主要难度还是在于如何去判断流量异常。现在试着把自己的想法写出来看看，以后有机会的话好去实现。DDOS攻击会在Netstat -atnp中看到很多IP，我的初始想法是把这些IP通过Perl把这些IP收集起来，然后根据流量的大小来禁止这些IP的访问，例如直接把IP给过滤出来，然后直接用脚本批量加入到防火墙禁止的列表当中。但是这个想法有个很明显的弊端，例如对于一些访问量比较大的服务器，这样就会产生很多误差，这是一个不太好的事情。所以。。。这个还得考虑完整。。 阅读全文

摘要： 自己学习的时候，顺手写的。主要为了减少重复操作！感觉还是可以的！package com.hr.utils;import java.util.List;import org.hibernate.Query;import org.hibernate.Session;import org.hibernate.SessionFactory;import org.hibernate.cfg.Configuration;public class HibenateUtil { // 获取配置文件 private static Configuration cfg; private static ThreadL 阅读全文

摘要： 我就直接贴代码了。没做什么注释，因为还在修改，目前还有点不太理解，跑去看了下云舒的代码，感觉那个应该有点启发。回头好好修改下。这些多线程模块还有点不太熟悉，主要跟进程弄乱了。得好好琢磨下，如果可以改成别的就更爽了。不过他们都说perl多线程不靠谱。。汗。。#!/usr/bin/perluse Net::Ping;use threads;use threads::shared;system('clear');print "please set the IP(C):";chomp($ip=<STDIN>);print "StartIP:&q 阅读全文

摘要： 看了一些前辈的多线程文章，感觉理解了差不多了。就写了这个小程序。这个程序有点乱，不过没有时间整理写注释，回头有空写成mode吧。#!/usr/bin/perluse threads;use Net::Ping;$p=Net::Ping->new();sub slep_ping{ local($host_ip)=shift; if($p->ping($host_ip)) { print "$host_ip is access---------OK!\n"; }else{ print "$host_ip is No access\n"; } $p 阅读全文

摘要： 加了一些注释，主要是为了复习一些包的使用。还有多线程的一些使用方法。#!/usr/bin/perluse Getopt::Long; #这个包使用来做选项用的use threads; #这个是线程包use Thread::Semaphore; #这个是线程信号量控制使用的包use Smart::Comments; #这个会在用FOREACH 的时候弄出进度条..不过没成功使用...use Net::Ping; #这个是主角，也是ping的使用包use threads::shared; #用于线程当中共享变量use Socket; #用于端口扫描#设定接受选项 -thread设置线程... 阅读全文