作者: reistlin
来源: http://www.reistlin.com/blog/28
更新时间: 2010.07
版权声明: 原创文章.转载请保留作者信息和原文完整.谢绝任何方式的摘要

linux.pngcode.png

1. Print Array - 打印数组

&print_array("数组")

#!/usr/bin/perl -w 

use strict;
use Data::Dumper;

# Debug Switch
my $debug = 0;

sub print_array {
        my @array = @_;
        my $index;
        for ( $index = 0; $index < @array; $index++ ) {
                print "$array[$index] \n";
        }
}

# 测试
my @test = (1,2,3,4,5,6,7,8,9,0);
&print_array(@test);

#!/usr/bin/perl -w 

use strict;
use Data::Dumper;

# Debug Switch
my $debug = 0;

sub print_array {
        my @array = @_;
        foreach my $tmp (@array) {
                print "$tmp \n";
        }
}

# 测试
my @test = (1,2,3,4,5,6,7,8,9,0);
&print_array(@test);

2. Print Hash - 打印哈希

&print_hash("哈希")

#!/usr/bin/perl -w 

use strict;
use Data::Dumper;

# Debug Switch
my $debug = 0;

sub print_hash {
        my %hash = @_;
        while ( my ($key, $value) = each %hash ) {
                print "$key => $value\n";
        }
}

# 测试
my %test = (a=>1, b=>2, c=>3);
&print_hash(%test);

3. Last Digits - 取字符串后"n"位

&last_digits("字符串", "位数")

#!/usr/bin/perl -w 

use strict;
use Data::Dumper;

# Debug Switch
my $debug = 0;

sub last_digits () {
        my $string = shift;
        my $digits = shift;
        my $length = length($string);
        if ($length > $digits) {
                print substr($string, $length - $digits, $digits);
        }
}

# 测试
&last_digits("987654321", "3");

作者: reistlin
来源: http://www.reistlin.com/blog/26
更新时间: 2010.06
版权声明: 原创文章.转载请保留作者信息和原文完整.谢绝任何方式的摘要

linux.pngcode.png

[下载] 1950年1月1日 - 2010年12月31日 [passwd.rar]

#!/usr/bin/perl -w 

# Name: birthday password dict v1.0
# Author: reistlin
# Website: www.reistlin.com
# Hotfix: bigyong
# Website: www.bigyong.com
# Date: 2010.06.30

use strict;
use Data::Dumper;

# Debug Switch
my $debug = 0;
# start time
my $time_1 = time();
# clear
system "clear";

my $year_local;
my $year_start;
my @year_array;

# defined year revised (60 year ago) 
my $year_revised = 60;
# defined result file 
my $result_file = "passwd.lis";
# defined result count
my $result_count = 0;

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year_local = $year + 1900;
$year_start = $year_local - $year_revised;

# short year
my $year_short = substr $year_start, 2, 2;
for (; $year_short <= $year; $year_short++) {
	my $length = length ($year_short);
        if ($length > 2) {
		push (@year_array, (substr $year_short, $length - 2, 2));
	} else {
		push (@year_array, $year_short);
	}
}

# loop object
my @default_year = ("$year_start" .. "$year_local", @year_array);
my @default_month = ("1" .. "12", "01" .. "12");
my @default_day = ("1" .. "31", "01" .. "31");

# open result file
open (IN, "+>" . $result_file);

# save to result file
for (my $index_year=0; $index_year < @default_year; $index_year++) {
	for (my $index_month=0; $index_month < @default_month; $index_month++) {
		for (my $index_day=0; $index_day < @default_day; $index_day++) {
			print IN "$default_year[$index_year]$default_month[$index_month]$default_day[$index_day]\n";	
			$result_count++;
		}
	}
}

# check result file
if (-e $result_file) {
	print "[INFO] Success \[$result_file\] Saved ... \n";
}
 
# result file details
my @result_stat = stat ($result_file);
print "[INFO] Passwd Size: $result_stat[7] bytes \n";
print "[INFO] Passwd Count: $result_count \n";

# end time
my $time_2 = time();
my $time = $time_2 - $time_1;
# script runtime
print "[INFO] Runtime \[$time\] Second ... \n";
print "[INFO] End! Good Luck! :-) \n";

作者: reistlin
来源: http://www.reistlin.com/blog/23
更新时间: 2010.06
版权声明: 原创文章.转载请保留作者信息和原文完整.谢绝任何方式的摘要

linux.png

1. 安装

安装 libssh2 v1.2.6:

wget http://www.libssh2.org/download/libssh2-1.2.6.tar.gz
tar zxvf libssh2-1.2.6.tar.gz
cd libssh2-1.2.6
./configure 
make
make install

安装 medusa v2.0:

wget http://www.foofus.net/jmk/tools/medusa-2.0.tar.gz
tar zxvf medusa-2.0.tar.gz 
cd medusa-2.0
./configure --prefix=$HOME/medusa-2.0 --enable-debug=yes --enable-module-afp=yes --enable-module-cvs=yes --enable-module-ftp=yes --enable-module-http=yes --enable-module-imap=yes --enable-module-mssql=yes --enable-module-mysql=yes --enable-module-ncp=yes --enable-module-nntp=yes --enable-module-pcanywhere=yes --enable-module-pop3=yes --enable-module-postgres=yes --enable-module-rexec=yes --enable-module-rlogin=yes --enable-module-rsh=yes --enable-module-smbnt=yes --enable-module-smtp=yes --enable-module-smtp-vrfy=yes --enable-module-snmp=yes --enable-module-ssh=yes --enable-module-svn=yes --enable-module-telnet=yes --enable-module-vmauthd=yes --enable-module-vnc=yes --enable-module-wrapper=yes --enable-module-web-form=yes
make
make install

