本文目录一览：
黑客动画吧 壁纸
这是我当黑客以来接到的一项最具挑战性的生意，是去黑另一个黑客的电脑。工欲善其事，必先利其器，我很明白现今装备的重要性，于是我把自己从头武装到脚，包装上了全黑的紧身夜行衣和戴上墨镜。
一出门，我就给车撞了……司机下车后，打着强光手电筒找了好半天才找到躺在地上的我，说了一句：原来木乃伊也有黑色的。
赔了钱，我才起来继续前行。
很快我就到了目的地。任务是窃取那人的上网密码。对于一个娴熟的黑客高手来说，不消片刻我就能将随身所带的手提电脑打开，接上无线上网卡，打开要用的程序了。接着就是怎样窃取了。方法是我趴在他窗前，密切注视他的举动，等他在键盘上打密码时迅速记下来，然后用手提电脑已打开的记事本写上，再立即通过无线上网传真到家里的传真机上保存下来。
很可惜那小子在我来之前已经输过密码了，害我趴了大约两小时他都没有再输一次的举动，所以我惟有决定让他死机了。让他死机简直是易如反掌，具体操作就是用一块红砖扔他的电脑，肯定死的。我找了很久用了将近两小时才在一个很远的地方找到，副作用是太远我不会回到原来的地方了。终于辛苦问路后才回到目的地，可惜又把红砖忘了拿。
做一个黑客真的不能懒，要黑人家机子就必须循正途好好地认真地黑，于是我决定剪他家门外的电线，让他没电死机。当他隔壁邻居的一整片屋子都断电漆黑一片时，我触电晕过去了。
约莫一小时后，因为手机有来电才把我弄醒的。
作为一个黑客，手机当然不能有铃响声，但我又是如何得知有来电而被弄醒的呢？这里有个窍门，是经过我历时半年反复实验解决的，用简单些的话说就是将手机调为振动。
电话是客户打来的，他很歉疚地说，想将任务更改一下，就是不要破坏他的电脑，只将病毒种在他电脑上就行了，猜到现在快天亮了，想必我已将他的电脑破坏得不堪入目，希望我能把它修复过来，再种病毒，让他不知不觉。酬劳愿意给我双倍。我说没问题，请相信我，保证马上就可把他的电脑修复成像未被破坏过一样，等我好消息。
我在附近偷了人家晾衣服的竹竿，再把衣架做成一个抓钩绑在竹竿上，趁他上厕所的时候把他的手提电脑从窗户给钩了出来，再把我自己的电脑给换回去，然后就溜了。
我自己的手提电脑早就中了冰河木马蠕虫一大堆，这次他死定了
黑客动画吧记事本源代码
VB.net编程方法：
'新建文件
Private Sub mnuNew_Click()
RichTextBox1.Text = "" '清空文本框
FileName = "未命名"
Me.Caption = FileName
End Sub
'打开文件
Private Sub mnuOpen_Click()
CommonDialog1.Filter="文本文档(*.txt) *.txt RTF文档(*.rtf) *.rtf 所有文件(*.*) *.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = "" '清空文本框
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "超级记事本：" FileName
End Sub
'保存文件
Private Sub mnuSave_Click()
CommonDialog1.Filter="文本文档(*.txt) *.txt RTF文档(*.rtf) *.rtf 所有文件(*.*) *.*"
CommonDialog1.ShowSave
FileType = CommonDialog1.FileTitle
FiType = LCase(center(FileType, 3))
FileName = CommonDialog1.FileName
Select Case FiType
Case "txt"
RichTextBox1.SaveFile FileName, rtfText
Case "rtf"
RichTextBox1.SaveFile FileName, rtfRTF
Case "*.*"
RichTextBox1.SaveFile FileName
End Select
Me.Caption = "超级记事本：" FileName
End Sub
'退出
Private Sub mnuExit_Click()
End
End Sub
'复制
Private Sub mnuCopy_Click()
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
End Sub
'剪切
Private Sub mnuCut_Click()
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
RichTextBox1.SelText = ""
End Sub
'全选
Private Sub mnuSelectAll_Click()
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
End Sub
'粘贴
Private Sub mnuPaste_Click()
RichTextBox1.SelText = Clipboard.GetText
End Sub
'查找
Private Sub mnuFind_Click()
sFind = InputBox("请输入要查找的字、词：", "查找内容", sFind)
RichTextBox1.Find sFind
End Sub
'继续查找
Private Sub mnuFindOn_Click()
RichTextBox1.SelStart = RichTextBox1.SelStart+RichTextBox1.SelLength + 1
RichTextBox1.Find sFind, , Len(RichTextBox1)
End Sub
'使用说明
Private Sub mnuReadme_Click()
On Error GoTo handler
RichTextBox1.LoadFile "Readme.txt",rtfText'请写好Readme.txt文件并存入程序所在文件夹中
Me.Caption = "超级记事本：" "使用说明"
Exit Sub
handler:
MsgBox "使用说明文档可能已经被移除，请与作者联系。", vbOKOnly, " 错误信息"
End Sub
VC++编程方法：
首先用VC++创建一个MFC AppWizard(exe)单文档工程，名字Notepad。在Advanced里面File extension(文件扩展名)里面写txt就是关联txt文件，在Base class里面要选CEditView类（意思是基于这个类派生出你用的类）
其实这样生成的就是一个记事本了，但是和原来的记事本还是有区别的
所以我们还要添加点功能，这样才能起到让新人了解VC++的目的
1、我们先加一个设置字体
在 CNotepadView类里面定义字体（就是public） CFont m_Font;
定义消息处理函数：
void CNotepadView::OnFormatFont()
{
// TODO: Add your command handler code here
LOGFONT lf;
CFont *font=this-GetEditCtrl().GetFont();
if(font==NULL)
{
font =new CFont;
font-CreatePointFont(120,"Fixedsys");
font-GetLogFont(lf);
delete font;
}
else
{
font-GetLogFont(lf);
}
CFontDialog cf(lf);
if(cf.DoModal()==IDOK)
{
this-m_Font.DeleteObject();
this-m_Font.CreateFontIndirect(lf);
this-SetFont(this-m_Font);
}
}
2、设置字体
在 CNotepadView类里面定义 BOOL bChk;
消息处理函数
void CNotepadView::OnFormatReturn()
{
// TODO: Add your command handler code here
bChk=!bChk;
if(!bChk)
{
ShowScrollBar(SB_HORZ,true);
}
else
{
ShowScrollBar(SB_HORZ,false);
}
}
下面是源代码RAR压缩包
黑客动画吧记事本源代码不会轻易公开的，那个记事本也不太好，界面也不好，其实破解也很容易的，但是意义不大。
黑客动画吧的木马生成器安全吗?
黑客用的东西哪有安全的 我上次下载了个DDOS软件 直接全盘EXE被病毒感染