De Todo Un Poco!!!: USB Secure 1.6.0

martes, 17 de mayo de 2011

USB Secure 1.6.0

Donde hay una unidad USB, tiene que haber USB Secure!

USB secure puede proteger unidades USB con contraseñas. La protección es independiente de la PC, no requiere instalación y no requiere derechos de administrador en el otro extremo. Nunca más te preocuparás por la pérdida o robo a través de unidades USB si lo haz protegido con USB secure. USB secure trabaja con todo tipo de medios portátiles como USB Flash Drives, thumb drives, memorias portátiles, discos externos y tarjetas de memoria.

No hay comentarios:

Publicar un comentario

<% '*************************************************************************** ' Paste this block of code on your web page where you would like text ' links to be displayed. This code will dynamically add and remove text ' links on your web page according to your mercadoenlacestexto.com settings '*************************************************************************** Dim METKey, METCurrentUrl, METNewWindow, METQueryString, METResultString, METErrorString ' The following variable defines whether links are opened in a new window or not ' (1 = Yes, 0 = No) METNewWindow = 1 METKey = "l1301mu165v" If Request.ServerVariables("HTTPS") = "on" Then METCurrentUrl = "https://" & Request.ServerVariables("HTTP_HOST") Else METCurrentUrl = "http://" & Request.ServerVariables("HTTP_HOST") End If METCurrentUrl = METCurrentUrl & Request.ServerVariables("PATH_INFO") If Request.ServerVariables("QUERY_STRING") <> "" Then METCurrentUrl = METCurrentUrl & "?" & Request.ServerVariables("QUERY_STRING") End If METQueryString = "LinkUrl=" & Server.URLencode(METCurrentUrl) & "&Key=" & METKey & "&OpenInMyBetaNewWindow=" & METNewWindow If GetMET(METQueryString, METResultString, METErrorString) Then Response.Write METResultString Else Response.Write METErrorString End If Function GetMET(ByVal METqs, ByRef METresp, ByRef METerr) Dim METEngine, ObjHttp METEngine = "http://mercadoenlacestexto.com/index.php/home_page/engine?" Set ObjHttp = Nothing On Error Resume Next Set ObjHttp = CreateObject("WinHttp.WinHttpRequest.5.1") On Error Resume Next If ObjHttp Is Nothing Then Set ObjHttp = CreateObject("WinHttp.WinHttpRequest.5") End If On Error Resume Next If ObjHttp Is Nothing Then On Error Resume Next Set ObjHttp = CreateObject("Msxml2.ServerXMLHTTP") On Error Resume Next If ObjHttp Is Nothing Then Set ObjHttp = CreateObject("Msxml2.ServerXMLHTTP.4.0") End If On Error Resume Next If ObjHttp Is Nothing Then Set ObjHttp = CreateObject("Microsoft.XMLHTTP") End If On Error Resume Next If ObjHttp Is Nothing Then Er = "It appears that handling remote HTTP requests are not supported or have been disabled. Please contact your web host for more information." GetMET = False Else ObjHttp.Open "GET", METEngine & METqs, False ObjHttp.Send If ObjHttp.status <> 200 Then METerr = "Error processing request" GetMET = False Else METresp = ObjHttp.responseText GetMET = True End If Set ObjHttp = Nothing End If Else ObjHttp.Open "GET", METEngine & METqs, False ObjHttp.Send If ObjHttp.Status <> 200 Then METerr = "Error processing request" GetMET = False Else METresp = ObjHttp.responseText GetMET = True End If End If End Function %>