2. 检查

检查 medusa v2.0 module 模块

secure:/home/reistlin/medusa-2.0/bin# ./medusa -d
Medusa v2.0 [http://www.foofus.net] (C) JoMo-Kun / Foofus Networks <jmk@foofus.net>

  Available modules in "." :

  Available modules in "/home/reistlin/medusa-2.0/lib/medusa/modules" :
    + cvs.mod : Brute force module for CVS sessions : version 2.0
    + ftp.mod : Brute force module for FTP/FTPS sessions : version 2.0
    + imap.mod : Brute force module for IMAP sessions : version 2.0
    + mysql.mod : Brute force module for MySQL sessions : version 2.0
    + nntp.mod : Brute force module for NNTP sessions : version 2.0
    + pcanywhere.mod : Brute force module for PcAnywhere sessions : version 2.0
    + pop3.mod : Brute force module for POP3 sessions : version 2.0
    + rexec.mod : Brute force module for REXEC sessions : version 2.0
    + rlogin.mod : Brute force module for RLOGIN sessions : version 2.0
    + rsh.mod : Brute force module for RSH sessions : version 2.0
    + smtp-vrfy.mod : Brute force module for enumerating accounts via SMTP VRFY : version 2.0
    + smtp.mod : Brute force module for SMTP Authentication with TLS : version 2.0
    + snmp.mod : Brute force module for SNMP Community Strings : version 2.0
    + ssh.mod : Brute force module for SSH v2 sessions : version 2.0
    + telnet.mod : Brute force module for telnet sessions : version 2.0
    + vmauthd.mod : Brute force module for the VMware Authentication Daemon : version 2.0
    + vnc.mod : Brute force module for VNC sessions : version 2.0
    + wrapper.mod : Generic Wrapper Module : version 2.0

3. 关于Debian 5.0 Medusa v1.4 SSH BUG

Debian 5.0 Medusa v1.4 Install:

apt-get install medusa

Medusa v1.4 SSH.mod BUG:

IMPORTANT: Couldn't load "SSH" [/usr/lib/medusa/modules/SSH.mod: cannot open shared object file: No such file or directory]. Place the module in the medusa directory, set the MEDUSA_MODULE_NAME environment variable or run the configure script again using --with-default-mod-path=[path].
invokeModule failed - see previous errors for an explanation

作者: reistlin
来源: http://www.reistlin.com/blog/20
更新时间: 2010.04
版权声明: 原创文章.转载请保留作者信息和原文完整.谢绝任何方式的摘要

linux.png

前言:

中国第一封电子邮件的内容:“跨越长城,走向世界”
(Across the Great Wall We can reach every corner in the world)

因为虚拟化技术的不同,所以不保证所有的VPS均可以配置PPTP VPN,本文是通过在 [Linode] 实际配置PPTP VPN成功后的指导手册。以后我会逐步跟大家一起讨论与学习关于 ESXi / XenServer / Hyper-V 等企业级解决方案。

vmware.png

介绍:

Linode 是国外VPS (Virtual Private Server 虚拟专用服务器) 顶级服务商,提供以 [Xen virtualization] 虚拟化技术平台为基础的服务。通过使用虚拟化技术 (类似的解决方案还有:[VMWare ESXi] [Citrix XenServer]),将一台高性能的服务器 (裸机,不需要安装额外的操作系统) 虚拟化成若干台独立运行的虚拟服务器。

linode.png

本文主要是阐述如何在 Linode VPS 上安装 [pptpd] 服务搭建 PPTP VPN。
请注意,Linode VPN 内核版本请选择:2.6.32.12 或更新版本,否则可能会导致配置失败。

- 阅读剩余部分 -

作者: reistlin
来源: http://www.reistlin.com/blog/18
更新时间: 2009.03
版权声明: 原创文章.转载请保留作者信息和原文完整.谢绝任何方式的摘要

debian.png

1. LVM 介绍:

LVM - Logical Volume Manager 是Linux系统下最强大的磁盘管理技术之一.它将您从不得不思考物理容量中解脱出来.代之以逻辑形式来思考这些容量.当您需要考虑如何替用户数据和系统文件分配空间的时候.LVM可以让您彻底忘记传统的分区做法.

简单地来说.LVM就是将众多物理设备组合成一个大的虚拟设备.用户只需思考如何在虚拟设备上做传统的空间分配策略.而将物理设备的管理交由LVM自己去处理.这个由物理设备组合所成的虚拟设备称为卷组(Volume Group).简称为VG.而用户在卷组VG上所划分的磁盘空间则称为逻辑卷(Logical Volume).简称为LV.而原始物理设备必须经过初始化处理才能加入卷组集合.这种经过特别处理的原始设备或磁盘空间则称为物理卷(Physical Volume).简称为PV.

LVM磁盘空间管理系统允许您在需要的时候重新调整大小.这也就意味着在管理磁盘空间资源方面.您将获得极大程度的自由.基本上这是很有诱惑力的.但您应该留心硬盘出错的情况.如果您没有在LVM管理中为出现这种情况而做好计划.那么您可能会丢失大量数据.

- 阅读剩余部分 -

作者: reistlin
来源: http://www.reistlin.com/blog/12
更新时间: 2010.06
版权声明: 原创文章.转载请保留作者信息和原文完整.谢绝任何方式的摘要

rsa.png

安装RSA Authentication Manager 6.1 Replica Server (Windows Server 2003 SP2, 网卡 x 2), 启动"RSA Authentication Manager Control Panel"控制台, 选择"Start & Stop RSA Authentication Manager Services", 点击"Start All", "RSA Authentication Manager administration daemon"和"RSA Authentication Manager authentication engine"服务无法启动!

- 阅读剩余部分 -