henices

#! /usr/bin/perl -w

use warnings;

print ">> try to find dns server ....\n\n";
my $ret = `dig $ARGV[0] NS`;
#print $ret;

@lines = split /\n/, $ret;

henices

#! /usr/bin/perl -w
# rename the gbk filename to utf-8
use strict;
use Encode;

my $dir = $ENV{'PWD'};
opendir DIR, $dir or die "Can not open \"$dir\"\n";
my @filelist = readdir DIR;
my $file = '';
for $file (@filelist)

henices

#! /bin/sh                                                                                                                    
                                                                                                                              
for line in `cat /tmp/CVE-id.txt`; do                                                                                         
    curl -s --socks5-hostname 127.0.0.1:9999 "http://www.cvedetails.com/cve-details.php?t=1&cve_id=$line" | grep -E '"Product Details "' > /tmp/product                                                                                                     
                                                                                                                              
    FLAG=0                                                                                                                    
    for type in Powerpoint Word Excel; do                                                                                     
         

henices

#!/usr/bin/perl
 
# David Mann
# ba6.us
# Extract SQL from an Oracle SQL Trace File (10046)
#
# Usage:
# Data is read from STDIN
# trc2sql.pl  output.sql
#