Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[VBS] A speaking and a self-writing Fake Funny Virus
Auteur Message
Répondre en citant
Message [VBS] A speaking and a self-writing Fake Funny Virus 

C'est un Faux virus drôle "A speaking and a self-writing Fake Funny Virus.vbs" qui parle et écrit tout seul lettre par lettre et on a l'impression qu'il y a quelqu'un derrière le pc qui tape au clavier . Ainsi, vous pouvez l'utiliser pour taquiner vos amis Laughing
L'effet sera super bien, si on l’exécute sur Windows XP car on peut démarrer la console DOS en plein écran alors que sur Vista ou bien sur Seven malheureusement on ne peut pas Sad

Démonstration en Vidéo






Code:
'Demo in video : http://www.swfcabin.com/swf-files/1317480350.swf
'A speaking and a self-writing Fake Funny Virus © Hackoo © 2011
on error resume next
Dim i,x,a,NomMachine,Message,Title,beep
Title = "Hackoo © 2011"
beep = chr(007)
Message = ChrW(72)&ChrW(101)&ChrW(121)&ChrW(32)&ChrW(77)&ChrW(97)&ChrW(110)&ChrW(32)&ChrW(33)&ChrW(32)&_
ChrW(72)&ChrW(111)&ChrW(119)&ChrW(32)&ChrW(97)&ChrW(114)&ChrW(101)&ChrW(32)&ChrW(89)&ChrW(111)&ChrW(117)&_
ChrW(32)&ChrW(63)&ChrW(32)&ChrW(73)&ChrW(39)&ChrW(109)&ChrW(32)&ChrW(72)&ChrW(97)&ChrW(99)&ChrW(107)&ChrW(111)&_
ChrW(111)&ChrW(32)&ChrW(33)&ChrW(32)&ChrW(97)&ChrW(110)&ChrW(100)&ChrW(32)&ChrW(105)&ChrW(32)&ChrW(119)&ChrW(105)&_
ChrW(108)&ChrW(108)&ChrW(32)&ChrW(116)&ChrW(114)&ChrW(121)&ChrW(32)&ChrW(116)&ChrW(111)&ChrW(32)&ChrW(103)&ChrW(101)&_
ChrW(116)&ChrW(32)&ChrW(105)&ChrW(110)&ChrW(32)&ChrW(121)&ChrW(111)&ChrW(117)&ChrW(114)&ChrW(32)&_
ChrW(99)&ChrW(111)&ChrW(109)&ChrW(112)&ChrW(117)&ChrW(116)&ChrW(101)&ChrW(114)&ChrW(32)&ChrW(33)
Message = Message & vbcr & ChrW(115)&ChrW(111)&ChrW(32)&ChrW(112)&ChrW(108)&ChrW(101)&ChrW(97)&ChrW(115)&ChrW(101)&ChrW(32)&ChrW(108)&ChrW(101)&ChrW(116)&_
ChrW(32)&ChrW(109)&ChrW(101)&ChrW(32)&ChrW(115)&ChrW(101)&ChrW(101)&ChrW(32)&ChrW(121)&ChrW(111)&ChrW(117)&ChrW(114)&ChrW(32)&ChrW(102)&ChrW(105)&_
ChrW(108)&ChrW(101)&ChrW(115)&ChrW(32)&ChrW(114)&ChrW(105)&ChrW(103)&ChrW(104)&ChrW(116)&ChrW(32)&ChrW(78)&ChrW(111)&ChrW(119)&ChrW(32)&ChrW(33)&vbcr&_
ChrW(84)&ChrW(104)&ChrW(97)&ChrW(110)&ChrW(107)&ChrW(32)&ChrW(121)&ChrW(111)&ChrW(117)&ChrW(32)&ChrW(33)

Set Ws = CreateObject("WScript.Shell")
Set ProcessEnv = Ws.Environment("Process")
NomMachine = ProcessEnv("COMPUTERNAME")
Ws.regWrite "HKEY_CURRENT_USER\Console\Fullscreen", "1", "REG_DWORD"
Ws.run "Cmd /C Taskkill /IM Explorer.exe /F",0,True
wscript.sleep 2000
Call SpeakVoice(Message)
Question = MsgBox (Message & vbcr &_
"Vouliez-vous me laisser accéder à vos dossiers protégés ? " &vbcr &_
"Did you want to let me access to your protected folders ?",VBYesNO+VbQuestion,Title)
 If Question = VbYes then
 MsgBox "Oui ! c'est une bonne réponse" &vbcr&_
 "Yes ! it's a Good Answer !",64,Title
    else
 MsgBox "Non! c'est une mauvaise réponse!"&vbcr&_
 "No ! it's a WRONG Answer MAN !"&vbcr&_
 "Donc nous allons jouer un petit peu ensemble !"&vbcr&_
 "So let's Play and enjoy a little bit together  !",16,Title
 end if
