    VBƽWindowsĻ           ҳ  ѧԺ       缼  ͼͼ  ϵͳ  ָ    칫  ý嶯  վӪ  ֤  ҳ    web    Ϸ  QQ      ǰλã   򿪷  VB  VBƽWindowsĻ     VBƽWindowsĻ ڣ200767 ߣ 鿴:[     С ]       Ҷ֪ĻΪ16ַ΢16ֽڵԿ48 EE 76 1D 67 69 A1 1B 7A 8C 47 F8 54 95 97 5FWindowsԿ롣           ܹΪȽַλתΪ16ƵASCֵСдĸתΪдĸӦԿλ㣬16ֵÿһλַתΪ16ASCII룬β00Ϊ־עHKEY_CURRENT_USER\Control Panel\desktopµĶƼScreenSave_DataС 

ԭ󣬱㲻ѱƽҵĻ루룩ˡVB6.0һȡעScrrenSave_DataֵĺGetBinaryValue(Entry As String),ֵΪ31 43 41 33 33 43 35 35 33 34 32 31 00,ȥ־00ֽתΪӦASCIIַÿַһ161C A3 3C 55 34 21ȻΪ6λǰ6ֽԿһóASCII루16ֵ54 4D 4A 48 53 48,ӦΪTMJHSHƽɹκһԣǣ̴ModemĽ 

VBԴ(ʹ˴Form1ıText1ťCommand1) 

1룺 

Option EXPlicit 

Dim Cryptograph As String 

Dim i As Integer 

Dim j As Integer 

Dim k As Integer 

Dim CryptographStr(32) As Integer 

Dim PWstr As String 

Dim PassWord As String 

Private Sub Command1_Click() 

PWstr = "" 

PassWord = "" 

Text1.Text ="" 

 
Cryptograph = GetBinaryValue("ScreenSave_Data") 

k = Len(Cryptograph) 

For j = 1 To k  1 

 For i = 32 To 126 

 If Mid(Cryptograph, j, 1) = Chr(i) Then 

 CryptographStr(j) = i 

 End If 

 Next i 

Next j 

i = (k  1) / 2 'λΪ(h1)/2,λѡ̡ܹ 

Select Case i 
 [1]   [2]   [3]   [4]   һҳ      Ʊҳַͱ⣬͸QQ/Msnĺһ 
 
   VBƽWindowsĻ £   VBƽWindowsĻ  VBƽWindowsĻ   
һƪ: VBMS OfficeCOM  
һƪ: ȡļVB̼  رվرֹתصר¿תأעԭʼ  .°Ȩԭʼ.ڱվתµĸ˺վǱʾл⡣վת  صаȨϵ༭Ա,ǾԸ. תעԴhttp://www.hackhome.com     ƷƼ  
 ȵTOP10    VB+Accessͼϵͳ    VBʱͱܵ    ؼС洰С仯仯    VBѧ±ܼӴ    VBʹDirectXļ̳    VBݿԴ60ʵ    VBʹEXCEL    180VBͼνԴʵ    API޸עģ    VB쳬Ի˵    ͨſؼMSCommʹ    WINDOWSϢ˵    16תʮ, 16תɶƵ    vsprintӡʵ    webbrowser 2ղأ    VB6DataGridʵͨõӱ    FindWindow    VB6.0ͼ    VB̳ ڶ£ؼѧϰ    VB֮·ý     رƼ    ǳVB.Net Windows Form    ׹Ʊ˰ʼ    VisualBasic 6еĺִ    Զȡû½ƣٽ֤    APIָĿ¼ļ    VBݿԴ60ʵ    VBIEԶ尴ť    VBMS OfficeCOM    Visual Basicװ    WebComputingADOܽᱨ    vsprintӡʵ    VBʵһ򵥵ESMTPͻ    webbrowser 2ղأ    SetForegroundWindow    API޸עģ    VB쳬Ի˵    WINDOWSϢ˵    ؼС洰С仯仯    VBʱͱܵ         | () | Ȩ |  | Ϣ   Copyright 2003-2007  All Rights Reserved.  ICP05018371       