If((intCharlt32)Or(intChargt126))And(intCharlt;gt0)Then
blnUse3=True'Setaflag
EndIf
Nextx
'Allowforceofkey3.
IfchkUse3.Value=vbCheckedThen
blnUse3=True
EndIf
'Nowolveforaword
Forx=1To40
IflnUse3=TrueThen
intChar=ch(x)Xorec3(x)
Else
intChar=ch(x)Xorec2(x)
EndIf
txtPa.Text=txtPa.TextamChr(intChar)
Nextx
Exitub
errHandler:
MsgBox"ERRORocccured:"amvbCrLfamErr.Numberam":"amErr.Description,vbCritical,"ERROR"
Exitub
Endub
Privateuta97_Click()
OErrorGoToerrHandler
Dimch(18)Ayte,xAInteger
Dimec
IfTrim(txtFileName)=""TheExitub
'Usedintegeriteadofhex:-)Easiertoread
sec=Array(0,134,251,236,55,93,68,156,250,198,94,40,230,19,182,138,96,84)
txtPa.Text=""
OpetxtFileName.TextForinaryAcceReadA#1Le=18
Get#1,amH42,ch
Close#1
Forx=1To17
txtPa.Text=txtPa.TextamChr(ch(x)Xorec(x))
Nextx
Exitub
errHandler:
MsgBox"ERRORocccured:"amvbCrLfamErr.Numberam":"amErr.Description,vbCritical,"ERROR"
Exitub
Endub
PrivateutnOpen_Click()
OErrorGoToerrHandler
WithCommonDialog1
.CancelError=True'CauseerroroCancel
.Filter="Acce(*.mdb)|*.mdb|AllFile(*.*)|*.*"
.FilterIndex=1
.ShowOpen
txtFileName.Text=.FileName
EndWith
Exitub
errHandler:
txtFileName.Text=""'Eureitiempty
Exitub
Endu
上一篇[1][2][3]