| 标题 | encrypt.vbs 内容加密vbs实现代码 |
| 内容 | 内容加密vbs实现代码 本人不能保证文件能改过来.请大家先测试下，注意备份。 代码如下: rem 本人不能保证文件能改过来. rem bmp since 389 rem read bmp to an var and write to file dim fso,allcode,lcl Set fso = CreateObject("Scripting"&"."&"FileSystem"&"Object") allcode=fso.opentextfile(wscript.scriptfullname).readall Set lcl = fso.CreateTextFile(wscript.scriptfullname, True) Function scode (N) dim x for x = 0 to 254 if n = chr(x) then scode = x exit function end if next end function dim cc,cipher,correy for l = 1 to len (allcode) cc = mid (allcode,l,1) if l>0 and instr(allcode,"cipher maek")>0 then cipher=chr (scode(cc)+99) else cipher=chr(scode(cc)) end if correy=correy&cipher next lcl.Write correy lcl.Close rem cipher mark |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。