谁能帮我翻译或解释一下这段代码

For var_104 = 1 To CInt(Len(var_8C)) Step var_8E: var_9E = var_104 'Integer
                If (var_8E = 1) Then '471728
  loc_47159C:     var_E4 = Mid$(var_8C, CLng(var_9E), 1)
  loc_4715A5:     var_98 = CStr(var_E4)
  loc_4715AF:     var_C4 = 1
  loc_4715BC:     var_B4 = var_98
  loc_4715C4:     MidB
  loc_4715D0:     ImpAdCallUI1
  loc_4715DF:     var_A4 = CStr(CLng(CStr(var_E4)) Xor CLng(var_94))
                  If (Len(Hex(var_A4)) = 1) Then '471642
  loc_471633:       var_9C = CStr(CVar(vbNullString & "0") & Hex(var_A4))
  loc_47163F:       GoTo loc_47166A
                  End If
  loc_47165B:     var_E4 = CVar(var_9C) & Hex(var_A4)
  loc_47166A:     ' Referenced from: 47163F
  loc_47166A:     var_C4 = 1
  loc_471677:     var_B4 = var_98
  loc_47167F:     MidB
  loc_47168B:     ImpAdCallUI1
  loc_47169A:     var_A4 = CStr(CLng(CStr(var_E4)) Xor CLng(var_94))
                  If (Len(Hex(var_A4)) = 1) Then '4716FD
  loc_4716EE:       var_9C = CStr(CVar(CStr(CVar(CStr(var_E4) & "0")) & "0") & Hex(var_A4))
  loc_4716FA:       GoTo loc_471725
                  End If
  loc_47171B:     var_9C = CStr(CVar(var_9C) & Hex(var_A4))
  loc_471725:     ' Referenced from: 4716FA
  loc_471725:     GoTo loc_471801
                End If
  loc_471745:   var_98 = CStr(Mid$(var_8C, CLng(var_9E), 4))
  loc_4717EA:   var_144 = CVar(CStr(CVar(CStr(CVar(var_9C) & AscB(CByte(CLng(CByte("&h" & Mid$(var_98, 1, 2))) Xor CLng(var_94))))) & AscB(CByte(CLng(CByte("&h" & Mid$(var_98, 1, 2))) Xor CLng(var_94))))) & AscB(CByte(CLng(CByte("&h" & Mid$(var_98, 3, 2))) Xor CLng(var_94)))
  loc_4717EF:   var_9C = CStr(var_144)
  loc_471801:   ' Referenced from: 471725
              Next var_104 'Integer
              If (var_8E = 1) Then '4718AD
  loc_471852:   var_9C = var_9C & "F" & CStr(var_94) & CStr(Int((Rnd(CVar(Timer)) * CDbl(9)))) & CStr((var_94 - CDbl(&H11)))
  loc_4718A1:   var_9C = CStr(Right(var_9C, (Len(var_9C) - 1)) & Left(var_9C, 1))
              End If
  loc_4718B0: var_88 = var_9C
  loc_4718B3: Exit Sub谁能帮我翻译以上代码，随便用什么语言都可以