meetpass.asp

来自「本软件可以完成加密解密」· ASP 代码 · 共 20 行

<%set con=server.createobject("meetpass.encrypt")
con.pmode=request("T2")
count=server.mappath("a.txt")
set cou = server.createobject("scripting.filesystemobject")

if request("T2")=0 then 
 set out=cou.opentextfile(count,1,false,false)
 con.pword=out.readline
 rs = con.encrypt
 out.close
 response.write "密码：" & rs
else
 con.pword=request("T1")
 rs = con.encrypt
 set out = cou.createtextfile(count,true,false)
 out.writeline(rs)
 out.close
 response.write "完成加密"
end if
%>