Mensajes

Es verdad, me ocurre lo mismo, si ingresas una palabra y de las a buscar sale error,pero si das enter en la barra de direcciones con esa misma dirección entonces no pasa nada, todo ok 

Saludos

[^]

Lo que ocurre es que en batch el símbolo ^ es un símbolo de escape, no sirve para elevar un número.

Leete esto a ver si te ayuda 

Saludos

[SI]

No, por lo que tengo entendido SI lo admitieron
... a medias 

Código [Seleccionar] Expandir

http://www.viruslist.com/en/weblog?weblogid=208187633

Edito:

Kaspersky Lab, a leading developer of secure content management systems, has detected a hacker attack on usa.kaspersky.com – the official website of the company's US office. The attack was unsuccessful and, despite their attempts, the hackers were unable to gain access to restricted information stored on the website. Claims by the hackers responsible for the attack that they had managed to gain access to user data are untrue.

As a result of the attack, a vulnerability was found in one section of the usa.kaspersky.com website. Company personnel took immediate action to address the issue, and the vulnerability was closed a short time later.

The vulnerability found on usa.kaspersky.com did not affect any other Kaspersky Lab Internet resources, including www.kaspersky.com, the official website of the company's headquarters.

The company's experts are currently investigating the incident. We are also conducting a careful security audit of all official Kaspersky Lab websites and developing a range of technical and legal measures to protect the company's corporate resources from similar attacks in the future.

Código [Seleccionar] Expandir

http://www.kaspersky.com/news?id=207575747
Eso es lo que dicen ellos, admiten que fueron hackeados, pero no que hayan ganado acceso a datos sensibles 

Jaja, la más grande 468 x 60, así que no, no sobrepasa el límite 

Había visto la noticia hace un par de días, pero no había visto el contenido de las bases 

Yo lo voy a estar descargando con la esperanza de terminar algún día 
Gracias 

Saludos

[Last Update: 11.02.2009]

Ahora si apareció, pero me llamó la atención no haberlo visto antes, claro, hasta que vi esto Last Update: 11.02.2009, lo colgaron hace un rato 

El anti netzeek igual se consigue, y es por eso que al ver el code se nota que te faltan varias cosas por hacer

Código (vb) [Seleccionar] Expandir

' Script to remove netzeek MSN worm/trojan. 29.10.2008
' Written by Kye of the SA-MP team - team@sa-mp.com
'

Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."
intFoundVirus = 0

' Get the Windows folder locations
Dim objFSO, strWindowsFolder, x
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")

strWindowsFolder = objFSO.GetSpecialFolder(0)
strSystemFolder = objFSO.GetSpecialFolder(1)

Dim arrVirusFiles(7)

arrVirusFiles(0) = strWindowsFolder & "\csrss.exe"
arrVirusFiles(1) = strWindowsFolder & "\services.exe"
arrVirusFiles(2) = strWindowsFolder & "\winlogon.exe"
arrVirusFiles(3) = strSystemFolder & "\drivers\lsass.exe"
arrVirusFiles(4) = strSystemFolder & "\drivers\smss.exe"
arrVirusFiles(5) = strSystemFolder & "\drivers\spoolsv.exe"
arrVirusFiles(6) = strSystemFolder & "\drivers\ctfmon.exe"
arrVirusFiles(7) = strWindowsFolder & "\ctfmon.exe"

' Go ahead and kill those processes if we find them

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("select * from win32_process")

For Each objProcess in colProcesses

    ' check if this process is a bady
    If Len(objProcess.ExecutablePath) > 0 Then
x = 0
While(x <= UBound(arrVirusFiles))
'Wscript.Echo "Comparing: " & objProcess.ExecutablePath & ":" & arrVirusFiles(x)
      If (StrComp(objProcess.ExecutablePath, arrVirusFiles(x), vbTextCompare) = 0) Then
objProcess.Terminate
'Wscript.Echo "I killed " & objProcess.ExecutablePath
intFoundVirus = 1
End If
x = x + 1
Wend
End If

Next

' Now remove those registry keys
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

