ƿ¼ؼҳѧԺ缼 ͼͼ ϵͳ ָ  칫 ý嶯 վӪ ֤ ҳ  web 
 Ϸ QQ 
      վ     

ǰλã  򿪷  VB  ƿ¼ؼ 
ƿ¼ؼ
ڣ200767 ߣ 鿴:[  С] 

                       

  VBƿ¼ؼ

  ·118Ÿ峧 ź; 

  --------------------------------------------------------------------------------

  ֪ΪֹȨڸﵽеĿġֱ룬ٴ㲻㣺1ױPCTOOLS֮Ĺӵ2ͨû޸ѡΪˣVB5.0¼ACTIVEؿؼPASSWord.OCXÿؼܺļʽ棬޷룬û޸Ŀȴܷ㡣ΪȻԱĿ¼ؼڼ㷨Ƚϼ򵥣䲻רҵ㷺ӦãڶĽڿ˼ܣȫüACTIVEؿؼԱдӦʱֻ轫PASSWORD.OCXؼ֮УͿʹӦп¼Ĺܡ 

  ÿؼܺļʽWINDOWSĿ¼¡ܷΪ:ÿַASCII,ٳԸ󴢴.Ϳȼܺ󱣴档ÿؼľ£ 

  1ƿؼۡVBѡ½ACTIVEؿؼ,ͼ1ʾĵ¼壬ѹƸΪPASSWORD 

  2ÿؼԡVB˵ӳҵACTIVEؿؼ򵼣ʾɡΪѡԱ岽ѡУԣɣͣţ¼ڴԶԱжϣУţΣУӣףķǣţԣ̣ϣǣϣΣɣΣƣԣȡ¼ɹϢǣţԣãϣգΣԣƣԣȡϢͣУңţӣ¼ӳ䲽нTIMER¼ӳ䵽ؼTIMER1ԱTIMER֮СԲУGETCOUNTFTGETLOGONINFOΪBOOLEANȱʡֵΪ0ˣACTIVEؿؼɡ 

  3ڿؼģMODULE1,ڴм 
  DECLARE FUNCTION GETWINDOWSDirectorY LIB "KERNEL32" ALIAS 
  "GETWINDOWSDIRECTORYA" _ 
  (BYVAL LPBUFFER AS STRING, BYVAL NSIZE AS LONG) AS LONG עͣȡWINDOWSĿ¼ 
  4дؼ룬ɿ¼޸Ĺܣ1ʾ 
  5PASSWORD.OCXؼ 
  ¼ؼ֮󣬿԰빤УӦóʹáǰӦṩûʱͨװѳʼװWINDOWSĿ¼£װĴɲοй鼮 

  ΪʾÿؼȽʼΪ123ĿļTST.DATWINDOWSĿ¼£VBн׼EXẸPASSWORD.OCXؼӵУͼ2ʾĴ壬д2ʾ룬У123¼ɹFORM2,οֹʵӦFORM2ӦӦڿ¼ɹһҪݡ 


  ؼWINDOWS MEWINDOWS98,VB5.0£ͨ 
  TST.DATΪ"DONעͣT MODIFY THESE 
  DATA"19116543855512625886012629259512628135037331013699366366563136318963598161356442635306913496956

  1 ؼ룩 
  DIM PSW AS STRING 
  DIM PASOK AS BOOLEAN 
  DIM PASNEW AS STRING 
  DIM PASFIRST AS STRING 
  DIM PASNUM AS BOOLEAN 
  DIM LENG AS LONG 
  DIM PASOLD AS STRING 
  DIM FLAG AS STRING 
  DIM FIRST AS INTEGER 
  DIM LP AS LONG 
  DIM LPP AS LONG 
  DIM GETINFO AS BOOLEAN 
  DIM GETCOUNT AS BOOLEAN 
  DIM WINDIR AS STRING 
  DIM WINDIRLEN AS LONG 
  DIM WINDIRS AS STRING 
  PUBLIC EVENT PRESS() 
  עͣEVENT DECLARATIONS: 
  EVENT TIMER() עͣMAPPINGINFO=TIMER1,TIMER1,-1,TIMER 
  PRIVATE SUB COMMAND1_CLICK() עͣȷ͵¼ 
  STATIC LOOPNUM AS INTEGER 
  LOOPNUM = LOOPNUM + 1 
  IF LOOPNUM > 2 THEN GETCOUNT = FALSE עͣжǷ񳬹3 
  PSW = "NO" 
  PASOLD = TEXT1.TEXT 

  CALL OPENPASWD 

  IF LENG <> LEN(TEXT1.TEXT) THEN PSW = "NO" עͣжǷԭ 
  IF STRCOMP(PSW, "NO") = 0 THEN 
  LABEL2.CAPTION = ",!" 
  TEXT1.TEXT = "" 
  TEXT1.SETFOCUS 
  ELSE: 
  GETINFO = TRUE עͣȷ 

  END IF 
  RAISEEVENT PRESS 
  END SUB 
  PUBLIC SUB OPENPASWD() עͣ򿪿ļ 
  T = 0 
  ON ERROR RESUME NEXT עͣ ķʽΪ"һ" 
  OPEN WINDIRS & "TST.DAT" FOR INPUT AS #1 עͣȡ 
  IF ERR.NUMBER <> 0 THEN 
  P = MSGBOX("ѱƻ޷", 16, "˳Ӧ") 
  ERR.CLEAR 
  GETCOUNT = FALSE 
  END IF 
  INPUT #1, INFO, NUM, LENG 
  NUM = NUM / 17 
  LENG = (LENG / NUM) / 13 עͣܿȼ 
  DO WHILE T <= LENG - 1 
  T = T + 1 
  INPUT #1, CHR1 
  LP = CHR1 / NUM 
  LPP = LP XOR NUM 
  PASS = CHR(LPP) 
  IF STRCOMP(PASS, RIGHT(LEFT(PASOLD, T), 1)) <> 0 THEN 
  PSW = "NO" 
  ELSE: PSW = "YES" 
  END IF 
  LOOP 
  CLOSE 
  END SUB 

  PRIVATE SUB COMMAND2_CLICK() עͣȷԭ͸Ŀ 
  INFO = "DONעͣT MODIFY THESE DATA" 
  IF PSW = "YES" THEN 
  PASNUM = TRUE 
  PASNEW = TEXT2.TEXT 
  IF STRCOMP(PASFIRST, PASNEW) = 0 THEN PASOK = TRUE 

  IF PASOK = TRUE THEN 
  T = 0 
  OPEN WINDIRS & "TST.DAT" FOR OUTPUT AS #1 עͣļWINDOWSĿ¼ 
  SAV = PASNEW 
  RANDOMIZE 
  NUM = INT(10000 * RND(20)) + 1 + INT(RND(60) * 10000) עͣ 
  KK = LEN(SAV) 
  WRITE #1, INFO, NUM * 17, KK * NUM * 13, עͣ任Ŀдļ 
  DO WHILE T <= KK - 1 עͣܿ 
  T = T + 1 
  CHRQ = LEFT(SAV, T) 
  CHR1 = RIGHT(CHRQ, 1) 
  LP = ASC(CHR1) XOR NUM 
  LPP = LP * NUM 
  WRITE #1, LPP, 
  LOOP 
  IF KK < 10 THEN עͣ10ַ,дַ,ֹ߲² 
  LL = 10 - KK 
  DO WHILE LL >= 0 
  WRITE #1, NUM * KK * (LL + 100) + 123456, 
  LL = LL - 1 
  LOOP 
  END IF 
  CLOSE 

  LABEL2.FORECOLOR = QBCOLOR(3) 
  LABEL2.CAPTION = "ĳɹ!" 
  TIMER1.ENABLED = TRUE 
  END IF 

  IF PASNUM = TRUE AND PASOK = FALSE THEN עͣȷ¿Ļ 
  LABEL2.FORECOLOR = QBCOLOR(13) 
  LABEL2.CAPTION = "һ¿!" 
  FIRST = FIRST + 1 
  IF FIRST = 1 THEN PASFIRST = PASNEW 
  IF FIRST > 3 THEN GETCOUNT = FALSE 
  TEXT2.TEXT = "" 
  TEXT2.SETFOCUS 
  END IF 

  ELSE: 
  STATIC LOOPNUM AS INTEGER עͣλԭ 
  LOOPNUM = LOOPNUM + 1 
  IF LOOPNUM > 2 THEN GETCOUNT = FALSE 
  PASOLD = TEXT2.TEXT 
  CALL OPENPASWD 
  IF LENG <> LEN(PASOLD) THEN PSW = "NO" 
  IF STRCOMP(PSW, "NO") = 0 THEN 
  LABEL2.FORECOLOR = QBCOLOR(12) 
  LABEL2.CAPTION = ",!" 
  TEXT2.TEXT = "" 
  TEXT2.SETFOCUS 
  END IF 

  IF STRCOMP(PSW, "YES") = 0 THEN 
  LABEL2.FORECOLOR = QBCOLOR(4) 
  LABEL2.CAPTION = "¿!" 
  TEXT2.TEXT = "" 
  TEXT2.SETFOCUS 
  PASNUM = TRUE 
  END IF 
  END IF 
  RAISEEVENT PRESS 
  END SUB 

  PRIVATE SUB OPTION1_CLICK() עͣĿ 
  TEXT2.SETFOCUS 
  LABEL2.CAPTION = "ԭ!" 
  RAISEEVENT PRESS 
  END SUB 

  PRIVATE SUB TIMER1_TIMER() עͣʱ2رյ¼ 
  GETCOUNT = FALSE 
  RAISEEVENT TIMER 
  END SUB 
  PUBLIC PROPERTY GET GETLOGONINFO() AS BOOLEAN 
  GETLOGONINFO = GETINFO 
  END PROPERTY 

  PRIVATE SUB USERCONTROL_INITIALIZE() 
  WINDIR = STRING(255, 0) 
  WINDIRLEN = GETWINDOWSDIRECTORY(WINDIR, 255) 
  WINDIRS = LEFT(WINDIR, WINDIRLEN) 
  PSW = "NO" 
  TIMER1.INTERVAL = 2000 
  LOOPNUM = 0 
  TIMER1.ENABLED = FALSE 
  PASNUM = FALSE 
  PASOK = FALSE 
  FIRST = 0 
  GETINFO = FALSE 
  GETCOUNT = TRUE 
  END SUB 

  PUBLIC PROPERTY GET GETCOUNTFT() AS BOOLEAN 
  GETCOUNTFT = GETCOUNT 
  END PROPERTY 

  2ʾ 
  PRIVATE SUB USERCONTROL11_PRESS() 
  IF USERCONTROL11.GETLOGONINFO = TRUE THEN 
  UNLOAD FORM1 
  FORM2.SHOW 
  END IF 
  IF USERCONTROL11.GETCOUNTFT = FALSE THEN 
  UNLOAD FORM1 
  END IF 
  END SUB 

  PRIVATE SUB USERCONTROL11_TIMER() 
  IF USERCONTROL11.GETCOUNTFT = FALSE THEN 

  UNLOAD FORM1 
  END IF 
  END SUB 

  [1] [2] һҳ 
  Ʊҳַͱ⣬͸QQ/Msnĺһ

  ƿ¼ؼ £
  VBƿ¼ؼ
  ƿ¼ؼ
  ƿ¼ؼ 
  һƪ:OutLook֣ʹù
  һƪ:ָVB6MTSģʽ
  رվرֹתصר¿תأעԭʼ
  .°Ȩԭʼ.ڱվתµĸ˺վǱʾл⡣վת
  صаȨϵ༭Ա,ǾԸ. תעԴhttp://www.hackhome.com
ƷƼ
ȵTOP10
  VB+Accessͼϵͳ 
  VBʱͱܵ 
  ؼС洰С仯仯 
  VBѧ±ܼӴ 
  VBʹDirectXļ̳ 
  VBʹEXCEL 
  VBݿԴ60ʵ 
  180VBͼνԴʵ 
  API޸עģ 
  VB쳬Ի˵ 
  ͨſؼMSCommʹ 
  WINDOWSϢ˵ 
  16תʮ, 16תɶƵ 
  vsprintӡʵ 
  webbrowser 2ղأ 
  VB6DataGridʵͨõӱ 
  FindWindow 
  VB̳ ڶ£ؼѧϰ 
  VB6.0ͼ 
  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 14 
