0

だから私は暗号化に入りたかったのです。だから私はvbscriptを学びました。半分は読めたが、残りの半分は読めなかったコードを見た。そして、インターネット上のどこにも、これらのコード行の意味を説明する場所はありませんでした. これらのコード行が何をするのか誰か教えてください:

function encode(s)
For i = 1 To Len(s)
newtxt = Mid(s, i, 1)
newtxt = Chr(Asc(newtxt)+5)
coded = coded & newtxt
Next
encode = coded 
End Function

コード全体は次のとおりです。

set x = WScript.CreateObject("WScript.shell")
mySecret = inputbox("enter text to be encoded") 
mySecret = StrReverse(mySecret)
x.Run "%windir%\notepad"
wscript.sleep 1000
x.sendkeys encode(mySecret)

function encode(s)
For i = 1 To Len(s)
newtxt = Mid(s, i, 1)
newtxt = Chr(Asc(newtxt)+5)
coded = coded & newtxt
Next
encode = coded 
End Function
4

1 に答える 1

0

これは暗号化ではなく、難読化です。

  1. variable 内の各文字をループしますs。
  2. 文字列の次の文字を取得します。
  3. キャラを5歩進める。
  4. 高度な文字を新しい文字列に追加します。
  5. 文字列全体をループした後、新しい「エンコードされた」文字列を返します。

アルファベットの文字を 5 文字右に移動して、'A' が 'F' になるようにします。

これをチェックしてください：ROT13

于 2013-08-18T21:47:56.677 に答える