- 博客(19)
- 资源 (7)
- 收藏
- 关注
原创 PERL中的哈希表操作
哈希表究其实质而言就是一种数据结构,可以随机存取,没有上限,但是不同之处则在于数组呢,是根据数组来确定所要求的数据在数组中的偏移量,而哈希则是以名字来进行检索,或者说作为索引值的,也就是说检索用的键不是数字,而是保证唯一性的字符串,即键值,键值必须保持唯一性!!需要指出的是,虽然哈希表的键的名称要求必须唯一,但是对于键的值,则是可以相同的。$family_name{"fred"}="J
2013-10-30 10:37:42 2876
原创 PERL中的文件读写
就像已知的,其他编程语言类似,PERL解释器,是没有办法自己进行文件读写的,但是呢,可以调用操作系统的文件读写功能,现在我们说下自己的
2013-10-28 10:42:39 886
原创 CreateWindowEx返回1400
先不说了,直接上代码吧,妹的,调了好长时间就是不知道那里的错误,可,等发现了,却不知是哭是笑哈;;程序平台定义.386.Model Flat,StdCallOption CaseMap:None;;;文件包含include windows.incinclude kernel32.incinclude
2013-10-24 21:43:34 1440
原创 printf和文件句柄
printf "%g,%g,%g\n",5/2,51/17,51*17;#g是可以按照需要自动选择浮点数,整数,或者是指数形式printf "in %d days!\n",17.85 ; #%d自动舍去小数点后面的部分,直接输出整数printf "%10s\n","hehe";#10呢,其含义就是设定输出的宽度,并且输出的字符在右端printf "%12f\n",6*7+2/3;# %
2013-10-24 19:44:39 1317
原创 PERL中的流程控制
先不说了,只是我的学习笔记,所以呢,在这里只是列出代码,并写下自己的心得$input=undef;$inputCount=1;do{$_=; if($_ eq "admin\n"){print "welcome home my lord\n";$input="hehe";}else{print "please try again\n";;
2013-10-22 21:16:26 721
原创 PERL子程序的调用与return操作符
先不说别的,先上代码use strict;sub which_element_is(){my ($what,@array)=@_;foreach(0..$#array){if($what eq $array[$_]){return $_;}}-1;}my @names=qw(fred betty dino wilma pebbles);
2013-10-19 10:12:41 5909
原创 PERL中的私有变量
默认情况下,PERL中所有的变量都是全局变量,也就是说在程序中的任何地方都可以访问他们,但是你也可以随时用一个操作符来创建私有的词法变量,即mysub max{ my($m,$n)=@_; if($m>$n) print $m; else print $n;}使用my操作符限定过的变量,其作用域只在其所在的代码块中有效,不被
2013-10-17 08:32:47 1596
原创 PERL语言的子程序
子程序的定义可以使用关键字 sub 子程序名(不包含&),以及经过缩进的花括号$n=1;&marine;&marine;&marine;sub marine{ print "Hello $n\n"; $n+=1; }子程序可以在程序的任意位置,如果提前使用在后定义的话,也不用事先声明,只是子函数只能是定义,经过调用后
2013-10-14 21:56:29 959
转载 各种编程语言查找按钮事件
一、VB程序 其实,VB的按纽事件的找法是最为普遍的,也就是大家所谓的万能断点.其实也不仅仅是针对按纽事件,还有很多其他的用处,如取消NAG,启动框,灰色按纽或隐藏按纽,启动时的timer事件等等,具体的就自己去总结吧,这里只演示按纽事件!OD载入后,CTRL+B,816C24 确定后,就会来到下图处: 然后,就在下面的JMP处F2下断,下完后CTRL+L,如果还有,就
2013-10-14 19:58:06 4283
原创 SEH溢出攻击续
#include "stdafx.h"#include #include#includeusing namespace std;int main(){ MessageBox(NULL,L"DSA",0,0); char buf[10]; int eip=(int)main; memcpy(buf+88,(int*)&eip
2013-10-14 19:25:16 1336
原创 PERL的上下文环境
上下文指的是表达式所在的位置,在PERL解析表达式的时候,要么希望是一个标量,要么希望得到一个列表,在这里,表达式所在的位置不同,表达式的意义就会有所不同举例说明: @people=qw(fred barney hehe); $number=42+@people; print $number#这里,再进行$number=42+@people时,期望获得的是一个标量,因而,@peo
2013-10-14 15:57:36 1313
原创 汇编中try catch的实现
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>;平台定义.386.Model Flat,StdCallOption CaseMap:None;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>;文件包含include
2013-10-14 15:22:24 1731
原创 PERL数组的遍历
在双引号内可以使用@直接输出数组@rocks=qw(flinstone slate rubblke);print "quarrz @rocks limtstone\n";#print "fred@rocks.com.cn";#如果我们真的想要输出@21136.com.cn,那么我们需要将@转义,即\@;或者直接使用单引号@fred=qw(hello dolly);$y=2;$x=
2013-10-10 21:09:32 20538
原创 汇编中的资源文件脚本
菜单,图表与对话框都是可执行文件的组成部分,他们是以资源的形式存放在文件中的,但这些资源并不存放在数据段中,而是单独的放在一个节区当中。 资源文件是以".rc"为扩展名的脚本文件,由资源文件rc.exe编译成res为扩展名的二进制的资源文件,最后在link.exe文件链入可执行文件。//#include "resource.h"#define ICO_MAIN 1000H
2013-10-10 11:19:11 1313
原创 PERL的数组操作
此次我们说下,关于PERL中数组的头尾操作,当然这是在不使用索引的情况下,类似与汇编当中,PUSH和pop是在尾部,或者说在数组的右边进行的添加或者删除操作,演示代码如下: @array=5..9; $fred=pop(@array);#原数组array中是 5 6 7 8 9,pop之后则是5 6 7 8 print $fred;
2013-10-09 21:47:21 838
原创 WIN32汇编为按钮添加处理过程
由于笔者也是初学者,学到哪,也就写到哪,望各位大神见谅哈,本博文呢,主要是在主窗体中添加了一个button,但是该Button是动态添加的,也就是说使用了CreateWindowEx API函数,同时为该按钮的点击事件添加处理过程: 先说下原理,其实呢,很简单,就是先检查uMsg是否是WM_COMMAND,然后呢,就看看,触发事件的控件的ID是否使我们要处理的控件的ID,就这两样,但
2013-10-08 21:10:41 1298
原创 PERL中的数组和列表
PERL数组中所有的元素都是有初始值的,即为undef,同其他的编程语言一样,索引值从0开始,现在如下PERL程序:my $fred[0]="abc";my $fred[1]="bcd";my $fred[2]=7;PERL数组与其他不同的是PERL数组可能包含数字,字符串,undef等等,不同的数据类型,同时我们要记住,每个元素都是独立不相关的标量值,也就是说$fred[
2013-10-08 19:33:26 1077
原创 我的第一个win32汇编程序
.386.Model Flat,stdcalloption casemap:none;头文件包含include windows.incinclude kernel32.incincludelib kernel32.libinclude user32.incincludelib user32.libinclude gdi32.incincludelib gd
2013-10-01 16:22:59 1009
原创 SEH溢出攻击
环境使用:WIN7 ,VS2010,攻击具有溢出漏洞的程序,其源代码如下#include "stdafx.h"#include #include#includeusing namespace std;int main(){HANDLE hLib=LoadLibraryA("D:\\project\\dll\\Debug\\dll.dll");FARPROC
2013-10-01 10:07:52 1651
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人