[..] Probleme l'envoi d'un fichier .txt par FTP est vide

jl56 · #1

Bonjour a tous

Je viens d'acheter un bon portable pour ma fille qui part en septembre pour une école d'ingénieur
Mais j'ai peur que ce portable soit volé un jour, j'ai donc voulut créer un script antivol qui est lancé en mode service à chaque démarrage.A chaque accès sur internet le script envoie l'IP WAN sur mon serveur FTP

J'aurais bien mis ce script en exemple mais comme j'ai un problème que je ne comprend pas, j'appel d'abord à l'aide

► Afficher le texte

Code : Tout sélectionner

#NoTrayIcon
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=pi.ico
#AutoIt3Wrapper_Outfile=svchost.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Comment=jlr
#AutoIt3Wrapper_Res_Description=antivol
#AutoIt3Wrapper_Res_Fileversion=1.0
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=y
#AutoIt3Wrapper_Res_Language=1036
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/sf 1 /sci 9
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <FTPEx.au3>
#include <Inet.au3>

Global $ipwan = ""
Global $alerte = "non"
Global $server = '1.2.3.4'
Global $username = 'freebox'
Global $pass = 'password'
Global $nom_fichier = "jesuisici.txt"

If Not FileExists("c:\drvpi\") Then DirCreate("c:\drvpi"); dossier local ou je place le fichier

While 1; boucle de test du programme

    $PublicIP = _GetIP(); récuperation de l'ip publique
    If @error = 1 Then ; si pas d'ip alors aucune action

    Else

        If $ipwan = "" Or $ipwan <> $PublicIP Or $alerte = "oui" Then ; si l'ip publique a changé ou si c'est la 1er connection ou si on est en mode alerte
            ; en mode alerte j'envoie systematiquement le fichier sur le ftp toutes les 5 minutes

            $ipwan = $PublicIP; stokage de l'ip publique
            $date = @MDAY & " " & @MON & " " & @YEAR & " à " & @HOUR & "H" & @MIN
            $file = FileOpen("c:\drvpi\" & $nom_fichier, 1)
            FileWriteLine($file, "Le " & $date & " le PC " & @ComputerName & " est passé par l'IP WAN " & $PublicIP); ajout d'une ligne dans le fichier local
            FileClose($file)
            _FTP(); envoie du fichier

        EndIf
        If $alerte = "non" Then
            Sleep(1000 * 60 * 60);pause de 60 minutes
;~          Sleep(1000 * 20);pause de 20 secondes pour les tests du programme
        Else
            Sleep(1000 * 60 * 5);5 minutes
        EndIf
    EndIf
    ConsoleWrite($PublicIP & " " & @MDAY & " " & @MON & " " & @YEAR & " à " & @HOUR & "H" & @MIN & @CRLF)
WEnd

Func _ftp()

    $Open = _FTP_Open('MyFTP Control')
    If $Open = 0 Then
        _FTP_Close($Open)
        Return
    EndIf
    $Conn = _FTP_Connect($Open, $server, $username, $pass)
    If $Conn = 0 Then
        _FTP_Close($Open)
        Return
    EndIf
    _FTP_FilePut($Conn, "c:\drvpi\" & $nom_fichier, "/Disque dur/jesuisici/" & "le " & @MDAY & " " & @ComputerName & " est ici.txt")
    ; je modifie le nom du fichier sur le serveur FTP, cela permet de conserver un historique par jour et par PC

    $testalerte = _FTP_FileGet($Conn, "/Disque dur/jesuisici/alerte.txt", "c:\drvpi\alerte.txt")
    ; si le fichier alerte.txt est présent sur le serveur FTP alors passage en mode alerte
    If $testalerte = 1 Then
        $alerte = "oui"
    Else
        $alerte = "non"
    EndIf
    _FTP_Close($Open)
EndFunc   ;==>_ftp

Comme vous pouvez le constater ce script est très simple. En retour sur mon FTP j'ai ceci

► Afficher le texte

Cependant depuis 2 jours le fichier reçut est vide , aucune ligne, alors que le fichier source est ok

J'ai exactement le même problème sur un script que j'ai créé au boulot pour récupérer les audits des pc de mes clients. Cela fonctionne chez certain client et chez d'autre je reçoit également un fichier vide! Comme j'ai une arborescence complexe avec des tests sur la présence des fichiers ou pas, plus des environnement différent Etc.. j'avais mis de coté ce script.

Mais dans le cas de mon antivol , un seul pc , le FTP de ma FREEBOX, je ne comprend plus

Merci pour vos suggestions

A+ JL56

#2

J'ai jeté un œil très rapide et bien que je ne m'y prendrais pas de la sorte, voici quelques conseils :

1 - Je planquerais le dossier dans un dossier plus discret (genre dans un sous, sous répertoire de Windows ou de Program Files).

2 - Je ne ferait pas un seul fichier, mais plusieurs (genre, un par semaine ou par mois), car au bout d'un moment, le fichier sera un peut lourd à transmettre et ce sera moins discret.

3 - Je ferais mon écriture du fichier dans la boucle principale, puis je ferais l'envoi par la fonction FTP si et seulement si il y à eu écriture dans le fichier.

4 - Je nommerais mon script d'un nom commun aux processus Windows.

5 - Je rajouterais un système anti-kill (par l'utilisation de deux scripts qui ce surveillent mutuellement) ou un système par tâche planifiée (genre : le script ce lance, puis effectue ses actions, puis se programme en tache planifiée pour être exécuté dans X minutes) ou encore un mix des deux pour être sur qu'il se lancera. ^^

Voilà pour un premier jet, mais d'autres proposerons surement encore des améliorations.

Personnellement, j'utiliserais une simple page PHP hébergée chez moi qui enregistrerait simplement l'IP de celui qui tente d'y accéder et si vous avez besoin de plus d'informations, il est possible d'envoyer des paramètres à une page PHP, donc cela vous permettrait de récupérer le nom de la machine et/ou de la session utilisateur , etc ...

jl56 · #3

@Tlem

Bonjour et merci de votre réponse

Pour la partie discrète, mon script est compilé sous le nom svhost.exe et planqué dans un sous dossier de windows.Il est lancé en tant que service au démarrage du PC. Je verrai un peu plus tard une solution anti-kill ce serait effectivement plus fiable an cas de problème. Vos autres suggestions sont également intéressantes je les mettrait en œuvre lorsque mon problème FTP sera résolu.

Je ne sais absolument pas gérer une page PHP ni même un site internet, donc la solution FTP m'était très abordable techniquement, ma FREEBOX V6 ayant cette option et est constamment disponible.

Mon problème actuel est que depuis quelques temps ( cela fonctionnais très bien au début ) le fichier "jesuisici.txt" que je reçoit sur mon serveur FTP est vide ! Je test ce script à partie de mon PC tout fonctionne nickel. Comment un fichier peut il arriver vide ? Je suppose qu'il est juste créé mais pas transférer est possible ?
et si oui comment le vérifier, résoudre etc.. J'ai testé avec un fichier source absent et dans ce cas il n'y a pas de fichier transférer,ce qui est normal.

Je ne comprend pas ce problème FTP d’où mon appel à l'aide aux Autoitiens

A+ JL56

#4

Salut

Je ne comprend pas trop ton système d'antivoll, tu récupére juste une ip, y a aucun control la dessus

rajoute une fonction pour récuperer le système d'exploitation je sais qui y a des prob avec vista et 7

je vais relire le script et le tester sur un zeven 32/64 bit/xp/98

voilàvoilà

ps: moi j'utilise meme pas cette udf, un simple batch et zou

jl56 · #5

@ani

Bonjour et merci de votre réponse

Pour repérer l'endroit ou se trouvera le portable si il est volé c'est IP wan qu'il me faut.
Je sais c'est pas suffisant ( le voleur n'est pas obligé de se connecter à internet, il peut utiliser un proxy ou un WIFI piraté, ou il peu directement reformater le portable etc..). Si j'ai a faire à des pros je n'ai aucune chance par contre si se sont des voleurs amateurs et qu'ils se connectent sur internet j'aurais une ou des traces d'IPWAN.

Cette IPWAN je la transmettrai aux autorités compétentes qui via un FAI sauront qui aller voir.
C'est très basique ( ou plutôt Autoit ) mais parfois les choses simple fonctionnent et vaut mieux ça que rien.

Je n'ai pas besoin d'autre infos, je sais déjà que le portable que j'ai acheté est en Seven 64bit et j'ai son numéro de série etc...

Pour info j'ai placé le portable à coté de mon PC. Sur mon PC j'ai ouvert le dossier du disque dur de la Freebox ou je stocke les fichiers reçut. Ensuite sur le portable j'ai arrêté/redémarré mon script. dans un 1e temps le fichier apparait bien dans le dossier mais à zero octet puis 4 secondes après il passe à > 0 octet ( suivant sa taille initial). Une fois il est resté à zéro !!. Je commence a soupçonner cet UDF Je continue mes tests.

quand pensez vous ?

A+ JL56

#6

Difficile de ce mettre dans les mêmes conditions que vous, mais au cas ou, essayez ceci :

► Afficher le texte

Code : Tout sélectionner

#NoTrayIcon
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=pi.ico
#AutoIt3Wrapper_Outfile=svchost.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Comment=jlr
#AutoIt3Wrapper_Res_Description=antivol
#AutoIt3Wrapper_Res_Fileversion=1.0
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=y
#AutoIt3Wrapper_Res_Language=1036
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/sf 1 /sci 9
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <FTPEx.au3>
#include <Inet.au3>

Global $ipwan, $Pause, $Date
Global $server = '1.2.3.4'
Global $username = 'freebox'
Global $pass = 'password'
Global $nom_fichier = @YEAR & @MON & @MDAY & ".txt" ; utilisation d'un format standard pour le nom du fichier
Global $FilePath = "C:\Drvpi\"

_Alerte(False)

If Not FileExists($FilePath) Then DirCreate($FilePath)

While 1
    $PublicIP = _GetIP()    ; récuperation de l'ip publique
    $Date = @MDAY & " " & @MON & " " & @YEAR & " à " & @HOUR & "H" & @MIN
    If Not @error Then      ; si pas d'erreur, alors ...
        If $ipwan = "" Or $ipwan <> $PublicIP Then ; si l'ip publique a changé ou si c'est la 1er connection ou si on est en mode alerte
            $ipwan = $PublicIP  ; stokage de l'ip publique
            If FileWriteLine($FilePath & $nom_fichier, "Le " & $date & " le PC " & @ComputerName & " est passé par l'IP WAN " & $PublicIP) Then ; ajout d'une ligne dans le fichier local
                _FTP(); envoi du fichier
                ; il serait peut être souhaitable de rajouter l'écriture d'une éventuelle erreur FTP dans le fichier espion.
            EndIf
        EndIf
    EndIf
    Sleep($Pause)
    ConsoleWrite($PublicIP & " " & $Date & @CRLF)
WEnd

Func _ftp()
    $Open = _FTP_Open('MyFTP Control')
    If @error Then
        _FTP_Close($Open)
        Return
    EndIf
    $Conn = _FTP_Connect($Open, $server, $username, $pass)
    If @error Then
        _FTP_Close($Open)
        Return
    EndIf
    _FTP_FilePut($Conn, $FilePath & $nom_fichier, "/Disque dur/jesuisici/" & @ComputerName & "_" & $nom_fichier)
    ; je modifie le nom du fichier sur le serveur FTP, cela permet de conserver un historique par jour et par PC

    ; si le fichier alerte.txt est présent sur le serveur FTP alors passage en mode alerte
    If _FTP_FileOpen($Conn, "/Disque dur/jesuisici/alerte.txt") Then
        _Alerte(True)
    Else
        _Alerte(False)
    EndIf
    _FTP_Close($Open)
EndFunc   ;==>_ftp

Func _Alerte($Val)
    If $Val = False Then
        $Pause = 1000 * 60 * 60 ;pause de 60 minutes
    Else
        $Pause = 1000 * 60 * 5 ;5 minutes
    EndIf
EndFunc   ;==>_Alerte

Si ce script est lancé en tant que service administratif, alors #RequireAdmin n'est pas nécessaire.
Il doit être possible de faire mieux, mais là, je ne suis pas très en condition pour ce genre de réflexion.

ricky · #7

Hello,

Pas mal comme projet, a suivre...

AutoIt Français

[..] Probleme l'envoi d'un fichier .txt par FTP est vide

[..] Probleme l'envoi d'un fichier .txt par FTP est vide

Re: [..] Probleme l'envoi d'un fichier .txt par FTP est vide

Re: [..] Probleme l'envoi d'un fichier .txt par FTP est vide

Re: [..] Probleme l'envoi d'un fichier .txt par FTP est vide

Re: [..] Probleme l'envoi d'un fichier .txt par FTP est vide

Re: [..] Probleme l'envoi d'un fichier .txt par FTP est vide

Re: [..] Probleme l'envoi d'un fichier .txt par FTP est vide