Mensajes

creo q debes mejorar tu vocabulario y no subestimar a nadie; estoy es un foro para aprender no para creerse, ni decir yo soy mejor q tu.
en fin no hay nadie q sea absolutamente mejor q todos; ni nadie q lo sepa todo.
Espero eso mas que sea lo tengas claro, sino no conseguiras nada... sin etica no hay nada.

bueno, despues de todo creo q drakolive ya sabe como hacerlo inmortal..
yo me qdo con lo q dijo MadAntrax de renombrar el archivo; eso si funciona... aunq no del todo seguro, pero por lo menos para los q no saben.. estan perdidos...
...
y en cuanto a centinela?? como empezaria? me llama la curiosidad; buscare de eso info.
....
parece q esto resulto una buena discucion, aunq haya usuarios q no prefieran compartir sus conocimientos y encima creerse los q la saben toda....
...
pero esto va bien.

Aqui dejo otro:

Código [Seleccionar] Expandir


'***************************************************************************
'Ejemplo de como descargar un archivo de internet usando el control Winsock
'***************************************************************************
'Copyright 2003-2004 SMG Software.
'***************************************************************************
Dim Data As String
Dim BytesAlreadySent As Single
Dim FILEPATHNAME
Dim Est As String
Private Sub Command1_Click()
BytesAlreadySent = 1
If Text1.Text = "" Then Exit Sub
strURL = Text1.Text
Dim Pos%, LENGTH%, NextPos%, LENGTH2%, POS2%, POS3%
    Pos = InStr(strURL, "://")
    LENGTH2 = Len("://")
    LENGTH = Len(strURL)
    If InStr(strURL, "://") Then
    strURL = Right(strURL, LENGTH - LENGTH2 - Pos + 1)
    End If
    If InStr(strURL, "/") Then
    POS2 = InStr(strURL, "/")
    Dim StrFile$: StrFile = strURL
    Do Until InStr(StrFile, "/") = 0
    LENGTH2 = Len(StrFile)
    POS3 = InStr(StrFile, "/")
    StrFile = Right(strURL, LENGTH2 - POS3)
    StrFile = Right(strURL, LENGTH2 - POS3)
    Loop
    FileName = StrFile
    strURL = Left(strURL, POS2 - 1)
    End If
Winsock.Connect strURL, 80
FILEPATHNAME = "C:\" & FileName
End Sub
Private Sub Command3_Click()
If Winsock.State >= 1 Then
Winsock.Close
Data = ""
BytesAlreadySent = 1
End If
Est = "1"

End Sub
Private Sub ExitMNU_Click()
If Winsock.State > 0 Then
Winsock.Close
End If
End
End Sub

Private Sub Form_Load()
Est = "1"
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If Winsock.State > 1 Then
Winsock.Close
End If


End Sub
Private Sub Form_Unload(Cancel As Integer)
If Winsock.State > 1 Then
Winsock.Close
End If
End Sub

Private Sub HeaderTXT_Change()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Winsock_Close()

If Est = "1" Then
MsgBox "Completado - Descargado en C"
Est = "2"
End If

End Sub

Private Sub Winsock_Connect()
On Error Resume Next
Dim strCommand As String
strCommand = "GET " + Text1.Text + " HTTP/1.0" + vbCrLf
strCommand = strCommand + "Accept: *.*, */*" + vbCrLf
strCommand = strCommand + "Referer: " & strURL & vbCrLf
strCommand = strCommand + vbCrLf
Winsock.SendData strCommand
End Sub

Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)

    Winsock.GetData Data, vbString

If InStr(Data, "Content-Type:") Then

   
    Dim Pos%, LENGTH%, HEAD$
    Pos = InStr(Data, vbCrLf & vbCrLf)
    LENGTH = Len(Data)
    HEAD = Left(Data, Pos - 1)
    Data = Right(Data, LENGTH - Pos - 3)
End If

        Open FILEPATHNAME For Binary Access Write As #1
        Put #1, BytesAlreadySent, Data
        BytesAlreadySent = Seek(1)
        Close #1



End Sub



el command1 es descargar y el command2 es detener. y colocan text de la url.
...
funciona muy bien y es 100% indetectable...
espero q les sirva

Yo me hice un EXE q me copia la ocx al System32 con tan solo ejcutar..(claro q lo blindo a la aplicacion principal.. )

interesante...

aun no colocas el form del splash....
en el codigo que dejaste no aparece por ningun lado.

Muy lindo, te felicito...
oie Mad... supongo que tienes escondigo un virus muy inteligente y con funciones muy avanzadas...
... un pregunta:
lo q qiero es hacer que repita la funcion cada ves que detecta un dispositivo nuevo (osea cuanado se inserta un pendrive o usb) para que en ese momento se copie x si solo.
es mi pregunta.
..........
buen aporte.

Otro fallo que le veo es que si creamos el archivo licencia.txt  sin tener que meter nada dentro lo da como bueno.

ya, eso lo tengo que arreglar

edit: ya lo arregle

en el formulario splash cambia el form load por este

Private Sub Form_Load()
On Error Resume Next

If Dir("./licencia.txt") <> "" Then
Dim n_File As Integer
Dim Contenido As String
    n_File = FreeFile
    Open "./licencia.txt" For Input As n_File
    Contenido = Input$(LOF(n_File), #n_File)
    Close n_File
    Text4 = Contenido
    End If
If Text4.Text = "VGV4dDE" Then Me.Hide
If Text4.Text = "VGV4dDE" Then programaTrial.Show

End Sub

por cierto en el codigo fuente no esta el splash!

Buen proyecto, buen trabajo.

Si termino de hacerlo q el mismo infecEXE no deje su rastro del icono, lo posteo...
pero mientras tanto averiguo como lo puedo hacer...
si alguno lo termina o lo hace... lo postea...

ya dieron con la clave?