用Visual Basic学做“黑客”程序wxh zt

wxhwhmanshan

运行后删除本身的执行文件 代码(vc & bcb 版)  
//vc 代码

int main(int argc, char *argv[])  
{  
HMODULE module = GetModuleHandle(0);  
CHAR buf[MAX_PATH];  
GetModuleFileName(module, buf, sizeof buf);  
CloseHandle(HANDLE(4));  
__asm {  
lea eax, buf  
push 0  
push 0  
push eax  
push ExitProcess  
push module  
push DeleteFile  
push UnmapViewOfFile  
ret  
}  
return 0;  
}  




//BOrland c++ builder 代码  
//bcb6下测试通过
//---------------------------------------------------------------------------

#pragma hdrstop

//---------------------------------------------------------------------------
#include "windows.h"

#pragma argsused
int main(int argc, char* argv[])
{
char buf[MAX_PATH];
HMODULE Hm1,Hm2;
HANDLE Ex,De,Un;
Hm2=GetModuleHandle(0);
GetModuleFileName(Hm2,buf,255);
Hm1=GetModuleHandle("Kernel32");
Ex=GetProcAddress(Hm1,"ExitProcess");
De=GetProcAddress(Hm1,"DeleteFileA");
Un=GetProcAddress(Hm1,"UnmapViewOfFile");
CloseHandle((HANDLE)4);
__asm {
LEA EAX,buf
PUSH 0
PUSH 0
PUSH EAX
PUSH Ex
PUSH Hm2
PUSH De
PUSH Un
RET
}
return 0;

}

航天奇侠

这是汇编吧。

蓝屏死机

这是VB吗？？？

xpertsoft

专业灌水。
友情一顶。

togetheru

专业路过...灌水...这个VB我怎么没见过?新出的2007版?

Miu.C

黑客嘛？？？？我这有个无客户端木马,VB的，没什么价值，想要单独找我了。

xpertsoft

怎么楼主那么多分才是个中士啊？