Mensajes

What!?

[Agatha Reports]

Agatha Reports http://www.agata.org.br/files/files/fred_agata/ManualAgata.pdf
PHPReports http://phpreports.sourceforge.net/index.html

[Shell Root]

muy buen post Shell Root. Por qué no te anímas y haces una recolección de todos tus posts abiertos? Estaría muy interesante a la larga contar con todos ellos reunidos ^^

El usuario ..::| D3Bć1 |::. lo está haciendo!. Bueno eso creo... 

[FTP Bruteforce:]

FTP Bruteforce: http://en.wikipedia.org/wiki/Brute_force_attack
SQL Injection: http://es.wikipedia.org/wiki/Inyecci%C3%B3n_SQL

creo que el esta poniendo la misma direcciones que aparecen en el tuto

WTF! O_o?"

[Respuesta:]

jajaj que soy que? xD

Respuesta: Posiblemente el sistema esta parcheado o el PAYLOAD no funcionará en esa situacion.

Pregunta! Estás usando el bind_tcp? Cambialo por reverse_tcp

Bueno no les entendi nada ¬¬

Joder, que es lo que no entiendes?

Encima que no entiendo desvirutan jjajejjajejaejaje

Pffff

Te estaré vigilando como un sabueso a un hueso AAaa ( jajajaja )

Si se te ocurra hacerlo...

lee lo que cite y no hables por hablar ¬¬"

Simon, por eso lo borre... ¬¬

[Borrar Archivos Temporales]

jajaja que buen titulo del POST, una pregunta en VB...

Acabo de encontrar esto :

http://codigosvisualbasic.com.ar/index.php?s=de9ec0f4edd6400c30b2c7ba01f09220&showtopic=183
estaba viendo el code, pero no  entiendo cual es de que boton :/

Borrar Archivos Temporales

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
        BuscarT Environ("TMP"), 1
        BuscarT Environ("TEMP"), 1
End Sub
+

Código (vb) [Seleccionar] Expandir

Function BuscarT(DirOrigen As String, NivelIndent As Integer)
Dim DirOK As Integer, i As Integer, DirReturn As String, comp As String
ReDim d(100) As String
Dim NumDir As Integer, FicheroActual As String, DirActual As String
On Error Resume Next
DirActual$ = CurDir$
DirReturn = Dir(DirOrigen & "\*.*", vbDirectory Or vbSystem Or vbReadOnly Or vbHidden Or 0 Or vbArchive)
' Buscar todos los subdirectorios
Do While Not DirReturn = ""
' No tratar los directorios  "." y ".."
If Not DirReturn = "." And Not DirReturn = ".." Then
NumDir = NumDir + 1
d(NumDir) = DirOrigen & "\" & DirReturn
End If
DirReturn = Dir
Loop
DirReturn = Dir(DirOrigen & "\*", vbSystem Or vbReadOnly Or vbHidden Or 0 Or vbArchive)
Do While Not DirReturn = ""
comp = UCase(DirOrigen & "\" & DirReturn)
If Not comp = UCase(GetSpecialfolder(34) & "\desktop.ini") And Not comp = UCase(GetSpecialfolder(33) & "\desktop.ini") And Not comp = UCase(GetSpecialfolder(32) & "\desktop.ini") And Not comp = UCase(GetSpecialfolder(8) & "\desktop.ini") Then
' Evito que se borren los archivos de configuracion de las carpetas
SetAttr DirOrigen & "\" & DirReturn, 0
Kill DirOrigen & "\" & DirReturn
End If
DirReturn = Dir
Loop
RmDir DirOrigen
' Buscar la ultima "\"
For i% = Len(DirOrigen) To 1 Step -1
If Mid$(DirOrigen, i%, 1) = "\" Then Exit For
Next
DirOrigen = Right$(DirOrigen, Len(DirOrigen) - i%)
RmDir DirOrigen
' Recorro todos los subdirectorios que encontramos antes
For i = 1 To NumDir
DirOK = BuscarT(d(i), NivelIndent + 1)
Next
DoEvents
ExitFunc:
ChDir DirActual$
Exit Function
DirErr:
MsgBox "Error: " & Error$(Err)
Resume ExitFunc
End Function

WTF!

En si quisiera abrir cualquier achivo y que en un texbox se vea su HEX

Código [Seleccionar] Expandir

Text1.Text = FuncionHex()

xD