Bloqueo de los puertos USB

Como muchos ya han de saber, un porcentaje mayor de los virus entran a tu computadora aparte de Internet, también por memoria infectadas y mas cuando tienes bastantes computadoras y el control a veces no es del todo total.

hay un dicho que me gusta mucho, las memorias son como el sexo, es decir la memoria solo metela en una sola maquina, si la metes en mas de una, hay muchas probabilidades que se te infecte...

Este proyecto se genero en delphi 7 y funciona también con embarcadero 2010; este proyecto solo afecta a las memorias USB, puedes conectar cualquier otro dispositivo como impresoras, scaner y no se vera afectado.

al momento de que tu insertas una memoria al puerto usb, este automáticamente busca en los driver en los archivos:

usbstor.inf
sbstor.PNF



https://cxs2fw.blu.livefilestore.com/y1pIprjzVVtBofGdtr-71lCFUGWmS7grGs588E_5E7fsU4L1scOcMP8d7Xx_nC-ykXoygyVoGW6xzf_mTNUY6zJWMuye7XkWyQy/usbstor.bmp?psid=1

al no encontrar estos archivos los drivers de cualquier memoria que se inserte no se instalara los drivers.

por otro lado si la memoria ya había sido insertada con anterioridad estos archivos ya no son útiles ya que los drivers ya están instalados y tendríamos que recurrir al registro para bloquearlo.

"HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesUSBSTORStart"
3 = Habilitado
4 = DesHabilitado

ahora que mas o menos sabemos como funciona el bloqueo del usb, veamos le código del mismo

las librerías que utilizaremos serian las siguientes:

Registry,ShellAPI

{el primer proceso que tendremos seria el de cambiar el nombre de los archivos, para cuando queramos habilitar la opción de instalar de nuevo una memoria usb regresemos los archivos a su nombre original y listo
usbstor.inf
sbstor.PNF}

Procedure Tusbs.MadrearArchivo(Sender: TObject);
Var
lpFileOp: TSHFileOpStruct;
ArchivoABuscar1,ArchivoABuscar2:String;
Begin
ArchivoABuscar1:='C:WINDOWSinfusbstor.inf';
If FindFirst(ArchivoABuscar1, faAnyFile and not (faVolumeID or faDirectory), SearchRec) = 0 then
Begin
lpFileOp.Wnd := Self.Handle;
lpFileOp.wFunc := FO_RENAME;
lpFileOp.pFrom := PChar('C:WINDOWSinfusbstor.inf' + #0#0);
lpFileOp.pTo := PChar('C:WINDOWSinfusbstorinf.Txt' + #0#0);
lpFileOp.fFlags:= FOF_SIMPLEPROGRESS or FOF_FILESONLY;
lpFileOp.fAnyOperationsAborted := FALSE;
lpFileOp.hNameMappings := nil;
lpFileOp.lpszProgressTitle := PChar('Trasladando archivos al disco D' + #0#0);
if ShFileOperation(lpFileOp) <> 0 then
ShowMessage('Ha Fallado El cambio de Nombre de Archivo de usbstor.inf a usbstorinf.Txt');
End;

ArchivoABuscar2:='C:WINDOWSinfusbstor.PNF';
If FindFirst(ArchivoABuscar2, faAnyFile and not (faVolumeID or faDirectory), SearchRec) = 0 then
Begin
lpFileOp.Wnd := Handle;
lpFileOp.wFunc := FO_RENAME;
lpFileOp.pFrom := PChar('C:WINDOWSinfusbstor.PNF' + #0#0);
lpFileOp.pTo := PChar('C:WINDOWSinfusbstorPNF.Txt' + #0#0);
lpFileOp.fFlags:= FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;
if ShFileOperation(lpFileOp) <> 0 then
ShowMessage('Ha Fallado El cambio de Nombre de Archivo de usbstor.PNF a usbstorPNF.Txt');
End;
End;

recuerda que hay que crear tus procedimientos para regresar los archivos a la normalidad, ya que estos procedimientos cambian el archivo a un txt,

una vez hecho esto entonces creamos el procedimiento para habilitar o deshabilitar el puertos usb del registro:


Procedure EnableUSB(Value: Boolean);
begin
With TRegistry.Create do
Try
RootKey:= HKEY_LOCAL_MACHINE;
If OpenKey('SYSTEMCurrentControlSetServicesUSBSTOR',TRUE) then
begin
if Value then
WriteInteger('Start',3)
Else
WriteInteger('Start',4);
CloseKey;
end;
finally
Free;
end;
end;

para mandarlos llamar solo:

EnableUSB(False);
MadrearArchivo(Sender);

y bueno aunque faltan otros detalles, como iconizarlo, y que corra siempre cuando inicie windows, por el momento es el proposito de este post,