Misswe's Blog

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Registry, StdCtrls, Buttons;typeTForm1 = class(TForm)Label1: TLabel;Label2: TLabel;Edit1: TEd

良精2009  logicluo.asp 注册机 加 注册程序 downreg.asp [


.asp 把下面的内容保存为  logicluo.asp

<%

zcn=Request.ServerVariables("SERVER_NAME")&JyDownH
zj=Request.ServerVariables("SERVER_NAME")

zj=left(replace(zj,"www.",""),6)
zj=replace(zj,"0","a")
zj=replace(zj,"1","b")
zj=replace(zj,"2","c")
zj=replace(zj,"3","d")
zj=replace(zj,"4","e")
zj=replace(zj,"5","f")
zj=replace(zj,"6","g")
zj=replace(zj,"7","h")
zj=replace(zj,"8","i")
zj=replace(zj,"9","j")
zj=replace(zj,"a","40")
zj=replace(zj,"b","41")
zj=replace(zj,"c","52")
zj=replace(zj,"d","53")
zj=replace(zj,"e","64")
zj=replace(zj,"f","65")

开始学习Delphi了，开始学习的东西太多了，新的起跑线，又一个菜鸟诞生！

这个是修改PE头骗过PEID的小工具。也就是大家通常所说的给程序添加花指令。原理非常简单，就是给EXE文件加一个PE头，然后写我们的“花指令”。如果你读懂过jingtao的“谈Delphi编程中流的应用”那篇文章的话。相信对这段代码不会陌生，因为这基本原理是一样的。只是代码中有几个数据结构可能是平时极少用到的，都是用来存放PE结构的变量。大家可以参考PE结构方面的资料。（其实看名字应该也能猜出个十有八九）注释我懒得写了，有问题直接跟贴。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type

对脚本，偶是垃圾，送给用的着的人，转自红狼

批量写入档案脚本...
可以拿来挂马
也能拿来当RFI的后门注入
code都写明的，有需要的请自己看
后门写在$inj里面，要做base64 encode的Polymorphic
不希望这个东西被搞破坏的人拿去玩
懂原理的就自个儿收下吧

My Blog——www.misswe.net欢迎大家的到来，因为这两天搞一些小的页面，需要统计，便找来这样一个很使用的代码，不管怎样是一个很不错的例子，可以对访问者进行编号、记录访问次数、IP、时间的统计， 也许很多朋友用的着呢，便也一起发在这里把——

以ACCESS库为例子，其实用SQL SERVER库也只要改一下链接库的语句就得啦，
库结构如下

库文件名： CONT.ASP 本来是CONT.MDB但在建好后把扩展名改为了ASP,以防库被下载。
表名：tab
 

似乎ddos一直比较火热，而关于webcc攻击的比较少，前几天有朋友送我一套webcc攻击手机的程序，自己还不会用

一直想玩下ddos来着，没办法，自己愚钝，不会，呵呵。忘记从哪里弄到的了，嘿嘿，谢谢开源的那个哥们，或者说是前辈！

include win32.inc
.586
.model flat,stdcall
locals

extrn _wsprintfA:proc,MessageBoxA:proc,ExitProcess:proc,IsDebuggerPresent:proc
extrn ReleaseDC:proc,GetDC:proc,TextOutA:proc,GetTickCount:proc

OLD_TICK_COUNT    equ 072h
GET_TICK_COUNT    equ 0c1h
IS_DBG_PRESENT    equ 034h
EXIT_PROCESS    equ 0a7h

XX        equ 12345678h

.data
 

此方法，可配合使用本人刚发的诺顿自动溢出机v2.1

很多时候我们只能暂时取得肉鸡的Cmd 权限，很多时候肉鸡的3389端口已经被更改，在这种情况下，大家不妨

用这个方法来查看一下，使用方法，完全复制，粘贴到cmd上，回车即可!

本不想发布的，很多朋友催，可怜我的系统 ！！

上兴远程控制2008sp2版说明：

专业超级远程控制，超强的管理功能，适用于电脑爱好者、家庭、学校、公司、单位远程管理计算机！

------------------------------------------------------------------------------------------

2008sp2版的特性:

服务端不用释放文件，不用生成DLL文件，无驱动。

服务端不但能插入IE进程穿防火墙，又可选随意插系统目录的文件;

屏幕高速传输，CPU只占用10-30%,网络传输最高达到每秒20帧;

服务，注册表，进程，CMD管理完全模似操作系统，象操作自已的电脑一样;

超级记录有数据包捕获，内存捕获，键盘英文输入捕获;

批量命令有DDos攻击，代理、发送窗口、字幕等功能;

----------------------------------------------------------------------------

 

因为自己家里上网每次填入密码很麻烦所以用这个了，有多个Q号码的只要修改下红字参数，以QQ号码命名并用快捷方式发送到桌面，脚本图标觉得难看可以把快捷图标改成QQ图标，双击某个号码就会启动Q 自动填入号码和密码并登入

如果刚安装Q，必须登入过一次

把以下复制到文本后缀名改为.vbs

--------------------------------------------------------
Dim WshShell, QQPath, QQselect
QQPath="填入QQ所在路径"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "Q登录"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "填入自己号码"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "填入密码"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
------------------------------------------------------------------