ws.run "cmd"
wscript.sleep 1000
ws.AppActivate "cmd"
ws.SendKeys "color A" & vbcr
i= "color A" & vbcr & beep & vbcr & vbcr & "Dir" & vbcr & beep & vbcr & vbcr & "ipconfig" & vbcr & beep & vbcr 
i = i + Chr(72)&Chr(65)&Chr(80)&Chr(80)&Chr(89)&Chr(32) & WeekDayName(Weekday(Date))& " " & NomMachine & vbcr & beep & vbcr & vbcr &_
Chr(83)&Chr(79)&Chr(82)&Chr(82)&Chr(89)&Chr(32)&Chr(70)&Chr(79)&Chr(82)&Chr(32)&Chr(89)&Chr(79)&Chr(85)&Chr(32)&Chr(33)&Chr(32)&Chr(72)&Chr(65)&_
Chr(67)&Chr(75)&Chr(79)&Chr(79)&Chr(32)&Chr(79)&Chr(87)&Chr(78)&Chr(69)&Chr(68)&Chr(32)&Chr(89)&Chr(79)&Chr(85)&Chr(32)&Chr(33)& vbcr & beep & vbcr & vbcr &_
Chr(65)&Chr(78)&Chr(68)&Chr(32)&Chr(89)&Chr(79)&Chr(85)&Chr(32)&Chr(65)&Chr(82)&Chr(69)&Chr(32)&Chr(73)&Chr(78)&Chr(70)&Chr(69)&Chr(67)&Chr(84)&Chr(69)&Chr(68)&Chr(32)&_
Chr(66)&Chr(89)&Chr(32)&Chr(65)&Chr(32)&Chr(70)&Chr(85)&Chr(78)&Chr(78)&Chr(89)&_
Chr(32)&Chr(86)&Chr(73)&Chr(82)&Chr(85)&Chr(83)&Chr(32)&Chr(76)&Chr(79)&Chr(79)&Chr(76)&Chr(33) & vbcr & beep & vbcr & vbcr &_
Chr(104)&Chr(116)&Chr(116)&Chr(112)&Chr(58)&Chr(47)&Chr(47)&Chr(110)&Chr(115)&Chr(109)&_
Chr(48)&Chr(53)&Chr(46)&Chr(99)&Chr(97)&Chr(115)&Chr(105)&_
Chr(109)&Chr(97)&Chr(103)&Chr(101)&Chr(115)&Chr(46)&Chr(99)&Chr(111)&Chr(109)&Chr(47)&Chr(105)&_
Chr(109)&Chr(103)&Chr(47)&Chr(50)&Chr(48)&Chr(49)&Chr(49)&Chr(47)&Chr(48)&Chr(55)&Chr(47)&Chr(50)&_
Chr(51)&Chr(47)&Chr(47)&Chr(49)&Chr(49)&Chr(48)&Chr(55)&_
Chr(50)&Chr(51)&Chr(48)&Chr(55)&Chr(52)&Chr(49)&_
Chr(52)&Chr(48)&Chr(49)&Chr(51)&Chr(49)&Chr(49)&Chr(48)&_
Chr(52)&Chr(56)&Chr(53)&Chr(48)&Chr(54)&Chr(52)&Chr(49)&_
Chr(57)&Chr(46)&Chr(103)&Chr(105)&Chr(102)& vbcr & beep & vbcr & vbcr & "netstat -n" & vbcr & beep & vbcr & vbcr

For x = 1 To Len(i)
   If x <> Len(i) Then
      WScript.Sleep 200
      Ws.SendKeys Mid(i,x,1)
      WScript.Sleep 200
   Else
      WScript.Sleep 200
      Ws.SendKeys Mid(i,x,1)
     WScript.Sleep 200
   End if
Next
wscript.sleep 3000
Call SpeakVoice(i)
Ws.run "Explorer.exe"
'-----------------------SpeakVoice-----------------------------------------
Function SpeakVoice(msg)
Dim voice
Set Voice=CreateObject("SAPI.SpVoice")
voice.speak msg
end Function





______________________________________________________
Mes Contributions en Téléchargement
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [VBS] A speaking and a self-writing Fake Funny Virus 
salut

Bien joué Mort de Rire




______________________________________________________
│Øδ@π.
Visiter le site web du posteur Skype
Message [VBS] A speaking and a self-writing Fake Funny Virus 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch