您正在看的acce教程是:acce密码破解。Acce密码破解器源代码
VERSIO5.00
Object="{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0""COMDLG32.OCX"
BegiVB.FormfrmMai
Captio="AcceawordFinder"
ClientHeight=1950
ClientLeft=60
ClientTo=345
ClientWidth=5625
BegiropertyFont
Name="Maerif"
Size=8.25
Charset=0
Weight=700
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Ico="frmMain.frx":0000
LinkTopic="Form1"
MaxButto=0'False
Picture="frmMain.frx":0442
ScaleHeight=1950
ScaleWidth=5625
StartUositio=3'WindowDefault
BegiVB.CheckBoxchkUse3
Captio="TryotherKey"
BegiropertyFont
Name="SmallFonts"
Size=6.75
Charset=0
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Height=210
Left=3840
TabIndex=8
To=990
Width=1170
End
BegiVB.CommandButtota2000
Captio="Find2000aword"
Height=375
Left=2925
TabIndex=6
To=615
Width=2055
End
BegiVB.CommandButtota97
Captio="Find97aword"
Height=375
Left=1125
TabIndex=5
To=615
Width=1815
End
BegiVB.TextBoxtxtPa
BegiropertyFont
Name="Maerif"
Size=8.25
Charset=0
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Height=375
Left=1125
TabIndex=2
To=1335
Width=2175
End
BegiVB.CommandButtotnOpe
Captio="..."
Height=375
Left=4845
TabIndex=1
To=255
Width=375
End
BegiMSComDlg.CommonDialogCommonDialog1
Left=120
To=1275
_ExtentX=847
_ExtentY=847
_Versio=393216
End
BegiVB.TextBoxtxtFileName
BegiropertyFont
Name="Maerif"
Size=8.25
Charset=0
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Height=375
Left=1125
TabIndex=0
To=255
Width=3735
End
BegiVB.LabellblAbout
AutoSize=-1'True
Captio="WritteyDaFogelberg1999"
BegiropertyFont
Name="SmallFonts"
Size=6.75
Charset=0
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Height=165
Left=3585
TabIndex=7
To=1725
Width=1845
End
BegiVB.LabellblPaword
Capt
您正在看的acce教程是:acce密码破解。io="Paword"
BegiropertyFont
Name="Maerif"
Size=8.25
Charset=0
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Height=255
Left=1140
TabIndex=4
To=1095
Width=855
End
BegiVB.LabellblFileName
Captio="Fileame"
BegiropertyFont
Name="Maerif"
Size=8.25
Charset=0
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Height=255
Left=1125
TabIndex=3
To=15
Width=735
End
End
AttributeVB_Name="frmMain"
AttributeVB_GlobalNameace=False
AttributeVB_Creatable=False
AttributeVB_PredeclaredId=True
AttributeVB_Exposed=False
'-------------------------------------------------------
'Thiiahandylittleroutineforretrieving
'forgotteawordoutofAcce97and2000.
'
'TheoriginalcodeforAcce97wafoundoa
'newsgrouandItralatedittoVB.Itwould
'notworko2000oIfixedthat!The97code
'shouldalsoworkoAcce2 ,utIhaveot
'checkedthat.
'
'Dootabusethis.Thihouldeusedonlyfor
'databaseyouoriginallyhadermiiotoand
'forgottheaword.
'
'-DaFogelberg
'DanFogelberg@newmail.net
'
'Disclaimer:
'Usethicodeatyourowrisk!Itakeoreoibility
'forit.
'-------------------------------------------------------
'Use:
'electthearopriateMDfileandthen
'Clicktheuttofortheversion.Ifyou
'Dootknowtheversiotryoth...:-)
'Ifyougetgierishwelltheitmuste
'theother!Enjoyandendcommenttoabove.
Privateuta2000_Click()
OErrorGoToerrHandler
Dimch(40)Ayte
DimxAInteger,ec2,intCharAInteger,lnUse3Aoolean
IfTrim(txtFileName)=""TheExitub
'Usedintegeriteadofhex:-)Easiertoread
sec2=Array(0,194,117,236,55,25,202,156,250,130,208,40,230,87,56,138,96,16,26,123,54,177,252,223,177,51,122,19,67,139,33,177,51,112,239,121,91,214,59,124,42)
'IfoundthatomeDB'usethichemeeeelowforthelogictodeterminewhichiwhich:-)
sec3=Array(0,229,117,236,55,62,202,156,250,165,208,40,230,n
上一篇[1][2][3]下一篇
您正在看的acce教程是:acce密码破解。112,56,138,96,55,26,123,54,150,252,223,177,20,122,19,67,172,33,177,51,87,239,121,91,241,59,124,42)
txtPa.Text=""
blnUse3=False
OpetxtFileName.TextForinaryAcceReadA#1Le=40
Get#1,amH42,ch
Close#1
'Checktoeewhichkeyyruingthroughfirst6letterofaword
'Thiiotfoolproofyanymea.
Forx=1To6
intChar=ch(x)Xorec2(x)
'Thiikindoflameutitaumethatmostawords
'areithirangeofkeyboardchar:-)