07 2005 档案
利用MicrosoftActiveServerPages创建动态、交互式站点利用微软的软件产品ActiveServerPages，通过在普通页面中嵌入的ASP脚本语言，可以帮助建立动态的交互式站点，这一点早已是大家所熟知的了，就不用多说了．笔者也是初学ASP脚本语言编写，来谈谈自己的学习体会，希望能给后学者一点建议和启示，更期望引起大家的兴趣来交流探讨、共同...
'S盒运算32位结果Fori=0To7RetS(i*4+0)=(S(i)And&H8)\&H8RetS(i*4+1)=(S(i)And&H4)\&H4RetS(i*4+2)=(S(i)And&H2)\&H2RetS(i*4+3)=(S(i)And&H1)\&H1NextFori=0To31'P变换CodeP(i)=RetS(P(i))'产生L3,R3R3(i...
'sCode待解密字串'sKey密钥字串PublicSubDES_Decode(ByRefsCode()AsByte,ByValsKeyAsString,ByRefbReturn()AsByte)AttributeDES_Decode.VB_Description="解密sCode:密文16进制串sKey:密钥文本,前8位有效bReturn:明文16进制串"...
'S盒运算，得到8个数S(0)=S1(CodeS1(5)+CodeS1(0)*2,CodeS1(4)+CodeS1(3)*2+CodeS1(2)*4+CodeS1(1)*8)S(1)=S2(CodeS2(5)+CodeS2(0)*2,CodeS2(4)+CodeS2(3)*2+CodeS2(2)*4+CodeS2(1)*8)S(2)=S3(CodeS3(5)...
'sCode待加密字串'sKey密钥字串(前8位有效)PublicSubDES_Encode(ByRefsCode()AsByte,ByValsKeyAsString,ByRefbReturn()AsByte)AttributeDES_Encode.VB_Description="加密sCode:明文16进制串sKey:密钥文本,前8位有效bReturn:密...
'DES加解密算法实现vb版v1.0''作者:agamem'日期:2003年08月27日'''OptionExplicitPrivateDeclareSubCopyMemoryLib"kernel32"Alias"RtlMoveMemory"(DestinationAsAny,SourceAsAny,ByValLengthAsLong)'置换表Private...
作者Bloghttp://blog.csdn.net/agamem/'用VB实现DES加解密算法(一)--定义'DES加解密算法实现vb版v1.0''作者:agamem'日期:2003年08月27日'''OptionExplicitPrivateDeclareSubCopyMemoryLib"kernel32"Alias"RtlMoveMemory"(Des...