Private Function diretel.frm_principal.unk_12210.2.txt

Calls out:

_B_var_Left
InStr
_B_var_Chr
_B_var_Space
FreeFile
CStr
_B_var_Hex
Rnd
Randomize
Right(Left(Space(260),kernel32.GetTempPathA(260,Space(260))),1) > "\\") Not (Right(Left(Space(260),kernel32.GetTempPathA(260,Space(260))),1) > "\\"))">((Right(Left(Space(260),kernel32.GetTempPathA(260,Space(260))),1) > "\\") Not (Right(Left(Space(260),kernel32.GetTempPathA(260,Space(260))),1) > "\\"))
_B_var_Right

Incoming calls for diretel.frm_principal.unk_12210.2.txt

diretel.frm_principal.btn_email_Click.4.txt
diretel.frm_principal.btn_url_Click.a.txt

Decompiled source code follows:

Return 0
(OFFSET-CONTAINER 1 #ARG8) = 0
FLocal1 = Space(260)
FLocal3 = Left(FLocal1,kernel32.GetTempPathA(260,FLocal1))
FLocal4 = Right(FLocal3,1)
BLocal1 = FLocal3
If (((FLocal4 > "\\") Not (FLocal4 > "\\")) != 0)
      BLocal1 = FLocal3 & "\\"
End If
LLocal1 = 1
LLocal2 = 0
Do While (LLocal1 <= 8)
      Randomize
      LLocal2 = LLocal2 & CStr(Hex((Rnd * Global4198888)))
      LLocal1 = (1 + LLocal1)
Loop
LLocal2 = LLocal2 & ".htm"
FLocal18 = FreeFile
Open BLocal1 & LLocal2 for Output as FLocal18
Print #FLocal18 "Hola Mundo"
Close #FLocal18
FLocal22 = Space(260)
BLocal2 = FLocal22
If (shell32.dll.FindExecutableA(LLocal2,BLocal1,FLocal22) > 32)
      FLocal25 = InStr(0,Chr(0),FLocal22,VBTEXTCOMPARE)
      BLocal2 = Left(FLocal22,(FLocal25 - 1))
Else
      BLocal2 = "Nadie"
End If
kernel32.DeleteFileA BLocal1 & LLocal2
Return BLocal2
(OFFSET-CONTAINER 1 #ARG8) = BLocal2
End Sub