perl
阿迪达拉参上
这个作者很懒,什么都没留下…
展开
-
perl社工密码字典生成器
用perl实现的简单的社工密码字典生成器。例如在人肉的时候搜集的用户ID为tom,名字为李磊,生日为900801,则可以利用该脚本生成密码字典用来爆破。例如上述信息生成的字典为:tomlilei900801Tomlilei900801TOmlilei900801...liLeitoM900801...lilEi900801toM900801tomLILEI等等...原创 2014-11-19 10:23:06 · 3626 阅读 · 0 评论 -
perl的Math::Combinatorics模块实现全排列
代码:#!/usr/bin/perl -wuse Math::Combinatorics qw(permute);@a = (1,2,3,4);foreach(permute(@a)){ print "@$_\n";}原创 2014-11-05 18:03:34 · 1736 阅读 · 0 评论 -
perl实现大小写字母混排用于生成字典
例如输入全小写abc,则能够生成abc原创 2014-11-05 17:37:47 · 1156 阅读 · 0 评论 -
perl实现数组间的组合
#!/usr/bin/perl -w @c = ('c1','c2','c3');@d = ('d1','d2','d3');&array_permute(\@c,\@d);sub array_permute{ my $aa = shift @_; foreach(@$aa){ push(@arr,$_);原创 2014-11-06 15:47:35 · 2900 阅读 · 0 评论 -
perl实现可打印字符加法(ascii:32-126)
perl 实现的可显示字符加法,可用来进行爆破。原创 2015-01-16 18:13:35 · 1368 阅读 · 0 评论 -
perl实现N点虚拟主机管理系统加密算法
#!/usr/bin/perl -w sub npoint{ my $CodeStr = $_[0]; print $CodeStr.$/; my $CodeLen = 32; my $CodeSpace = $CodeLen - length($CodeStr); if ($CodeSpace >= 1){原创 2015-01-18 14:12:15 · 927 阅读 · 0 评论