[Assembler] SFT Loader 2009 Hook v0.7

Private Const FileName As String = "SFT_Connect_Log.txt"
Private Const filenameOut As String = "SFT_Connect_Log_Clean.txt"
 
Sub Main()
Dim text, temp, ausgabe, ip, output As String
Dim f1, f2, i As Integer
Dim a() As String
Dim b() As String

If FileExists(App.Path & "\" & FileName) = False Then
 MsgBox FileName + " nicht gefunden. " + FileName + " muss im gleichen Verzeichnis sein wie dieses Programm.", vbCritical
 Exit Sub
End If

f1 = FreeFile
Open App.Path & "\" & FileName For Input As #f1
 While Not EOF(f1)
 Line Input #f1, temp
 text = text + temp & vbNewLine
 Wend
Close #f1

a = Split(text, vbNewLine)

For i = 0 To UBound(a())
 If Left(a(i), 4) = "USER" And (i - 1) >= 0 Then
 ausgabe = "ftp://" & Right(a(i), Len(a(i)) - 5) & ":"

 b = Split(a(i - 1), ".")
 
 If UBound(b()) = 3 Then
 ip = a(i - 1)
 Else
 b = Split(a(i + 1), ".")
 If UBound(b()) = 3 Then
 ip = a(i + 1)
 End If
 End If
 
 End If
 If Left(a(i), 4) = "PASS" And ausgabe <> "" And ip <> "" Then
 ausgabe = ausgabe + Right(a(i), Len(a(i)) - 5) & "@"
 
 End If
 If Left(a(i), 3) = "CWD" And ausgabe <> "" And ip <> "" Then
 ausgabe = ausgabe + ip + Right(a(i), Len(a(i)) - 4)
 output = output + ausgabe & vbNewLine
 
 ip = ""
 ausgabe = ""
 End If
Next i

'schreibe in txt datei
If output <> "" Then
 f2 = FreeFile
 Open App.Path & "\" & filenameOut For Append As #f2
 Print #f2, output
 Close #f2
 MsgBox "Es wurden folgende FTP Links gefunden und gespeichert: " + vbNewLine + vbNewLine + output
Else
 MsgBox "Nichts gefunden"
End If

End Sub