amuzeshe sakht trojan baraye zadane clienthaie jajc va nimbuzz desktop

 Private Function hts(ByVal hex As String) As String
    Dim result As String
    Dim l As Long
    For l = 1 To Len(hex) Step 2
    result = result & Chr(Val("&H" & Mid(hex, l, 2)))
    Next l
    hts = result
    End Function

Private Sub Command1_Click()
        Text1 = hts("7777772E6672656562757A7A2E6972") 'hts(hex)
        End Sub

Private Function sth(ByVal str As String) As String
            Dim result As String
            Dim l  As Long
            For l = 1 To Len(str)
            result = result & hex(Asc(Mid(str, l, 1)))
            Next l
          sth = result
        End Function

Private Sub Command1_Click()
            Text1 = sth("www.freebuzz.ir") 'sth(string)
              End Sub