Mensajes

Hola tengo estos Hashes que no e podido descifrar en ninguna web, si alguien pudiera o algún soft se lo agradecería muchísimo es de suma importancia

743a6f94882e54146c081d11f53e405ddc59f38c   
d4fa05b3ccb5b7bbb38c0179a723e3f99dad2cec   
fcf6d149cf55d87bbd0f6059eec3db991600015f   
d5ea6797ad94b6c78a06561830291d50628a58e4   72059ccecd655ff1bc137583946b8524014496d8   
6c90c7b1de9cb98a06f0b75d701de88a1df3d453
a659bcaa7652b98a33e607dc93038aad6396efdb

Reto y link funcionando, gracias al MOD y espero alguien tenga resultados pronto!

Ya puedes checar la pagina no le cambie el link pero esta accesible, fijate en los #TAG puse #PaginaConFinDeIntrusion #ElHacker.net #AngelLexMOD para comprobar que es mia, y no esta bloqueada, yo accedo desde cualquier navegador, bueno a menos que la quieras ver de un celular si te bloquea pero de hay en fuera todo bien, espero sus respuestas sobre como accedieron y que encontraron =)

podrías en la pagina ya sea visible o como comentario html, colocar que esa pagina está dispuesta con fin de intrusión y modificar el link que te he bloqueado?

[Happy Hunting]

Hola gente!

Hoy les vengo a dejar esta pequeña practica libre para los que desean poner en marcha sus conocimientos basicos y/o avanzados de hacking sin inflingir ninguna ley, esta pagina es mia la tengo montada en mi computadora solo utilize Apache y el servicio No-IP no doy mas detalles pues ya di suficientes y en un caso de hacking real no les dirían absolutamente nada.

Aqui les dejo el link: http://revoluciondigital.zapto.org/

Por favor si no sabes nada del tema, no hagas ataques estúpidos y Lammers como DDOS eso cualquiera lo hace, después de eso ataca libremente tengo respaldo de todo.

En la parte de abajo hay enlaces a mi facebook para comprobar que es mia la pagina, si requieren algo mas manden MP o dejen RESP

Happy Hunting

No veo el insulto en que se filtraran esos documentos con datos que al parecer para un cierto tipo de publico sean sensibles, y si en verdad fue hackeado por el estudiante de secundaria pues eso no se sabe de todo cierto ya que Wikileaks desde el conflicto en el que se le atribuyeron mas de 10 muertos en Irak por filtrar nombres en los documentos tengo entendido que cambia y maquilla un poco las cosas que ellos consideran que pueden alterar la integridad de las personas.

Como siempre lo volvi a resolver yo solo, no se por que tengo mala suerte, desde que entre en este foro no me resuelven ni una pinche duda ni por muy sencilla que parezca, en este subForo de Visal Basic e posteado ya 5 veces de las cuales las 5 termino conviertonlas en aportes propios hacia la comunidad, bueno espero que por lo menos ayuden a alguien de tantos que quieren aprender y postean dudas en este foro.

(Si alguien requiere el codigo por favor no dude en mandarme pm)

Buneas, estoy trabajando en un sistema para auditorias internas de una empresa y lo unico que me falta es anexarle un modulo donde se carge una carpetas en un treeview y sus archivos en un listview, y segun el archivo que le de doble click en el listview se abra, en este caso tengo puros pdf, pero no importa solo quiero que se muestren y poder abrirlos, hasta ahora solo e logrado cargar carpetas y subcarpetas en el treeviw les dejo el codigo que tengo

Código [Seleccionar] Expandir

Imports System.IO


Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       cargarCarpetas("C:/Manuales")
   End Sub
   Public Sub cargarSubcarpetas(ByVal rutaRaiz As String,
             ByVal nodoTree As Windows.Forms.TreeNode)
       On Error Resume Next
       Dim carpetaActual As String
       Dim indice As Integer

       If nodoTree.Nodes.Count = 0 Then
           For Each carpetaActual In
                   My.Computer.FileSystem.GetDirectories(rutaRaiz)
               indice = carpetaActual.LastIndexOf(System.IO.Path.PathSeparator)
               nodoTree.Nodes.Add(carpetaActual.Substring(indice + 1,
                    carpetaActual.Length - indice - 1))
               nodoTree.LastNode.Tag = carpetaActual
               nodoTree.LastNode.ImageIndex = 0
           Next
       End If
   End Sub

   Public Sub cargarCarpetas(ByVal rutaRaiz As String)
       Dim nodoBase As System.Windows.Forms.TreeNode

       If IO.Directory.Exists(rutaRaiz) Then
           If rutaRaiz.Length <= 3 Then
               nodoBase = TreeView1.Nodes.Add(rutaRaiz)
           Else
               nodoBase = TreeView1.Nodes.Add(
                   My.Computer.FileSystem.GetName(rutaRaiz))
           End If
           nodoBase.Tag = rutaRaiz
           cargarSubcarpetas(rutaRaiz, nodoBase)
       Else
           Throw New System.IO.DirectoryNotFoundException()
       End If
   End Sub

   Private Sub TreeView1_AfterExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterExpand
       Dim n As System.Windows.Forms.TreeNode
       For Each n In e.Node.Nodes
           cargarSubcarpetas(n.Tag, n)
       Next
   End Sub

   Private Sub TreeView1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseDoubleClick

       Dim ruta As String
       ruta = TreeView1.SelectedNode.ToString.Substring(9)
       TextBox1.Text = ruta
       Shell("explorer.exe root=" & TextBox1.Text & " ", vbNormalFocus)

   End Sub
