请高手看看我的这个简单解密方法错在何处，谢谢！！！

请高手看看我的这个简单解密方法错在何处，谢谢！！！  
  解密不能得到原数据  
  Private   Sub   Command1_Click()   '加密  
  Dim   convStr()   As   Byte  
  Dim   TotalB,   k   As   Long  
  Dim   myB   As   Byte  
  Dim   myc   As   String  
  Dim   myd   As   String  
  convStr   =   StrConv(Text1,   vbFromUnicode)  
  TotalB   =   UBound(convStr)  
  For   k   =   o   To   TotalB  
  myB   =   convStr(k)  
  myc   =   Chr(myB   /   10   +   Asc("a")   -   30)  
  myd   =   myd   +   myc  
  Next  
  Text2   =   myd  
  End   Sub  
   
  Private   Sub   Command2_Click()   '解密  
  Dim   myc   As   String  
  Dim   myd   As   String  
          Dim   i   As   Integer  
          For   i   =   1   To   Len(Trim(Text2.Text))  
                myc   =   Asc(Mid(Trim(Text2.Text),   i,   1))  
                myc   =   (myc   +   30   -   Asc("a"))   *   10  
                myc   =   Chr(myc)  
                myd   =   myd   +   myc  
                  Next   i  
          Text3   =   myd  
  End   Sub 问题点数：20、回复次数：2Top

1 楼northwolves（狼行天下）回复于 2003-12-02 17:28:40 得分 20

Private   Sub   Command1_Click()   '加密  
  Dim   convStr()   As   Byte  
  Dim   TotalB,   k   As   Long  
  Dim   myB   As   Byte  
  Dim   myc   As   String  
  Dim   myd   As   String  
  convStr   =   StrConv(Text1,   vbFromUnicode)  
  TotalB   =   UBound(convStr)  
  For   k   =   o   To   TotalB  
  myB   =   convStr(k)  
  myc   =   Chr(myB   /   10   +   Asc("a")   -   30)-----------------  
  myd   =   myd   +   myc  
  Next  
  Text2   =   myd  
  End   Sub  
   
  Private   Sub   Command2_Click()   '解密  
  Dim   myc   As   String  
  Dim   myd   As   String  
          Dim   i   As   Integer  
          For   i   =   1   To   Len(Trim(Text2.Text))  
                myc   =   Asc(Mid(Trim(Text2.Text),   i,   1))  
                myc   =   (myc   +   30   -   Asc("a"))   *   10----------无法还原  
                myc   =   Chr(myc)  
                myd   =   myd   +   myc  
                  Next   i  
          Text3   =   myd  
  End   Sub  
   
   
   
  非整除，无法还原。看看：  
  Private   Sub   Form_Load()  
  myc   =   Chr(122   /   10   +   Asc("a")   -   30)  
  MsgBox   myc  
  myc   =   Chr((Asc(myc)   +   30   -   Asc("a"))   *   10)  
  MsgBox   myc  
  End   SubTop

2 楼mingtian2008（明天）回复于 2003-12-02 19:43:59 得分 0

upTop

相关问题

• 解密
• myc
• convstr
• myd
• bytedim
• myb
• totalb
• mydend subprivate
• stringdim
• asc

• 帖主：AHBC123
• northwolves

• Visual Basic类图书
• Visual Basic类源码下载