Temas

Muchas veces viene y preguntan que se les han metido en el wifi y que les roban internet, datos, etc

Que cosas hay que tener en cuenta para proteger mi red wifi?
Ademas claro de las ya repetidas hasta la saciedad en este foro y demas...

WPA-SIN WPS-KEY ROBUSTA.

Bueno que mejor que un magazo nos de una la lista que da mayor seguridad a nivel mas profesional y sin tan tapujos, el mago es ni mas ni menos que Chema Alonso en esta platica sobre su tool LATCH y el bug de Heartbleed... buen video recomendado 

https://www.youtube.com/watch?v=ApCvi4MFgYY#t=17m57s

si cuando adquiri la de 500mw nueva de caja venia en la caja 2 imanes de esos de neonidium para que se pegara en alguna cosa metalica, y pues asi le puse con una antena de 5dbi omni y pues el peso le gano y se callo, sirve todavia pero lo que resulto xtraño fueron los imanes.. acaso no hacen interferencia por el magnetismo? o sera que la calibran con los imanes pegados? desde que se los kite no jalo tan shido como antes... 

Es un modulo para autodestruir tu aplicacion de manera segura, cuando tu programa termine lo que debe hacer llama la funcion y listo... es sencillo y se le pueden hacer mas mejoraz....

Código [Seleccionar] Expandir

Public Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Public Function AutoDestruccion()
Dim modName As String * 260, AK As String * 1024, PPATTH As String
Dim CA, BASUR As Integer

X = Left$(modName, GetModuleFileName(App.hInstance, modName, Len(modName)))
PPATTH = App.EXEName & Right(X, 4)
SetAttr X, 0
Randomize
CA = Int(Rnd * 255)
If CA = 0 Then CA = 35
For a = 1 To 1024
AK = AK + Chr(CA)
Next
BASUR = Int(Rnd * 10) + 1 + Int(Int(FileLen(X)) / 1024)

Open App.Path & "\" & "KVYTOQALYHRNN.TXT" For Binary As #1
For B = 1 To BASUR
Put #1, , AK
Next
Close #1
Open App.Path & "\" & "8GJ46F87385UYGHD64JFN.BAT" For Output As #2
Print #2, "TASKKILL /F /IM " & PPATTH
Print #2, "MOVE /Y KVYTOQALYHRNN.TXT " & PPATTH
Print #2, "DEL KVYTOQALYHRNN.TXT /Q"
Print #2, "RENAME " & PPATTH & " 1NOMEVES.TXT"
Print #2, "DEL 1NOMEVES.TXT"
Print #2, "GOTO X"
Print #2, "ERASE " & Chr(37) & "0"
Print #2, ":X"
Close #2
Shell App.Path & "\" & "8GJ46F87385UYGHD64JFN.BAT", vbHide
End Function

http://rapidshare.com/files/71844033/CERRANDO_EL_NOD32_-_BATCH.rar

pass del pdf: shaka