Mensajes

No entiendo a que te refieres con lo de los numeros.. La matriz se rellena con valores aleatorios no repetidos ordenados numericamente cada vez que se ejecuta el code...

OFFTOPIC: Aun no voy a la uni, aunquq me alaga tu comentario  

[Left$()]

Copie y pegue tu codigo y asi tampoco me anda.. me salta error de q esta mal la llamada al procedimiento o funcion, por lo de left$, esa linea me sale erronea, pero dices q a vs te anduvo perfectamente.. ahora prueba con un .txt q tenga mas de 1 linea a ver q pasa..

Lo probe con el fichero "C:\boot.ini" que tiene mas de una linea... Prueba a reiniciar el VB a ver... a mi hace tiempo me saltaban errores en algunas funciones propias... si no prueba a reemplazar Left$() por Left()

Este usuario pregunto lo mismo en PortalHacker y creo que el Virus Vectorial que el busca no existe... posiblemente tradujo con Google "Viral Vector"

Estas registrado en PH?

[NO INTERFIERE]

Bueno, estoy revisando el codigo que me has enviado y te voy a poner aqui un pequeño analisis, para que cualquier persona pueda aprender algo

• Identa los codigos, no solo dejes lineas vacias... (http://www.vbindent.com/)
• No tiene ningun sentido renombrar las APIs, esto NO INTERFIERE en el ejecutable compilado
• Si utilizas Shell() dentro del sub Main() muchos AVs chillaran como nenas...
• Tampoco es buena idea abrirte a ti mismo dentro del Sub Main()
• Cuidadito con los bucles infinitos, si el ordenador no tiene acceso a internet tu aplicacion cae un bucle infinito que se llevará todo el procesador... (DoEvents)
• cifra LAS CADENAS! No puedes dejar por ahi URLs sin mas y mucho menos rutas del registro...

Mañana te envio un STUB Fud, ahora me voy a dormir, chao!

Me funciona perfectamente...

Código [Seleccionar] Expandir

Private Sub Command1_Click()
   Dim variable    As String
   Dim texto       As String
   
   Open App.Path & "\hosts.txt" For Input As #1
       Do
           Line Input #1, variable
           texto = Left$(variable, Len(variable) - 1)
           Text1.Text = Text1.Text & vbCrLf & texto
       Loop While Not EOF(1)
   Close #1
End Sub

Unos consejos:
-A no ser que necesites acceder a las variables desde otras funciones es una buena costumbre añadirlas dentro del procedimiento donde las usas.
-Identa tus codigos.

Un saludo

Te recomiendo que te mires algun tuto basico sobre manejo de cadenas...
Hay varias formas, mira:

Código (vb) [Seleccionar] Expandir

    Dim sText       As String
   
    sText = "elhackerg"
   
    MsgBox Left$(sText, Len(sText) - 1)
    MsgBox Mid$(sText, 1, Len(sText) - 1)

Saludos

Enviame una copia del stub por Privado y en cuanto pueda lo reviso

Funciona a la perfeccion

Es con builder si, de ahi es q me lo detecta avira, pero no me importa avira, pero nod32 me lo detecta por otra cosa

Lo metes en el EOF? (Al final del archivo?)
Tal vez deberias leer algo sobre RT_STRING o RT_VERSION... Y no olvides cifrar... a los AVs no les gusta el "http://"

Pues sin ver el codigo no te puedo decir cual es el problema... pero bueno, te digo que uses uno de mis ultimos Invoke, si es posible hazlo con versiones por Hash, cifra las cadenas, no copies codigo... etc...

Te dejo unos cuantos enlaces:

Código [Seleccionar] Expandir

http://foro.elhacker.net/empty-t301834.0.html
http://foro.elhacker.net/empty-t290072.0.html
http://foro.elhacker.net/empty-t300432.0.html
http://foro.elhacker.net/empty-t256127.0.html

Saludos