<form id="hz9zz"></form>
  • <form id="hz9zz"></form>

      <nobr id="hz9zz"></nobr>

      <form id="hz9zz"></form>

    1. 明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

      一段加密函數

      [摘要]function mis(preString)Dim textsDim seedDim i,lengthprestring = trim(preString)length = len(preStri...
      function mis(preString)
      Dim texts
      Dim seed
      Dim i,length
      prestring = trim(preString)
      length = len(preString)
      seed = 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 asc(mid(texts,i,1))>64 and asc(mid(texts,i,1))<123 then
      dist=dist+mid(texts,i,1)
      end if
      next
      mis = dist
      end function




      日韩精品一区二区三区高清