其他

花了一個下午翻了MSDN,寫了這個例子,為了安全,我用Delphi建了個什麼也沒有作的程式prjzzhost.exe,將它用作被注入的宿主進程.寫了一個TestDll.Dll,裡面只有一個Log函數,用來在檔案Test.Txt中輸出資訊.最重要的一個程式project1.exe是用來注入的.測試環境: windows server 2003 + delphi 7.0程式很簡單,高手就不用看了.廢話不說了,看代碼吧!測試用的TestDll.Dll原始碼(它將被注入到prjzzhost.exe中去)

　　大家都知道nc是一個強大並且靈活的駭客工具，用他可以做很多事情，譬如做為telnet的用戶端口，譬如入侵的時候反彈回來shell，譬如掃描……但是你有沒有想過將他打造成一個服務級的後門呢？現在好多跟我一樣的菜鳥還不懂得編程，別人寫的流行點的後門又經常被殺，那就跟我一起來自己手工製作一個後門吧，不需要任何編程知識菜鳥級的東東哦。　　首先請準備好不被殺的nc.exe（隨便加個殼就可以了的），還有sc.exe（這個是操作服務的一個小工具，被人稱為操作服務的軍刀），這些就可以打造我們自己的後門了，後

注:此程式只能在WIN9X下運行,WINDOWS NT以下作業系統的KERNEL32.DLL檔案已不包含API函數RegisterServiceProcess;How can I hide my application in the Ctrl+Alt+Del menu? You need to use RegisterServiceProcess, which has to be imported from the kernel.See the following example:unit

unit Unit1;interfaceuses  Windows, Messages, SysUtils,  Classes, Graphics, Controls,  Forms, Dialogs, StdCtrls, Buttons;type  TForm1 = class(TForm)    Label1 : TLabel;    procedure Label1Click(Sender: TObject);    procedure Label1DblClick(Sender:

　編者按：Cookie在英文中是小甜品的意思，而這個詞我們總能在瀏覽器中看到，食品怎麼會跟瀏覽器扯上關係呢？在你瀏覽以前登陸過的網站時可能會在網頁中出現：你好XX，感覺很親切，就好像是吃了一個小甜品一樣。 這其實是通過訪問你主機裡邊的一個檔案來實現的，因此這個檔案也就被稱為了Cookie。想全面瞭解Cookie嗎？看看下文吧！　　一、瞭解Cookie

      這段時間在寫連網電子鎖的控製程序，門鎖線路板、樓層控制器和智慧卡讀寫器都是X工開發的，X工開發的東西有個大家公認的缺點：能用不好用。讀寫器和樓層控制器都是用串口通訊，從X工給的指令說明來看，寫程式並不難，所以在剛收到指令說明那天我說一個星期可以寫完，可到現在已經過了兩個多星期，程式都還沒寫好。說說遇到的問題吧，最初我準備把各操作執行函數封裝成DLL的，對串口讀寫我選用的是SPCOMM控制項，由於智慧卡讀寫器寫卡時並不能判斷是否成功寫入（該讀卡機寫資料後再回讀一次來判斷是否成功寫卡），

Find all Local Computers on a LANHow to use WinAPI to find thecomputers on the LAN? CallFindComputers, which returns theWinAPI error code (if any).The function will fill thestringlist Computers with thecomputer names. It is developed with Delphi 5,

我在前面也講過了一些關於編譯環境及工具的。在這裡結合本例子我再說一下：DDK分為98 DDK和2000 DDK兩種，它們工作起來是大同小異的，不過有些驅動程式只能在2000 DDK中使用。由於Win98註定是一種即將被淘汰的作業系統了，所以我學習的時候也沒有過多的關注，我用的是2000的DDK，所以以下的所有內容都是針對2000 DDK的。·準備工作1、確定你已經安裝了Visual C++2、安裝2000 DDK3、安裝2000

     精心編寫的WINDOWS程式顯示啟動注意事項，稱之為濺射螢幕（splash screen）。利用一點兒小小的內容，即可給程式的顯示添加不少色彩。 　　由於工程本身建立程式的主視窗，且啟動濺射螢幕必須在建立主視窗之前出現，所以工程檔案必須建立自己的啟動螢幕。這意味著使用者必須修改原始碼來建立工程檔案，而這通常在DELPHI編程中是不需要的。下面的過程介紹了濺射螢幕的建立過程。

ExecuteProcess - with Command Line Support This proc is a Delphi wrapper aroundthe Win32 API "CreateProcess". It isa better idea to use this instead ofShellExecute or other 16-bit functions when you're program is torun in a 32-bit

把以下代碼儲存為 *.txt (名字自己取)，在cmd下運行 debug<*.txt 代碼經過壓縮 裡面有個自解程式，運行開始先自解 e100 33 f6 bf 0 20 b5 10 f3 a5 8c c8 5 0 2 50 68 13 1 cb e 1f be a1 1 bf 0 1 e11b 6 57 b8 11 1 bb 21 13 89 7 4b 4b 48 79 f9 ad 86 e0 8b c8 bd ff ff e8 20 e134 0 3d 0 1 74 1a 7f 3

一道真正難倒億人的智力題　　5個高智商囚犯，分別按1-5號在裝有100顆綠豆的麻袋面前站好，讓他們按次序抓綠豆，規定每人至少要抓一顆，而抓得最多和最少的人將被處死，而且，他們之間不能交流，但在抓的時候，可以摸出剩下的豆子數量。問他們中誰的存活幾率最大？ 　　　　　　提示： 　　　　　　1，他們都是很聰明的人 ！ 　　　　　　2，他們的原則是先求保命，再去多殺人 . 　　　　　　3，100顆不必都分完 . 　　　　　　4，若有重複的情況，則也算做是最大或最小的情況，一併處死------------

在一次協助使用者維護網路的時候，偶然發現Windows XP作業系統中的NET系列命令中多了一個Net User命令。經過仔細推敲和演練發現Net User不僅可以用來添加或修改使用者或者顯示使用者資訊，還可以對使用者佈建不同的限制，比控制台中的“使用者賬戶”的應用效果要好的多，大家不妨試試。 　　Net User命令是一個DOS命令，必須在Windows

CSDN上看到的方法，自己整理了一下。按任意位置都能拖動：procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);begin    if Button=mbLeft then    begin         ReleaseCapture;         Form1.perform(WM_SysCommand, $F012, 0);   