oReg.DeleteValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", "Windows Update"
oReg.DeleteValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", "Windows"
oReg.DeleteValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", "Windows Run Service"
oReg.DeleteValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\RunOnce", "System"
oReg.DeleteValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\RunOnce", "System Update"
oReg.DeleteValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\RunOnce", "System Run"
oReg.DeleteValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\RunOnce", "CTFMON"
oReg.DeleteValue HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", "Windows Update"
oReg.DeleteValue HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", "Windows"
oReg.DeleteValue HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", "Windows Run Service"
oReg.DeleteValue HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\RunOnce", "System"
oReg.DeleteValue HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\RunOnce", "System Update"
oReg.DeleteValue HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\RunOnce", "System Run"
oReg.DeleteValue HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\RunOnce", "CTFMON"

' Now delete the virus files
x = 0
While(x < UBound(arrVirusFiles))
If objFSO.FileExists(arrVirusFiles(x)) Then
objFSO.DeleteFile(arrVirusFiles(x))
'Wscript.Echo "I deleted " & arrVirusFiles(x)
End If
x = x + 1
Wend

If intFoundVirus = 1 Then
    Wscript.Echo "Netzeek MSN virus is deleted." & vbCrlf & "Restart your computer."
Else
    Wscript.Echo "Netzeek virus not found. Nothing was done."
End if

Con respecto a tu code, cambiar ...

Código (vb) [Seleccionar] Expandir

unidad = inputbox("Cual es tu principal unidad de disco duro" & vbNewLine & "Por ejemplo: C:\, D:\, E:\...","Seleccione su unidad","")
Por ...

Código (vb) [Seleccionar] Expandir

unidad = whs.ExpandEnvironmentStrings("%SystemDrive%")

Saludos 

Por eso dije  ...

En definitiva, puede que si sea culpa del sistema, pero si se da la posibilidad de crear "complementos" hay veces en que es difícil también tener controlados estos complementos 

Lo que en esta ocasión es error de SMF no hay duda, me refería al caso que comenta el-brujo, donde es problema de phplist y no del foro en si, sin embargo seguro son varios lo que dirán ... "PhpBB es inseguro" ... justamente por esto 

[1.]

Mi error, tienes razón, estaba pensando en el comando de ms-dos, es por eso que tienes dos alternativas 

1.

Código (vb) [Seleccionar] Expandir

Shell("cmd /c mkdir c:\a\b\c")

2.

Código (vb) [Seleccionar] Expandir

1. Private Sub Command1_Click() 
   2.   
   3. On Error GoTo ErrSub 
   4.   
   5.     Dim i As Integer 
   6.     Dim Array_Dir As Variant 
   7.     Dim Sub_Dir As String 
   8.     Dim El_Path As String 
   9.   
  10.     El_Path = InputBox(" Escribir la ruta del directorio a crear " & _ 
  11.                        "con los subdirectorios", _ 
  12.                        " Crear varios niveles de directorios") 
  13.       
  14.     If El_Path = vbNullString Then 
  15.         Exit Sub 
  16.     End If 
  17.       
  18.     'Desglosa el path y llena el array con los _ 
  19.      subdirectorios que se irán creando 
  20.     Array_Dir = Split(El_Path, "\") 
  21.       
  22.     El_Path = vbNullString 
  23.       
  24.     'Recorre el vector anterior para ir creando uno por uno _ 
  25.      comenzando obviamente desde el directorio de primer nivel 
  26.     For i = LBound(Array_Dir) To UBound(Array_Dir) 
  27.         Sub_Dir = Array_Dir(i) 
  28.         If Sub_Dir <> vbNullString Then 
  29.            El_Path = El_Path & Sub_Dir & "\" 
  30.            If Right$(Sub_Dir, 1) <> ":" Then 
  31.               ' Verificamos que no exista 
  32.               If Dir(El_Path, vbDirectory) = vbNullString Then 
  33.                  'Crea la carpeta 
  34.                   Call MkDir(El_Path) 
  35.               End If 
  36.            End If 
  37.         End If 
  38.     Next 
  39.   
  40.     MsgBox " Directorio creado ", vbInformation 
  41.   
  42. 'Error 
  43. Exit Sub 
  44. ErrSub: 
  45.   
  46. MsgBox "Número de error: " & Err.Number & _ 
  47.        "Descripción del error: " & Err.Description, vbCritical 
  48.   
  49.   
  50. End Sub

Código [Seleccionar] Expandir

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/236-crear-directorio-y-subdirectorio.htm

Te estaba creando una función que hiciera justamente esto, pero luego de buscar la encontré ya armada 

Saludos