+++ /dev/null
-#!/usr/bin/env python
-# -*- coding: utf-8 -*-
-# ------------------------------------------------------------------------
-# File Name: GetWanIP.py
-# Author: Zhao Yanbai
-# Thu Oct 30 04:34:37 2014
-# Description: none
-# ------------------------------------------------------------------------
-import os
-import re,urllib2
-import smtplib
-import ConfigParser
-from email.mime.text import MIMEText
-
-'''
- CONFIG FILE SAMPLE
-[EMAIL]
-MAILTO = xxx@xx.com
-MAILHOST= smtp.xx.com
-MAILUSER= xxxxx
-USERNICK= xxx
-MAILPASS= *****
-MAILPOSTFIX= xx.com
-'''
-'''
- CONTAB
-* * * * * root cd /xxx/xxx/xxx/ && python GetWanIP.py >> ./xxx.log 2>&1
-'''
-
-CONFIG_FILE_PATH = '/etc/GetWanIP.conf'
-TMP_FILE_PATH = './WanIP.txt'
-
-mailto_list=[]
-mail_host="" #设置服务器
-mail_user="" #用户名
-user_nick=""
-mail_pass="" #口令
-mail_postfix="" #发件箱的后缀
-
-class GetWanIP:
- def GetIP(self):
- try:
- print "Try ip.qq.com"
- WanIP = self.Visit("http://ip.qq.com")
- except:
- WanIP = "Failed to Get WanIP!!!"
- return WanIP
- def Visit(self,url):
- opener = urllib2.urlopen(url)
- if url == opener.geturl():
- str = opener.read()
- return re.search('\d+\.\d+\.\d+\.\d+',str).group(0)
-
-
-def send_mail(to_list,sub,content): #to_list：收件人；sub：主题；content：邮件内容
- me=user_nick+"<"+mail_user+"@"+mail_postfix+">" #这里的hello可以任意设置，收到信后，将按照设置显示
- msg = MIMEText(content,_subtype='html',_charset='gb2312') #创建一个实例，这里设置为html格式邮件
- msg['Subject'] = sub #设置主题
- msg['From'] = me
- msg['To'] = ";".join(to_list)
- try:
- s = smtplib.SMTP()
- s.connect(mail_host) #连接smtp服务器
- s.login(mail_user,mail_pass) #登陆服务器
- s.sendmail(me, to_list, msg.as_string()) #发送邮件
- s.close()
- return True
- except Exception, e:
- print str(e)
- return False
-if __name__ == '__main__':
- try :
- fd = open(TMP_FILE_PATH)
- try :
- OldWanIP = fd.readline().strip()
- except :
- OldWanIP = '0.0.0.0'
- fd.close()
- except :
- OldWanIP = '0.0.0.0'
-
- getWanIP = GetWanIP()
- WanIP = getWanIP.GetIP()
-
- cnfp = ConfigParser.ConfigParser()
- cnfp.read(CONFIG_FILE_PATH)
- mailto_list.append(cnfp.get('EMAIL', 'MAILTO'))
- mail_host = cnfp.get('EMAIL', 'MAILHOST')
- mail_user = cnfp.get('EMAIL', 'MAILUSER')
- user_nick = cnfp.get('EMAIL', 'USERNICK')
- mail_pass = cnfp.get('EMAIL', 'MAILPASS')
- mail_postfix = cnfp.get('EMAIL', 'MAILPOSTFIX')
-
- if OldWanIP != WanIP :
- s = 'WanIP has Changed From ' + OldWanIP + ' To ' + WanIP
- print s
- if send_mail(mailto_list,"New WanIP", s):
- print "发送成功"
- fd = open(TMP_FILE_PATH, 'w+')
- fd.write(WanIP+'\n')
- fd.close()
- else:
- print "发送失败"
+++ /dev/null
-#!/usr/bin/env perl
-# ------------------------------------------------------------------------
-# File Name: gscs
-# Author: Zhao Yanbai
-# Tue Feb 14 13:42:22 2012
-# Description: Generate Shell Code String
-# 在对可执行文件执行objdump -d xxx > xxx.S后
-# 在xxx.S中找到ShellCode处的代码将之生成成
-# \x55\x89\xe5\x90\x90\x90\x90\xb8\xbb\xaa\x00\x00\x5d\xc3
-# 式的客串
-# ------------------------------------------------------------------------
-use strict;
-# Find Shell Code
-
-my $file = @ARGV[0];
-my $line = int(@ARGV[1]);
-
-unless($file) {
- print "Error: no input file!\n";
-}
-
-
-open S, "<", $file;
-
-my $find=0;
-
-if($line) {
- my $cl = 0;
- while((++$cl<$line) && <S>) { }
- $find=1 if $cl == $line;
-} else {
- while(<S>) {
- if(m#(\d|[a-fA-F])+ <(.+)>:.*#) {
- if(lc($2) eq "shellcode") {
- $find = 1;
- last;
- }
- }
- }
-}
-
-exit unless $find;
-
-my $codeline;
-while(<S>) {
- if(m#.*:\t(.+\t).*#) {
- $codeline = $1;
- $codeline =~ s/\s+$//;
- my @code = split(" ", $codeline);
- foreach (@code) {
- print "\\x" . $_;
- }
- } else {
- last;
- }
-}
-
-print "\n";
-
-close S;
+++ /dev/null
-#!/usr/bin/env perl
-# ------------------------------------------------------------------------
-# File Name: scs2hex.pl
-# Author: Zhao Yanbai
-# Tue Feb 14 15:13:02 2012
-# Description: Shell Code String ==> Hex
-# ------------------------------------------------------------------------
-use strict;
-
-my $infile = @ARGV[0];
-my $outfile= @ARGV[1];
-
-unless($infile) {
- print "Error: No Input and Output File\n";
- exit;
-}
-unless($outfile) {
- print "Error: No Output File\n";
- exit;
-}
-
-open S, "<", $infile;
-open D, ">", $outfile;
-
-while(<S>) {
- my $v = $_;
- chop($v);
- my @a = split(/\\x/, $v);
- $v = "";
- foreach (@a) {
- $v .= $_;
- }
- print D pack("H*", $v);
-}
-
-close D;
-close S;