---

mistake 解密a

---

<%

mima= mistake("adminasdfasdf")
response.write mima
response.write "<br />"
 
 

 function mistake(prestring)
    dim texts
    dim seed
    dim i,length
    prestring = trim(prestring)
    length = len(prestring)
    seed = length
    randomize(length)
    texts = ""
    for i = 1 to length
    seed = int(94*rnd(-asc(mid(prestring,i,1))-seed * asc(right(prestring,1)))+32)
    texts = texts & chr(seed) & chr(int(94*rnd(-seed)+32))
    next
  dim dist
  dist=""
  for i = 1 to len(texts)
    if mid(texts,i,1)<>"'"  Then
 
      dist=dist+mid(texts,i,1)
   end if
  next
  mistake = dist
 end Function
 
 

response.write "<br /><hr />"
 
nn=1

response.write  "1::" &   Asc(Mid( mima ,Len(mima) - 1 ,1) ) & "::" & Asc(Mid( mima ,Len(mima) - 3 ,1) )  & "::"

Dim lastChar
lastChar=getLastLetter(Asc(Mid( mima ,Len(mima) - 3 ,1) ),Asc(Mid( mima ,Len(mima) - 1 ,1) ))

response.write "<br />"

Dim sStr

sStr=lastChar

For ni = Len(mima)-2  To 1 step -2
   
   nn=nn+1
   asc1= Asc(Mid( mima ,ni - 1 ,1) )
 
  
  
   asc3=0

   If ni>2 Then
    asc3=Asc(Mid( mima ,ni - 3 ,1) )
    
   Else
   
    asc3=nn

   End if

    response.write nn & "::"
   
    response.write     asc1  & "::" &  asc3  & "=="
   
    response.write getLetter(asc3,asc1,lastChar)

   sStr=getLetter(asc3,asc1,lastChar) & sStr
 
 
  response.write  "  <br />"
  
Next

response.write sStr
response.write "<br />"

response.write   mistake(sStr)

 

Function getLetter(asc3,asc1,lastChar)

  Dim iStr
  Dim iChar
  For i=32 To 126
   
   
   iChar=Chr(i)

   
   If asc1 = int(94*rnd(-asc(iChar)- asc3 * asc(lastChar))+32) Then
   
      response.write Chr(i) & "_"
    
     iStr=Chr(i)
   End if

 
 
  Next

  getLetter= iStr
End Function

Function getLastLetter(asc3,asc1)

 Dim iStr
  Dim iChar
  For i=32 To 126
   
   
   iChar=Chr(i)

   
   If asc1 = int(94*rnd(-asc(iChar)- asc3 * asc(iChar))+32) Then
   
      response.write Chr(i) 
     iStr=Chr(i)
 
   End if

 
 
  Next
  getLastLetter= iStr

End Function

 

 

 
%>

---