shellcode

摘要： .版本 2.支持库 spec.子程序 _窗口1_创建完毕kk ＝ API_SetWindowLong (标签1.取窗口句柄 (), -4, 到整数 (&Mycallback)).子程序 Mycallback, 整数型.参数 Hwnd.参数 uMsg.参数 消息参数WP.参数 消息参数LP.局部变量 msg, MSG.局部变量 pt, POINTAPI.如果真 (uMsg ＝ 512) ' 移动消息 API_GetMessage (msg, Hwnd, 0, 0) pt.横向位置 ＝ msg.pt.横向位置 pt.纵向位置 ＝ msg.pt.纵向位置 API_Scree... 阅读全文

摘要： program Project1;uses Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Dialogs, Unit1 in 'Unit1.pas' {Form1};function GetClassInfoA1(x: Integer;y:Integer;j:Integer): Integer;stdcall; external 'user32.dll' name 'GetClassInfoA';function RtlMoveMemory1( 阅读全文

摘要： program Project1;uses Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Dialogs, Unit1 in 'Unit1.pas' {Form1};function GetClassInfoA1(x: Integer;y:Integer;j:Integer): Integer;stdcall; external 'user32.dll' name 'GetClassInfoA';function RtlMoveMemory1( 阅读全文

摘要： function Getsysdirty():string;var j_ls:array[0..254] of Char;begin GetWindowsDirectory(@j_ls,255); Result:=j_ls;end; 阅读全文

摘要： type TForm1 = class(TForm) btn1: TButton; btn2: TButton; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); private public //关键位置:建立一个子程序 处理wm_hotkey的消息 procedure gethotkeymsg(var msg:TMessage); message wm_hotkey; end;var Form1: TForm1;implementatio... 阅读全文

摘要： 本来以为是个很简单的函数，发现对Ｄ的双精度小数还是不了解，做判断的时候貌似有问题，所以暂时没研究清楚，用一个曲折的方法写出function myGetVersion( ):Integer;stdcall; external 'kernel32.dll' name 'GetVersion';function GetWindowsVersion():LongWord;var j_i:LongWord; j_i1:Double; j_ls:string;begin j_i:= (myGetVersion() shl 16) shr 16 ; //SHL 左移... 阅读全文

摘要： library Project2;uses Forms, Unit1 in 'Unit1.pas' {Form1};{$R *.res}var DLLform:TForm1;begin DLLform:=TForm1.Create(Application); DLLform.Show;end.第一种,无输出函数,用LoadLibraryA载入DLL就会出现窗口易语言代码如下另一种,建议一个输出函数,这个函数是建立一个窗口library Project2;uses Unit1 in 'Unit1.pas' {Form1};exports Creatwindows; 阅读全文

摘要： win7如何获得管理员权限＊第一种方式1.Windows 7系统中，administrator账户并不是默认开启的，那么就需要我们手动开启，这也不是很难的啦！对计算机图标，击右键，选择管理。2.打开界面后，选择本地用户和组，单击用户，选择administrator账户即可。3.打开，administrator账户之后，按照以下的操作来进行就行了。4.这样，在开始登陆的界面，即可以出现administrator账户了，选择此账户即可获得管理员最高权限，不过建议一般来说此账户还是不要开启的好，如果此账户受损，再创建帐户很容易失败。还有，在第一次开启此账户时，是不需要密码的。ps:对于一些程序文件来 阅读全文

摘要： 说明:Dede是一个Delphi程序的的反编译器 最重要的是可以查看Delphi程序的组件事件及地址,这一点对于写商业软件的作者很不利,以下方法让DEDE无法查看组件事件unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,AsmMain, StdCtrls,Unit2;type TForm1 = class(TForm) btn1: TButton; private //私有 procedure Hidefor... 阅读全文

摘要： procedure TForm1.btn1Click(Sender: TObject);type myMessagebox = function(hWnd:LongWord; lpText, lpCaption: string ; uType: LongWord): Integer; stdcall;var j_h:LongWord; j_x:Pointer; j_mb:myMessagebox;begin j_h := LoadLibrary('user32.dll'); if j_h 0 then begin @j_mb:=GetProcAddre... 阅读全文