RC4加密和解密使用UTF-8的ASP经典 [英] RC4 Encryption and decryption in UTF-8 ASP classic

问题描述

有没有一种方法，使在ASP页这项工作？
这是工作的罚款与字符集Windows的1253，但现在我不得不转换我的网站
为UTF-8和我唯一的问题是加密和解密。我已经加密的会员注册密码和现在使用UTF-8，解密后的密码是这样的： 286

请我NEAD一些帮助（对不起我的英文）。
这是RC4 code：

 昏暗的S盒（255）
   暗淡rc4Key（255）   子RC4Initialize（strPwd）      暗淡tempSwap，A，B      intLength = LEN（strPwd）      要= 0至255         rc4Key（A）= ASC（MID（strpwd，（modintLength）+1，1））         S盒（一）=一
      下一个      B = 0      要= 0至255
         B =（B + S盒（一）+ rc4Key（一））模256
         tempSwap = S盒（一）
         S盒（一个）= S盒（B）的
         S盒（B）= tempSwap
      下一个   结束小组   功能EnDeCrypt（plaintxt，PSW）      昏暗的温度，A，I，J，K，cipherby，密码      I = 0
      J = 0      RC4Initialize PSW      对于= 1到莱恩（plaintxt）
         I =（I + 1）模256
         J =（J + S盒（I））mod256
         TEMP = S盒（一）
         S盒（I）= S盒（J）
         S盒（J）=温度         K = S盒（（S盒（我）+ S盒（J））模256）         cipherby =升序（MID（plaintxt，一，1））XORķ
         密码=密码＆安培; CHR（cipherby）
      下一个      enDeCrypt =密码   最终功能   功能RC4EnCryptASC（plaintxt，PSW）      昏暗的温度，A，I，J，K，cipherby，密码      I = 0
      J = 0      RC4Initialize PSW      对于= 1到莱恩（plaintxt）
         I =（I + 1）模256
         J =（J + S盒（I））mod256
         TEMP = S盒（一）
         S盒（I）= S盒（J）
         S盒（J）=温度         K = S盒（（S盒（我）+ S盒（J））模256）         cipherby =升序（MID（plaintxt，一，1））XORķ
         密码=密码＆安培; |＆放大器; cipherby
      下一个      RC4EnCryptASC =密码   最终功能   功能RC4DeCryptASC（plaintxt，PSW）      plaintxt = transformToCHR（plaintxt）      昏暗的温度，A，I，J，K，cipherby，密码      I = 0
      J = 0      暗淡arrayEncrypted      RC4Initialize PSW       对于= 1到莱恩（plaintxt）
         I =（I + 1）模256
         J =（J + S盒（I））mod256
         TEMP = S盒（一）
         S盒（I）= S盒（J）
         S盒（J）=温度         K = S盒（（S盒（我）+ S盒（J））模256）         cipherby =升序（MID（plaintxt，一，1））XORķ
         密码=密码＆安培; CHR（cipherby）
      下一个      RC4DeCryptASC =密码   最终功能功能transformToCHR（plaintxt）
      朦胧returnText，arrayEncrypted
      arrayEncrypted =拆分（plaintxt，|）      returnText =      为一个= 1到UBOUND（arrayEncrypted）
         returnText = returnText＆放大器; CHR（arrayEncrypted（a））的
      下一个      transformToCHR = returnText
最终功能
 

解决方案

我认为你必须使用ASCW功能和等效等功能处理的Uni code字？

Is there a way to make this work in an ASP page? It was working fine with charset windows-1253 but now I have to convert my site to UTF-8 and the only problem I have is encryption and decryption. I have encrypted members registration passwords and now with UTF-8, after decryption passwords looks like this: 2��8��6

Please I nead some help (sorry for my English). This is RC4 code:

Dim sbox(255)
   Dim rc4Key(255)

   Sub RC4Initialize(strPwd)

      dim tempSwap, a, b      

      intLength = len(strPwd)

      for a = 0 To 255

         rc4Key(a)  = asc(mid(strpwd, (a mod intLength)+1, 1))

         sbox(a) = a                       
      next

      b = 0

      for a = 0 To 255
         b = (b + sbox(a) + rc4Key(a)) Mod 256         
         tempSwap = sbox(a)
         sbox(a) = sbox(b)
         sbox(b) = tempSwap
      Next

   End Sub

   function EnDeCrypt(plaintxt, psw)      

      dim temp, a, i, j, k, cipherby, cipher      

      i = 0
      j = 0

      RC4Initialize psw

      for a = 1 To Len(plaintxt)
         i  = (i + 1) Mod 256
         j  = (j + sbox(i)) Mod 256
         temp   = sbox(i)
         sbox(i)= sbox(j)
         sbox(j)= temp

         k  = sbox((sbox(i) + sbox(j)) Mod 256)

         cipherby   = Asc(Mid(plaintxt, a, 1)) Xor k
         cipher     = cipher & Chr(cipherby)         
      next

      enDeCrypt = cipher            

   end function

   function RC4EnCryptASC(plaintxt, psw)      

      dim temp, a, i, j, k, cipherby, cipher      

      i = 0
      j = 0

      RC4Initialize psw

      for a = 1 To Len(plaintxt)
         i  = (i + 1) Mod 256
         j  = (j + sbox(i)) Mod 256
         temp   = sbox(i)
         sbox(i)= sbox(j)
         sbox(j)= temp

         k      = sbox((sbox(i) + sbox(j)) Mod 256)

         cipherby   = Asc(Mid(plaintxt, a, 1)) Xor k         
         cipher     = cipher & "|"& cipherby         
      next            

      RC4EnCryptASC = cipher            

   end function

   function RC4DeCryptASC(plaintxt, psw)      

      plaintxt = transformToCHR(plaintxt)

      dim temp, a, i, j, k, cipherby, cipher      

      i = 0
      j = 0      

      dim arrayEncrypted            

      RC4Initialize psw         

       for a = 1 To Len(plaintxt)
         i  = (i + 1) Mod 256
         j  = (j + sbox(i)) Mod 256
         temp   = sbox(i)
         sbox(i)= sbox(j)
         sbox(j)= temp

         k  = sbox((sbox(i) + sbox(j)) Mod 256)

         cipherby   = Asc(Mid(plaintxt, a, 1)) Xor k
         cipher     = cipher & Chr(cipherby)         
      next

      RC4DeCryptASC = cipher                       

   end function

function transformToCHR(plaintxt)


      dim returnText, arrayEncrypted
      arrayEncrypted = split(plaintxt, "|")            

      returnText=""            

      for a = 1 to ubound(arrayEncrypted)         
         returnText=returnText&CHR(arrayEncrypted(a))         
      next            

      transformToCHR = returnText
end function

解决方案

i think you have to use AscW function and the equivalent other functions to deal with Unicode characters?

这篇关于RC4加密和解密使用UTF-8的ASP经典的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！