博文
用vb实现ftp的上传下载(2005-10-28 20:09:00)
摘要：Option Explicit
Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _(ByVal sAgent As String, ByVal LAccessType As Long, ByVal sProxyName As String, _ByVal SProxyBypass As String, ByVal lFlags As Long) As Long
Public Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _(ByVal hInternetSession As Long, ByVal sServerName As String, _ByVal nServerPort As Integer, ByVal sUsername As String, _ByVal sPassword As String, ByVal lService As Long, _ByVal lFlags As Long, ByVal lContext As Long) As Long
Public Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _(ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, _ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, _ByVal dwContext As Long) As Boolean
Public Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _ByVal lpszRemoteFile As......
给女朋友的最后一封信[感动](2005-10-24 22:19:00)
摘要：婷：
一年多了，你过的还好吗？
今天梦到参加你的婚礼，从极度痛苦和惊慌中醒来后我便知道一年的时间被浪费了。我不能象别人那样被“时间消磨一切、淡忘一切”。相反我对你的思念却与日俱增。每当我恨你多一分，爱你就多一分；忘你多一分，想你就多一分。
婷，我真的很爱很爱你啊。你听见了吗？多少次从梦中醒来，呼唤着你的名字，捕捉着你的笑容，回味着你的唇香。可身边只剩下了无尽的黑夜、孤独和泪水。
那是怎样一种碎心的痛呀。
我有好多好多的话想对你说，可是我怎么说呢？我已经轻易地失去了我的爱情，是的，轻易地失去了。我那虚伪的自尊使我没有了信心，转而的愤怒使我失去了理智，那一刻，我为什么不冷静些呢？也许你那时碰到了什么不愉快的事，我为什么不安慰安慰你呢？对于自己真爱的人，有什么不能忍让，不能理解的呢？
可是婷，你明白吗？我是愿为你付出一切的，我的感情、我的生命、还有我的自由。
你是很多人都喜欢的清纯女孩，喜欢你的自然你的纯真你的美丽你的柔情；你清浅的微笑不亏负谁也不厚待谁，在众人可望与无望之间，你矜持的独行。你的美丽已融入了我的生命，你的微笑你的哭泣你的欢喜你的悲伤不知不觉已成了我的全部。我已不能自拔，多少次努力的要忘记你，甚至烧毁了所有的信件和照片。可我怎么能忘记我的所有呢？多少次身不由己地走进了我曾发誓再也不进去的三中，偷偷地来到熟悉的窗前，努力寻找着那个熟悉的身影，多希望她突然打开窗户，对着我大叫，为什么不上来呢？可只有星星在冷冷地对着我笑，就象大雨嘲笑方鸿健一样，泪水从我的面颊流过，打湿了我的脸，冰冷了我的心。
婷，你还有些喜欢我吗？我不高，可是我很温柔；我不帅，可是我很痴情。
这么长时间了我突然说这个，你会笑我吗？可是我什么都不想了，什么都不怕了，我只想大声对你说（相信我是很认真的）:“婷，我一直都很喜欢你，我爱你!爱你!!爱你!!!嫁给我吧，我们不仅有缘，也有份的。我会给你快乐，幸福。不管天荒地老，不管将来变成什么样子，我都会爱着你，我会使你成为最幸福的女人!”
婷，你真的很喜欢他吗？每次在我面前提起他，说你对他的好。说的我心如刀绞，只差拿刀子砍人。知道你又有男朋友后，地球仿佛停止了转动，我的灵魂就象死了一样。也许这样之后，我是彻底冷静了。在以后别人介绍的几个女朋友当中，我再也找不出恋爱的感觉，就好象是在完成一件任务似的，连她们的手都不想碰一下。婷，我不知道......
人一生中的八个经典问题(2005-10-24 22:02:00)
摘要：问题一：如果你家附近有一家餐厅，东西又贵又难吃，桌上还爬着蟑螂，你会因为它很近很方便，就一而再、再而三地光临吗？
回答：你一定会说，这是什么烂问题，谁那么笨，花钱买罪受？
可同样的情况换个场合，自己或许就做类似的蠢事。
不少男女都曾经抱怨过他们的情人或配偶品性不端，三心二意，不负责任。明知在一起没什么好的结果，怨恨已经比爱还多，但却“不知道为什么”还是要和他搅和下去，分不了手。说穿了，只是为了不甘，为了习惯，这不也和光临餐厅一样？
——做人，为什么要过于执著？！
问题二：如果你不小心丢掉100块钱，只知道它好像丢在某个你走过的地方，你会花200块钱的车费去把那100块找回来吗？
回答：一个超级愚蠢的问题。
可是，相似的事情却在人生中不断发生。做错了一件事，明知自己有问题，却怎么也不肯认错，反而花加倍的时间来找藉口，让别人对自己的印象大打折扣。被人骂了一句话，却花了无数时间难过，道理相同。为一件事情发火，不惜损人不利已，不惜血本，不惜时间，只为报复，不也一样无聊？
失去一个人的感情，明知一切已无法挽回，却还是那么伤心，而且一伤心就是好几年，还要借酒浇愁，形销骨立。其实这样一点用也没有，只是损失更多。
——做人，干吗为难自己？！
问题三：你会因为打开报纸发现每天都有车祸，就不敢出门吗？
回答：这是个什么烂问题？当然不会，那叫因噎废食。
然而，有不少人却曾说：现在的离婚率那么高，让我都不敢谈恋爱了。说得还挺理所当然。也有不少女人看到有关的诸多报道，就对自己的另一半忧心忡忡，这不也是类似的反应？所谓乐观，就是得相信：虽然道路多艰险，我还是那个会平安过马路的人，只要我小心一点，不必害怕过马路。
——做人，先要相信自己。
问题四：你相信每个人随便都可以成功立业吗？
回答：当然不会相信。
但据观察，有人总是在听完成功人士绞尽脑汁的建议，比如说，多读书，多练习之后，问了另一个问题？那不是很难？
我们都想在3分钟内学好英文，在5分钟内解决所有难题，难道成功是那么容易的吗？改变当然是难的。成功只因不怕困难，所以才能出类拔萃。
有一次坐在出租车上，听见司机看到自己前后都是高档车，兀自感叹：“唉，为什么别人那么有钱，我的钱这么难赚？”
我心血来潮，问他：“你认为世上有什么钱是好赚的？”他答不出来，过了半晌才说：好像......
用VB编写网络寻呼机(2005-10-09 21:55:00)
摘要：用VB编写网络寻呼机
---- 提起ICQ的大名，爱好电脑的朋友一定不会感到陌生的吧？ICQ就是互联网上的寻呼机，无论什么时候，只要你的朋友在线，你只需在ICQ中输入他的ID号码，你就可以在互联网上呼到他。ICQ由于其方便、快捷，且拥有众多的注册用户而一举成为互联网上最流行的网络寻呼机，它几乎成为每一个上网用户的必备之物。当你在使用ICQ的时候，是否会想过自己动手编写一个网络寻呼机呢？这其实在VB中就可以实现。 ---- 网络寻呼的原理就是当客户端程序连接服务器时，通过服务器搜索所要呼叫的ID号码，如果检测到此用户且该用户正处于联网状态，则服务器通知此用户的客户端程序响应主叫方客户端程序，然后在主叫方和被叫方建立连接后，双方就可以聊天或进行其它的通信。 ---- 在VB中编写网络寻呼机需要建立两个程序，一个为客户端程序Client，一个为服务器端程序Server。 ---- 一、在Client工程中建立一个窗体，加载WinSock控件，称为tcpClient，协议选择TCP。再加入四个文本框，用以输入服务器的IP地址、服务器端口号，被呼叫的网络寻呼ID号以及用户登录ID号。然后再在窗体中加入三个按钮，分别命名为“连接”、“断开”和“退出”，点击“连接”按钮，并进行如下初始化连接，代码如下： Private Sub Command1_Click()If Len(Text1.Text) = 0 And Len(Text2.Text) = 0 ThenMsgBox ("请输入主机名或主机IP地址。")Exit SubElseIf Len(Text1.Text) > 0 ThentcpClient.RemoteHost = Text1.TexttcpClient.RemotePort = Text2.TextEnd IftcpClient.ConnectTimer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()tcpClient.Close '断开连接End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load() Text2.Text = "1001"End SubPrivate Sub tcpClient_Connect()tcpC......
制作自己的网络搜索软件(2005-10-09 21:52:00)
摘要：制作自己的网络搜索软件
---- 大家都知道，获得信息是我们上网的很大一个目的，而获得信息对于大多数人来说要通过网上的搜索引擎来搜索自己所需要的信息，而搜索软件通过向搜索站点发出特殊搜索字串命令（各个站点的格式不一样），然后用软件对结果进行处理后显示出来。原理简单，可是效果却是显著的，能够迅速而方便的搜索到各个站点的信息。下面我就通过介绍使用 vb制作自己的搜索软件和剖析现在流行的搜索软件程序来介绍这些内容：
我们都知道vb是最简单方便的编程语言，利用vb编写一个小小的搜索软件用不了多少行语句。第一步当然要安装一个vb5.0或者6.0 的运行环境。启动vb以后，首先创建了一个窗体，然后要对运行环境进行一下设置：具体来说呢，就是添加上必要的控件，一般来说，如果您安装了IE4.0以上的浏览器，windows的 system目录中就会有SHDOCVW.DLL的文件，我们通过点击菜单中“工程”-“部件”，在弹出的对话框中找到有一栏写着”microsoft internet controls”的选项，这个选项其实就是上面提到的SHDOCVW.DLL 文件的描述。利用这个文件我们可以初始化一个浏览器的实例。当您选中这个选项后，会发现工具栏中多了一个形状如同地球的按钮，这就是刚才选中的浏览器控件，我们双击这个图标按钮在窗体上生成一个webbrowser1 的部件，接下来我们就使用这个部件来显示查询的结果。
接下来我们在窗体上放上一个文本框和一个按钮，其实就这几个部件已经可以算是一个最小的搜索程序基本结构了。我们现在来所一说网络搜索的原理：上面已经提到是通过向搜索站点发出特殊搜索字串命令（各个站点的格式不一样），然后用软件对结果进行处理后显示出来，但如何发出搜索字符串、发出怎样的字符串还需要有一定的HTML 知识。我们知道对于网上信息的的发送是通过表单的形式来发送的，也就是说当我们在网上点击某些表单时，通过表单中包含的默认地址中的表单处理程序来接受所有包含在表单中的信息，而这些信息有的是显示的，而另外一些却是隐藏的。您可以试着将一个包含有表单的网页用Frontpage或者Dreamwaver打开，这时你就会发现有很多用浏览器看不到的东西，这些隐藏的标志同样在您发送表单时起着重要的作用。没有这些标志，发出的字符串很可能得不到服务器的应答。我们知道了这些，再返回头来看我......
入侵XXX学校教务管理系统过程记录(2005-10-06 20:46:00)
摘要：以前的女朋友告诉我，她在学校（教务管理系统）报网上选修课的帐号密码丢了，或许是被别人修改了。入侵开始：1；扫描学校所在的整个C类IP段在线的主机。结果出来了，共有4个存活主机。经过测试得知211.*.*.3 ->学校网站首页服务器211.*.*.5 ->图书馆网站服务器211.*.*.12 ->招生部网站服务器211.*.*.13 ->财务部网站服务器211.*.*.21 ->Mail系统+教务管理系统（也就是报网上选修的地方，这就是目标了）服务器用X-Scan大概扫描了一下没有什么致命的漏洞，我想使用系统漏洞入侵的时代已经渐渐离我们远去了，现在流行的是脚本渗透，SQL注入等。那么让我看一下211.*.*.21有没有可疑的地方，Mail系统我找不到登陆口暂时放弃，教务管理系统大概看了看，系统非常大，但是我没有可用的帐号，只能在门口转悠，里面的世界还都无法看到。我转了半天发现有一个投票接口存在SQL注入，不过可惜的是屏蔽了出错信息，这让我非常烦恼，大家知道投票一般都是限制一个IP只能投票一次来增加结果的真实性。可是这个系统却很搞笑，IP信息竟然是存放在一个Form表单中可以随意修改，设计者这一弱智的举动，仅让我对成功注入产生了极大的信心。不过最终我发现注入失败，似乎限制了查询语句的长度，而这个长度根据观察似乎只有4字节，看来要放弃这个注入点了。这套教务管理程序从来没有见过，该系统文件命名规则让我很头疼，似乎是用拼音的缩写，我搞不明白，想试图猜解他的一些程序的路径都总是失败。我能访问到的只有很少的一部分程序。我开始设法搞到这套系统的完整程序包，看一下底部的版权信息：青XX软件有限公司，呵呵直接把网址都给我写上了，Thank you SBAdmin（SBAdmin我发明的单词SB+Admin）。点击链接却迟迟打不开网站，最后返回“该页无法显示”的错误。暂时放弃搞到此系统完整程序包的想法。我把注意力集中到了学校的网站首页，也就是211.*.*.3这台机器，我打开他的新闻栏目，很简陋的新闻系统，我尝试了一下“upfile.asp”、“upload.asp”、“upload.htm”，呵呵不出所料，存在upload.htm，而且没有验证，任何人都可以上传，我上传个.asp后门试试看，真搞笑提示“文件类型非法！...文件上传完毕！”，真够低能的，既然......
MD5加密算法(2005-10-03 21:01:00)
摘要：md5.vbp
Type=ExeForm=MD5.frmReference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE AutomationModule=Module1; md5.basIconForm="Form1"Startup="Form1"Command32=""Name="工程1"HelpContextID="0"CompatibleMode="0"MajorVer=1MinorVer=0RevisionVer=0AutoIncrementVer=0ServerSupportFiles=0VersionCompanyName="闲暇电脑"CompilationType=0OptimizationType=0FavorPentiumPro(tm)=0CodeViewDebugInfo=0NoAliasing=0BoundsCheck=0OverflowCheck=0FlPointCheck=0FDIVCheck=0UnroundedFP=0StartMode=0Unattended=0Retained=0ThreadPerObject=0MaxNumberOfThreads=1
[MS Transaction Server]AutoRefresh=1
md5.frm
VERSION 5.00Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth =......
VB问题集 (2005-10-03 20:57:00)
摘要：$?Visual Basic 允许您显示 JPEG 或 TIFF 图像文件吗？ 不允许。Visual Basic 本身只支持 .BMP、.PCX、.ICO、.RLE 及 .WMF 格式的图形文件。不过，其他格式的图形文件可以用附带的第三方组件显示。这些组件可从 AccuSoft 公司或 Crescent Software 公司获得。$?Microsoft Visual Basic 支持表单内的弹出方式吗？ 支持，Visual Basic 将一种弹出方式，从另一方面讲即所谓的“子表”，称为 MDI 表单或表单对象。详细信息，请参阅 MDI 表单或“子/父”条目或 “微软开发网络订阅”条目下面的 Microsoft Visual Basic 文档。 $?可以在 Windows 3.1 应用程序中使用“Visual Basic 远程数据控件”吗？ 不可以。“远程数据控件”被设计为只能在 32 位 Windows 应用程序中使用的控件。在 Windows 3.1 中有一个标准的数据控件，这个控件可通过“微软喷气式（JET）数据库引擎”连接到远程数据库。 $?您可以从 Visual Basic 4.0 中使用 Data Access Objects 3.5 吗？ 可以，不过当您在我们产品的旧版中使用新的对象库时将遇到问题（例如，在 Visual Basic 4.0 中使用 Data Access Objects 3.5），尤其是会出现一条使用方法的错误信息，指出“Argument Not Optional （参数不可选）”。这个问题将在所有引用引用任何 '97 自动化服务器（即 Data Access Objects 3.5、Excel 8.0、Access 8.0，等等）的所有 '95 自动化客户机（即 Excel95、Access95、Project95、Visual Basic 4.0，等等）中出现。当 95 版的产品（如 Excel 95）引用了随 '97（即 Data Access Objects 3.5 对象库）提供的对象库时，就会出现这条错误信息。问题是可能会出现许多不同的错误。 错误号 ACCESS96 #7543。请给微软技术支持打电话以获取解决方法。 $?Microsoft Visual Basic 5.0 中文版中的“图像”控件支持什么样的图像文件？ 图......
写给菜鸟详谈asp木马在打包中的运用(2005-10-03 20:42:00)
摘要：前言：一个很老的话题了，最近好多朋友找我帮忙搞代码，n多关于打包的问题，写篇文章出来，不是新的技术，只是为了让支持火狐的菜鸟能学到些基本知识，大牛们不要见笑。 海洋2005asp后门打包方法〖Wscript.Shell〗Wscript.Shell方法[rar.exe路径 a 生成包路径 要打包的目录]若对方安装了winrar并是默认安装的话 这样命令打包c:\programe files\winrar\rar.exe a D:\WEB_USER\www\bak.rar D:\WEB_USER\www若对方没有安装winrar就传上去一个你的winrar给他，打包方法不变如我传了一个rar.exe在d盘那么打包命令就变成了d:\rar.exe a D:\WEB_USER\www\bak.rar D:\WEB_USER\www再说冰狐的微型后门打包方法若c:\programe files\winrar\可读取到的话就选择冰狐的运行程序功能 input path框输入 winrar a D:\WEB_USER\www\bak.rar D:\WEB_USER\wwwInput Name框为空 Run即可最后再解释一下以上打包的命令执行的结果运行rar打包 将 D:\WEB_USER\www 目录中所有文件打包至D:\WEB_USER\www\文件名为bak.rar大家可以在自己机器上测试一下 实在没什么好写的最近很少研究web入侵了加上过年家中事务忙 写一篇垃圾文章给大家不足处望体谅 转贴于 华夏黑客同盟 http://www.77169.org
......
2005年最新序列号(2005-10-03 20:33:00)
摘要：软件名称 心动文件夹 3.5 注册版 更新时间 2005-4-1 注册码 Name:crsky Code:1715C36117 软件名称 WinBoost V4.90 注册码 更新时间 2005-4-1 注册码 name:www.ayxz.com code: hc8x3r-4x4ak5j3-4c3g88 软件名称 ClipMate V6.5.11 Build 545 汉化破解版 更新时间 2005-4-1 注册码 Name: tiansha.net Code: 48BE-584B-2AFB-53B4-2F57-7DFF-3E82-7468-D9EA-5D75-359C-FB16-8065 软件名称 完美卸载 2005 V18.1 注册码 更新时间 2005-4-1 注册码 用户名:天煞网注册码:E7574E7676B24AF3-573E0B39D58A54A0-E7574E7676B24AF3 用户名:倪雷杰注册码:E7574E7676B24AF3-573E0B39D58A54A0-E7574E7676B24AF3 完美卸载V2005 v18.0a 软件名称 MegaView 8.0 汉化破解版 更新时间 2005-4-1 注册码 注册信息：name:tiansha.net serial :mgv768gndpqxywywb7wqr2iev 软件名称 超级兔子魔法设置v6.41 更新时间 2005-3-31 注册码 Name:crsky Code:MSCNC-DDJOG-OGQXF-BQSTE-LUVJC 序列号（用户）：SOFTREG11016 注册码（密码）：MSCNC-COPGN-SWBKW-WAQBU-EDGOS 软件名称 超级兔子6.30注册码 更新时间 2005-3-31 注册码 序列号SOFTREG11016 注册码MSCNC-COPGN......