Listing 1: The EncodeScript Function

Function EncodeScript(stringinfo)
  Dim i, curchar, newstr
  For i = 1 to Len(stringinfo)
    curchar = Asc(Mid(stringinfo,i,1))
    If (curchar >= 66 and curchar <= 122) or (curchar >=194 and curchar <= 250) Then
      If curchar >= 66 and curchar <= 122 Then
        newstr = newstr & chr(curchar+128)
      Else 
        newstr = newstr & chr(curchar-128)
      End If
    Else
      newstr = newstr & chr(curchar)
    End If
  Next
  EncodeScript = newstr
End Function