请帮忙把VBScript 代码翻译成delphi 一下，谢谢！

For j = 0 To i : Do
    un = "" : pw = ""
    tmp = Split(ids(rand(j)), ":")
    un = Trim(tmp(0)) : pw = Trim(tmp(1))
    If un = "" Or pw = "" Then Exit Do
    .Open "GET", "http://update.eset.com/download/engine3/em000_32_l0.nup", _
     False, un, pw
    On Error Resume Next
    .Send
    If Err.Number <> 0 Then
      Wsh.Echo "连接不上ESET官址进行验证..."
      Wsh.Quit -1
    End If
    On Error Goto 0
    If .Status <> 200 And .Status <> 304 Then Exit Do
    ReDim binarr((Len(pw) - 1) * 2 + 1)
    For k = 0 To UBound(PassBytesA)
      binarr(k * 2) = Asc(Mid(pw, k + 1, 1)) Xor PassBytesA(k)
      binarr(k * 2 + 1) = PassBytesB(k)
      If k + 1 >= Len(pw) Then Exit For
    Next以上完整代码在这里
http://blog.t522.com/post/67/ 
多谢哪位兄弟解决一下，VBScript 代码翻译成delphi 。