简单安全的用户名和密码存储方法及应用

12007N0.36SCINC&TECHNOLOGYINFORMAT}ONt(510006):visuIB516.0::TPail.13:A:1723791(2007)12(c01090211.1[(1)(2)(3)(4)(5)(6)1.23:(1)(2);;(3)OPenapp.path+\infodat_forinPutas#1Input#1Close1openapp.path+\info.datforoutputas12ite1closewlnForiITosLensLenstr(1)Mid(11)SelectCasestr(1)CaseNN*1NCaseuPtuPuPTrueCase:uPXotuPuPFa1SeCaseElse()IfuPFalseThenUs(N)Us(N)&str(1)ElsePs(X)Ps(N)&str(1)EndlfEndselectNext322.AccessSQLServerVFP12]AccessSQLServerVFP?Windows()2.2.mdbdbdil1AccessAccess2.3]:1:12:2}(n:n):x2.41SCNC&T[CHNOLOGY}NFORMAT10N109SCIENCE&TCHNOLOGYINORMATION=.Mid(txtPW.Text11)ForrZToln(txtText)exH((Asc(Mid(txtlW.Text.1))XorAsc(id(txtPW.TextIfLon(x)1))))1{ex0&EndTfIThen1le:{HHex41:xMid(Ps(1)11)ForrITo(Len(Ps(1))1)2HHoxHHex&Chr(Ascid(HHex1n(HHex)Len(HHox)))xorVal(&hMid(Ps(1)2*r2)))!103010712344txtPW.TextJM=1asc(1)xorasc(2)=03Hasc(2)xorasc(3)=01Hasc(3)xorasc(4)=07HHHex=030107JM1)103010711(2)5555908000Bg08000B5ps(1)HHex=9chr(asc(9)xor08H)0chr(asc(01)xor00H)=0chr(asc(0)xor0BH)=dHHex=good55goodNext5:2::UIPy:Ud:Un+1Pn+1U::2:4ASCH33.1:*.txtinfo.txttxtdatinfo.dat3.ZVB1]3.3vBinfo.datwu:1030107ng:908000Bwlll=wu:1030107ng:908000B.(3)us(1)wu;ps(1)=1030107us(2)ngps(2)=908000Bus()ps()3.4vB()(1)wu12341].M]..2].VisualBasicM].2004.13].VisualBasic6[M]..(108):;LAN(Internet)DTLAPHCI/LZCAPDTLAPLZCAPSDPRFCOMMDTLAPDTLAPRFCOMMLAPLAP1]..[M]200111.RFCOMMRFCOMMLAPDTPPPLAPPPP(LAPInternet)DTPPPPPPPPP;(wingatesygate)PPPIPPPPLANLAN110SCIENC&TCHNOLOGYINFORMATION