function InstallService(SvcName, SvcDispName, SvcFullPath: string): integer;var  hSCM, hService: SC_HANDLE;  sInfo: string;begin  result := 0;  hSCM := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);  if hSCM = 0 then  begin    result :=

轉載，原作者：easykeyunit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;  const  LOGON_WITH_PROFILE = 1;  LOGON_NETCREDENTIALS_ONLY = 2; function CreateProcessWithLogon(                 

　　眾所周知，當我們要結束一個進程時，可以調用WINDOWS　API函數TerminateProcess函數。但是，有很多進程依然還是無法結束的，這是因為進程許可權不夠，這時我們可以給進程提升許可權再K掉K不掉的進程。一般進程擷取了SeDebugPrivilege許可權後都可以殺掉大部分進程了。//////////By Lanyus////////////////////QQ:231221////////////////////Email:greathjw@163.com////////////

前幾天在網上看到的方法，開啟地址http://wpa.qq.com/pa?p=1:88888:4能看到88888的線上狀態。剛才把它弄成個小程式，自己編程特爛，希望高手指出錯誤。開始用IDHTTP組件，不知道為啥老出錯，所以改用CLIENTSOCKET組件了。unit UtMain;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs,

function Swf2Exe(S, D, F: string): string;//S = Source file (swf)  //D = Destionation file (exe)  //F = Flash PlayervarSourceStream, DestinyStream, LinkStream: TFileStream;flag: Cardinal;SwfFileSize: Integer;begin  Result := 'something

去年年底我申請過一個BLOG,但沒玩多久就把地址忘掉了..今天上郵箱偶然發現有封件的題目叫'[回複通知]re: 手把手教你做合成圖片', 這不是我以前貼在BLOG上的文章嗎?開啟郵件一看,果然,是我BLOG自動發過來的文章評論,還帶著評論地址.點擊上去一看....我靠,這不就是我丟失已久的BLOG嗎?哇哈哈,不過可惜哦,偶現在用這個BLOG了,暫時讓那個做小的吧.http://www.cnblogs.com/greathjw/