Imail的所有邮局信息,比如用户,密码都实际上都是存储在计算机注册表当中的,所以只需要打开注册表就可以看到Imail里的所有信息,包括用户的密码.细节:Imail将企业邮局信息全部存储在:HKEY_LOCAL_MACHINE\SOFTWARE\Ipswitch\IMail\Domains\<DOMAINNAME>\Users\<USERNAME>这样一个键里,其中DomainName是邮局名,UserName是用户名,而在<USERNAME>下有一个名叫Password的键值则是存储的用户密码.密码并不是明文存储的,而是结这了简单的加密运行后生成的,他的加...

一、基本原理　　考虑截获PHP读取源文件的接口。一开始，我考虑从Apache和PHP 之间的接口处处理，参见apache的src/modules/php4/mod_php4.c (这个是PHP用static方式编译进apache,make install 后的文件)，在send_php()函数中截获文件指针，采用临时文件的方式，解密后替换文件指针。这种方法经过测试实践，证明是可行的。但是，必须使用两次文件操作，效率低下，而且对于DSO方式不可采用。 双缘敬老院　　由此，重新考虑截获PHP读取文件并装载至缓存的过程，经过费力的寻找，发现在Zend...

不知道怎样表达清楚。看例子吧：[code]<script language=vbs runat=server>  Execute(HextoStr("65786563757465287265717565737428636872283335292929")) Function HextoStr(data) HextoStr="EXECUTE """"" C="&CHR(&H" N=")" Do While Len(data)>1&nb...

[code]Function fDecode(sStringToDecode) 'This function will decode a Base64 encoded string and returns the decoded string. 'This becomes usefull when attempting to hide passwords from&n...

Dim WshSHell,FSOOn Error Resume NextSet WshSHell = WScript.CreateObject("WScript.Shell")Set FSO = CreateObject("Scripting.FileSystemObject")Set Args = WScript.ArgumentsVer="1.1"CloseTime = 5FileName = WScript.Script...

[code]dxy:     你好!     我学vbs也有一小段时间了,最近看到一本书上讲vbs脚本的加密,就自己试了试,可是有一点问题,低级的语法错误我都自己修正了,可脚本运行后不起作用.所以想请教你一下.脚本的原理是这样的:它把代码转换成16进制,然后再写个解密代码,通过这个解密来执行加密的代码,将字符串成16进制的代码如下: Function str2hex (Byval strHex) For i=1 to ...

<script language="vbscript">' Aother: 奔腾的心'     QQ: 7180001'   Date: 2008-01-17Class mShift    Private m_lPower2(31)    Public Function RShift(ByVal lThis, ByV...

加密与解密原理的一个例子package lockunlock; import Java.awt.*; import java.awt.event.*; import java.Applet.*; import javax.Swing.*; import java.util.*; public class LockUnlock extends JApplet { private boolean is...

加密与解密函数<%function decrypt(dcode) dim textsdim ifor i=1 to len(dcode)texts=texts & chr(asc(mid(dcode,i,2))-i)nextdecrypt=textsend functionfunction encrypt(ecode)Dim textsdim ifor i=1 to len(ecode)texts=texts &...

不知道怎样表达清楚。看例子吧：[code]<script language=vbs runat=server> Execute(HextoStr("65786563757465287265717565737428636872283335292929")) Function HextoStr(data) HextoStr="EXECUTE """"" C="&CHR(&H" N=")" Do While Len(data)>1 If&...

class Base64Class　　rem Const 　　dim sBASE_64_CHARACTERS'转化码 　　dim lenString '计算字符串的长度 　　dim iCount '计数器 　　dim returnValue '返回值 　　dim tempChar'缓存字符 　　dim tempString'缓存字符串 　　dim paramString '参数字符串 　...