Помогите понять код VB

[suic1de]

Function sXOR(sText, sKey) - мы делаем функцию 
On Error Resume Next - если ошибка похуй ебашим дальше(вроде как)
Dim i, s, k - переменные делаем(больше не шарю .-.)
For i = 1 To Len(sText) 
s = Mid(sText, i, 1): k = Asc(s): k = k Xor Len(sKey): k = Chr(k): sXOR = sXOR & k
Next
End Function

Function HEXEncode(xData)
On Error Resume Next
Dim iChar, sOutString, sTmpChar
For iChar = 1 To Len(xData)
sTmpChar = Hex(Asc(Mid(xData, iChar, 1)))
If Len(sTmpChar) = 1 Then sTmpChar = "0" & sTmpChar
sOutString = sOutString & sTmpChar
Next
HEXEncode = sOutString
End Function

хочу понять как работает этот код, обоссыти но расскажите как .-.

 

[SiTrak]

Нормально работает

 

[suic1de]

Нормально работает

Я знаю что работает хорошо, я не понимаю как работает, хочу понять, чтобы перевести на другой ЯП

 

[NarutoUA]

И что тебе тут не ясно?

 

[suic1de]

И что тебе тут не ясно?

я за vb не шарю, вроде пытался но чет не то получается.....