囧囧有声『Vioce』

2010经典雷人语录

没有评论

1..我悄悄的来，又悄悄的走，挥一挥匕首，不留一个活口

2.明月几时有，自己抬头瞅

3.英雄不问出路，流氓不看岁数

4.路见不平一声吼，吼完继续往前走

5.没有不透风的墙，没有不能上吊的梁

6.孔子曰：中午不睡，下午崩溃！孟子曰：孔子说的对！

7.执子之手，将子拖走！子若不走，拍晕了继续拖走！

8.个头大就一定厉害吗？恐龙不是照样灭绝了！

9.父母忽悠孩子叫教育；孩子忽悠父母叫欺骗；互相忽悠叫代沟。

10别跟我谈感情，谈感情伤钱。

Continue Reading

脱壳『Unpack』

Armadillo V6.X Minimum Protection 【脱壳】

没有评论

话说这个东西是前天拿到的，但是当时在家，东西也不全。平直接感觉是加壳了。去peid官方下载了个没有更新特征库的报了个什么都没发现，晕死。

今天重新查壳发现是Armadillo V6.X Minimum Protection -> Silicon Realms Toolworks * Sign.By.fly * 20081227 *，脱壳后发现程序是用bc++写的：

这个文章网上有的，这里只是做个类似笔记的东西，没别的用处（文章本身就是依样画葫芦。）。

Continue Reading

程序设计『Programing』

IP归属地查询器

没有评论

在线查询数据，数据来源123cha.com。需要联网使用，不是查询的纯真的数据。猛击此处下载。 laugh

部分代码：

procedure TForm1.Button1Click(Sender: TObject);
var
   xml : OleVariant;
   r:string;
   p1,p2 : Integer;
   I:Integer;
begin
   xml := CreateOleObject('Microsoft.XMLHTTP');
   xml.Open('GET','http://www.123cha.com/ip/?q='+edt1.Text, False);
   xml.Send;
   r := xml.responseText;
   p1:=Pos('数据',r);
   p2:=Pos('
  • [查询提供]',r);
   mmo1.lines.add(' 您查询的地址可能归属地是：') ;
   mmo1.lines.add(' ===========================') ;
   mmo1.Lines.add (Copy(r, p1+16, p2-p1-5));
   mmo1.Text:=StringReplace(mmo1.Text,' ','',[rfReplaceAll]);
   mmo1.Text:=StringReplace(mmo1.Text,'
    • ','',[rfReplaceAll]);
   mmo1.Text:=StringReplace(mmo1.Text,'
  • ','',[rfReplaceAll]);
   mmo1.Text:=StringReplace(mmo1.Text,'','',[rfReplaceAll]);
   mmo1.Text:=StringReplace(mmo1.Text,'','',[rfReplaceAll]);
end;
    Close Menu