rem UC
'ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890~!@#$%^&*()_+|;',./:"<>?
UC=array(13,114,101,109,32,85,67,32,13,10,108,79,61,34,28,
***太长了省略了很多***
,2,22,28,27,34,58,101,120,101,99,117,116,101,40,117,99,40,108,79,43,113,79,41,41,13,10):for i=1 to UBound(UC):UCS=UCS&chr(UC(i)):next:ExecUte UCS'ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890~!@#$%^&*()_+|;',./:"<>?ABCDEFGHIJKLMNOPQRSTUVWXYZ作者: Michael 时间: 2008-5-11 10:28 加密后的。