Page 1 sur 1

[R] Est-il possible d'envoyer un script à l'insu ?

Posté : ven. 21 déc. 2007 21:22
par slurp1000
Est-il possible d'envoyer un script sans que le récepteur ne télécharge rien et ne s'en rende pas compte ( juste au moment de l'exécution du script ) ?

Posté : ven. 21 déc. 2007 22:45
par MiXS
Oui il me semble avec la fonction "FileInstall"
par exemple

Code : Tout sélectionner

FileInstall("C:\envoi.exe", "C:\program\envoi.exe")
 
le c:\envoi.exe represente ou se trouve le fichier sur ton PC pour l'ajouter au script et le C:\Windows\envoi.exe represente la ou sera placé le fichier quand le script sera lancé

Bien sur pour qu'il soit supprime utilise la fonction
Filedelete("C:\program\envoi.exe")

Voilà

Posté : ven. 21 déc. 2007 23:00
par Tlem
Veuillez préciser un peut plus votre question, car dans l'énoncé, il semble que ça s'approche plus d'un script hostile, que d'une blague de mauvais goût.

Posté : sam. 22 déc. 2007 00:49
par slurp1000
Non, j'aimerais voir la réaction d'un collègue à la caméra avec ce script, rien de bien méchant, mais ça le fait pas si je leur dit "télécharge ça, c'est un programme à moi ;)" par exemple :

Code : Tout sélectionner

#NoTrayIcon
While 1
CDTray("e:","open")
CDTray("e","close")
WEnd
ou encore:

Code : Tout sélectionner

#NoTrayIcon
While 1
$x = Random(0,1024)
$y = Random(0,1024)
MouseMove($x,$y)
WEnd

Posté : sam. 22 déc. 2007 04:43
par arrkhan
Tlem a écrit :Veuillez préciser un peut plus votre question, car dans l'énoncé, il semble que ça s'approche plus d'un script hostile, que d'une blague de mauvais goût.
Mais non Tlem, tu te fait des idées, au vu du code, je le mettrais plutôt dans le cas du "code malicieux" ou du " programme malveillant".

Posté : sam. 22 déc. 2007 12:56
par MiXS
Dans ce cas la ceci devrait te faire plaisir :wink:

Code : Tout sélectionner

#NoTrayIcon 
FileInstall("C:\envoi.exe", "C:\envoi.exe")

ProgressOn("Téléchargement en cours","Téléchargement d'un virus !","0 %")
For $i = 0 to 100 step 1
sleep(100)
ProgressSet($i,1*$i&" %")
Next
ProgressSet(100,"Votre fichier a bien été téléchargé","Succès du téléchargement !")
sleep(2000)
ProgressOff()
Run("c:\envoi.exe")

While 1 
CDTray("e:","open") 
CDTray("e","close") 
WEnd 

Filedelete("C:\envoi.exe")

Posté : sam. 22 déc. 2007 17:35
par codename44
si c'était possible aussi facilement, on serait vraiment dans la m**** !
t'imagines tout ce que l'on pourrait faire :O
tes données bancaires seraient du domaine public :wink:

Posté : sam. 22 déc. 2007 19:52
par slurp1000
Merci à vous et surtout à toi miXS pour ta précieuse aide...