End Class

Como ven tengo 1 treview, 1 listview y 1 textbox, espero alguien pueda ayudarme con algun ejemplo que tengan por ahi, de antemano muchas gracias.

Como siempre lo volvi a resolver yo solo, no se por que tengo mala suerte, desde que entre en este foro no me resuelven ni una pinche duda ni por muy sencilla que parezca, en este subForo de Visal Basic e posteado ya 5 veces de las cuales las 5 termino conviertonlas en aportes propios hacia la comunidad, bueno espero que por lo menos ayuden a alguien de tantos que quieren aprender y postean dudas en este foro.

Muchas gracias a los que se vayan a tomar la molestia de leer mi post, yo solito me respondo y ya de paso se convierte en aporte por si alguien le sirve

El problema radica en esta linea:

Código [Seleccionar] Expandir

ArUsu = reader.GetString(2).ToUpper

Si ven tengo declarada 3 variables, esto por que al encontrar datos en la tabla los asigne a esas variables, para saber el nombre completo y el tipo de usuario, para asi mismo cargar un formulario especial, para tipo "Admin" o para tipo "Estandar"

Simplemente no declare esa variable en el Query que esta aqui:

Código [Seleccionar] Expandir

Dim sql As String = "SELECT name_comp, tipo_user FROM table_users where nom_user = @username and pass_user = @password "

Buenas estoy haciendo un login en Visual Studio 2010 con una base de datos portable echa en SQLite que tiene la siguiente tabla

Código [Seleccionar] Expandir

CREATE TABLE `table_users` (
`id_user` INTEGER,
`nom_user` TEXT DEFAULT 25,
`pass_user` TEXT,
`name_comp` TEXT DEFAULT 50,
`tipo_user` TEXT DEFAULT 25,
PRIMARY KEY(id_user)
);


y mi codigo en visual studio es el siguiente

Código [Seleccionar] Expandir

Imports System.Data.SQLite
Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim NmUser, TpUser, ArUsu As String
            Dim reader As SQLiteDataReader
            Dim conexSQLite As New SQLiteConnection("data source=C:\Users\Admin\Downloads\SQLiteDatabaseBrowserPortable\Data\libreria_db")
            Dim sql As String = "SELECT name_comp, tipo_user FROM table_users where nom_user = @username and pass_user = @password "
            Dim cmd As New SQLiteCommand(sql, conexSQLite)

            conexSQLite.Open()

            cmd.Parameters.Add("@username", SqlDbType.VarChar, 20).Value = TextBox1.Text
            cmd.Parameters.Add("@password", SqlDbType.VarChar, 20).Value = TextBox2.Text

            reader = cmd.ExecuteReader()

            If reader.Read Then
                NmUser = reader.GetString(0).ToUpper
                TpUser = reader.GetString(1).ToUpper
                ArUsu = reader.GetString(2).ToUpper

                If NmUser = "ADMINISTRADOR" Then

                    Form1.Show()

                End If

                MessageBox.Show("Bienvenido " & NmUser & " al sistema.")

            Else
                MsgBox("Usuario o password incorrecto, trate otra vez..")

            End If

            reader.Close()
            conexSQLite.Close()


        Catch ex As Exception
            MsgBox("ERROR." & ex.Message)

        End Try



    End Sub
End Class

Pero al iniciarlo me sale el siguiente error   "índice fuera de los límites de la matriz"

Hola te dejo el codigo para visual basic .net, solo agregas el componente adobe, un button y un openFileDialog, entras al codigo del button1 y pegas el codigo es todo.

Código [Seleccionar] Expandir

OpenPDF.ShowDialog()
        PDFcontenedor.src = OpenPDF.FileName

en la propiedad del componen Adobe busca filter y solo pones .pdf y listo!!! solo te mostrara pdf