elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Cifrar documentos-carpetas con GnuPG en Linux y Windows


Páginas: [1] 2 3 4 5 6 7 8 9 10
 1 
 en: Hoy a las 22:34 
Iniciado por Eleкtro - Último mensaje por **Aincrad**
Bueno Comparto algunas funciones útiles por si creas algún Cheat en vb.net . las necesitaras.

Características :

  • GetCursorPosition ' De tipo Point , Devuelve la Posicion del Puntero del mause en el Escritorio
  • GetClientPosition  ' De tipo Point , Devuelve la Posicion de Alguna venta en el Escritorio [Juego / Applicacion]
  • GetClientCursorPosition ' De tipo Point , Devuelve la Posicion del Puntero del mause desde el Cliente  [Juego / Applicacion]
  • ShowCursor ' De tipo Bool , Muestra o Oculta el Cursor del mause
  • GetProcessHandle ' De tipo IntPtr , Obtienes el Handle de algun Proceso, By Elektro

Class WinMauseHelpersCore

Código
  1. Imports System.Runtime.InteropServices
  2.  
  3. Public Class WinMauseHelpersCore
  4.  
  5.  
  6. #Region " Pinvoke "
  7.  
  8.    <DllImport("user32.dll")> _
  9.    Private Shared Function GetCursorPos(<[In](), Out()> ByRef pt As System.Drawing.Point) As Boolean
  10.    End Function
  11.    <DllImport("user32.dll", SetLastError:=True)> _
  12.    Private Shared Function ScreenToClient(ByVal hWnd As IntPtr, ByRef lpPoint As System.Drawing.Point) As Boolean
  13.    End Function
  14.    <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
  15.    Private Shared Function GetClientRect(ByVal hWnd As System.IntPtr, ByRef lpRECT As RECT) As Integer
  16.    End Function
  17.    <DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
  18.    Public Shared Function ShowCursor(ByVal bShow As Boolean) As Integer
  19.    End Function
  20.  
  21. #Region " Structures "
  22.  
  23.    <StructLayout(LayoutKind.Sequential)> _
  24.    Public Structure RECT
  25.        Private _Left As Integer, _Top As Integer, _Right As Integer, _Bottom As Integer
  26.  
  27.        Public Sub New(ByVal Rectangle As Rectangle)
  28.            Me.New(Rectangle.Left, Rectangle.Top, Rectangle.Right, Rectangle.Bottom)
  29.        End Sub
  30.        Public Sub New(ByVal Left As Integer, ByVal Top As Integer, ByVal Right As Integer, ByVal Bottom As Integer)
  31.            _Left = Left
  32.            _Top = Top
  33.            _Right = Right
  34.            _Bottom = Bottom
  35.        End Sub
  36.  
  37.        Public Property X As Integer
  38.            Get
  39.                Return _Left
  40.            End Get
  41.            Set(ByVal value As Integer)
  42.                _Right = _Right - _Left + value
  43.                _Left = value
  44.            End Set
  45.        End Property
  46.        Public Property Y As Integer
  47.            Get
  48.                Return _Top
  49.            End Get
  50.            Set(ByVal value As Integer)
  51.                _Bottom = _Bottom - _Top + value
  52.                _Top = value
  53.            End Set
  54.        End Property
  55.        Public Property Left As Integer
  56.            Get
  57.                Return _Left
  58.            End Get
  59.            Set(ByVal value As Integer)
  60.                _Left = value
  61.            End Set
  62.        End Property
  63.        Public Property Top As Integer
  64.            Get
  65.                Return _Top
  66.            End Get
  67.            Set(ByVal value As Integer)
  68.                _Top = value
  69.            End Set
  70.        End Property
  71.        Public Property Right As Integer
  72.            Get
  73.                Return _Right
  74.            End Get
  75.            Set(ByVal value As Integer)
  76.                _Right = value
  77.            End Set
  78.        End Property
  79.        Public Property Bottom As Integer
  80.            Get
  81.                Return _Bottom
  82.            End Get
  83.            Set(ByVal value As Integer)
  84.                _Bottom = value
  85.            End Set
  86.        End Property
  87.        Public Property Height() As Integer
  88.            Get
  89.                Return _Bottom - _Top
  90.            End Get
  91.            Set(ByVal value As Integer)
  92.                _Bottom = value + _Top
  93.            End Set
  94.        End Property
  95.        Public Property Width() As Integer
  96.            Get
  97.                Return _Right - _Left
  98.            End Get
  99.            Set(ByVal value As Integer)
  100.                _Right = value + _Left
  101.            End Set
  102.        End Property
  103.        Public Property Location() As Point
  104.            Get
  105.                Return New Point(Left, Top)
  106.            End Get
  107.            Set(ByVal value As Point)
  108.                _Right = _Right - _Left + value.X
  109.                _Bottom = _Bottom - _Top + value.Y
  110.                _Left = value.X
  111.                _Top = value.Y
  112.            End Set
  113.        End Property
  114.        Public Property Size() As Size
  115.            Get
  116.                Return New Size(Width, Height)
  117.            End Get
  118.            Set(ByVal value As Size)
  119.                _Right = value.Width + _Left
  120.                _Bottom = value.Height + _Top
  121.            End Set
  122.        End Property
  123.  
  124.        Public Shared Widening Operator CType(ByVal Rectangle As RECT) As Rectangle
  125.            Return New Rectangle(Rectangle.Left, Rectangle.Top, Rectangle.Width, Rectangle.Height)
  126.        End Operator
  127.        Public Shared Widening Operator CType(ByVal Rectangle As Rectangle) As RECT
  128.            Return New RECT(Rectangle.Left, Rectangle.Top, Rectangle.Right, Rectangle.Bottom)
  129.        End Operator
  130.        Public Shared Operator =(ByVal Rectangle1 As RECT, ByVal Rectangle2 As RECT) As Boolean
  131.            Return Rectangle1.Equals(Rectangle2)
  132.        End Operator
  133.        Public Shared Operator <>(ByVal Rectangle1 As RECT, ByVal Rectangle2 As RECT) As Boolean
  134.            Return Not Rectangle1.Equals(Rectangle2)
  135.        End Operator
  136.  
  137.        Public Overrides Function ToString() As String
  138.            Return "{Left: " & _Left & "; " & "Top: " & _Top & "; Right: " & _Right & "; Bottom: " & _Bottom & "}"
  139.        End Function
  140.  
  141.        Public Overloads Function Equals(ByVal Rectangle As RECT) As Boolean
  142.            Return Rectangle.Left = _Left AndAlso Rectangle.Top = _Top AndAlso Rectangle.Right = _Right AndAlso Rectangle.Bottom = _Bottom
  143.        End Function
  144.        Public Overloads Overrides Function Equals(ByVal [Object] As Object) As Boolean
  145.            If TypeOf [Object] Is RECT Then
  146.                Return Equals(DirectCast([Object], RECT))
  147.            ElseIf TypeOf [Object] Is Rectangle Then
  148.                Return Equals(New RECT(DirectCast([Object], Rectangle)))
  149.            End If
  150.  
  151.            Return False
  152.        End Function
  153.    End Structure
  154.  
  155. #End Region
  156.  
  157.    Public Function GetCursorPosition() As System.Drawing.Point
  158.        Dim CursorPos As New System.Drawing.Point
  159.        GetCursorPos(CursorPos)
  160.        Return CursorPos
  161.    End Function
  162.  
  163.    Public Function GetClientPosition(ByVal hWnd As IntPtr) As System.Drawing.Point
  164.        Dim ClientPos As New System.Drawing.Point
  165.        ScreenToClient(hWnd, ClientPos)
  166.        Return ClientPos
  167.    End Function
  168.  
  169.    Public Function GetClientCursorPosition(ByVal hWnd As IntPtr) As System.Drawing.Point
  170.        Dim ClientCursorPos As New System.Drawing.Point
  171.        Dim CursorPos As System.Drawing.Point = GetCursorPosition()
  172.        Dim ClientPos As System.Drawing.Point = GetClientPosition(hWnd)
  173.        ClientCursorPos = New System.Drawing.Point(CursorPos.X + ClientPos.X, CursorPos.Y + ClientPos.Y)
  174.        Return ClientCursorPos
  175.    End Function
  176.  
  177.    Public Function GetProcessHandle(ByVal ProcessName As String) As IntPtr
  178.        If ProcessName.ToLower.EndsWith(".exe") Then ProcessName = ProcessName.Substring(0, ProcessName.Length - 4)
  179.        Dim ProcessArray = Process.GetProcessesByName(ProcessName)
  180.        If ProcessArray.Length = 0 Then Return Nothing Else Return ProcessArray(0).MainWindowHandle
  181.    End Function
  182.  
  183. #End Region
  184.  
  185. End Class
  186.  


 2 
 en: Hoy a las 22:29 
Iniciado por Zorronde - Último mensaje por Zorronde
EdePC

Lo hice y AHORA, cada vez que enciendo la Pc. sale la ventana negra de CMD

¿ Como soluciono este " problemita " ?
Saludos y Gracias

 3 
 en: Hoy a las 21:03 
Iniciado por vemaex - Último mensaje por vemaex
Buenas tardes, tengo una duda con respecto a lo que me sucede al utilizar la herramienta setoolkit. Estoy haciendo pruebas con mi misma pc en mi misma red local, utilizo la ultima version de kali linux 2020.2 dentro de una maquina virtual (virtualbox).
El tema es que estoy probando el phising de la misma herramienta clonando el sitio web y usando el harvester credential method, hasta alli todo normal incluso logra clonar la pagina... el problema surge a la hora de colocar las credenciales en la pagina clonada sucede esto...




No me aparecen las credenciales en la terminal como me deberian aparecer.
Tengo entendido que tendrían que aparecer de la siguiente manera como esta imagen


pero en mi caso no aparecen.
Me gustaria saber que esta ocurriendo y cual seria la posible solución... Desde ya muchas gracias!!

 4 
 en: Hoy a las 20:46 
Iniciado por banderas20 - Último mensaje por banderas20
Hola!

he recibido un correo electrónico en cuyo asunto se lee "certificado".
Han puesto en copia una dirección de e-mail que se supone que pertenece a una entidad certificadora. No hay nada más

¿esto tiene validez de algún tipo?

He leído que autoacusan recibo y que el emisor tiene un documento del seguimiento del mail y si se ha abierto o no. ¿Es posible hacerlo así de simple? ¿Cómo funciona técnicamente?

Gracias!

 5 
 en: Hoy a las 20:08 
Iniciado por marax - Último mensaje por Eternal Idol
Aca te dejo algunas cosas pero te recomiendo buscar por tu cuenta, desde que yo me meti en esto en 2004 paso mucho tiempo ..

https://docs.microsoft.com/en-us/cpp/assembler/masm/microsoft-macro-assembler-reference?view=vs-2019

http://masm32.com/

https://web.archive.org/web/20190410222054/http://win32assembly.programminghorizon.com/tutorials.html

https://web.archive.org/web/20080303111005/http://doc.ddart.net/asm/Microsoft_MASM_Programmers_Guide_v6.1/

 6 
 en: Hoy a las 19:10 
Iniciado por mark010 - Último mensaje por mark010
Hola, es una PC gamer. Está bien refrigerada. Descargando algo el procesador se mantiene a unos 30 grados y la gráfica a unos 25.

No te parece excesivo 20 años encendido? 😂

Lo que me preocupa es que este tantas horas encendida (los colores girando, el disco trabajando, etc)

 7 
 en: Hoy a las 17:45 
Iniciado por marax - Último mensaje por marax
Eternal Idol, ¿que documentacion recomendarias para MASM?. Generalmente, algo que conozcas que lo trate con la misma profundidad que The Rootkit Arsenal a Windows...

Saludos.
Gracias por responder.

 8 
 en: Hoy a las 17:39 
Iniciado por Machacador - Último mensaje por Machacador
Chomsky es un genio xD, todo lo que Elon Musk quisiera ser como Ingeniero y como activista/político. Alguien me compartio un video uno de sus trabajos "Manufacturing Consent" y lo encontre en español por si alguien le interesa:



Buen video... dibuja perfectamente el sistema capitalista chino...

 :rolleyes: :o :rolleyes:

 9 
 en: Hoy a las 16:01 
Iniciado por Machacador - Último mensaje por MinusFour
Chomsky es un genio xD, todo lo que Elon Musk quisiera ser como Ingeniero y como activista/político. Alguien me compartio un video uno de sus trabajos "Manufacturing Consent" y lo encontre en español por si alguien le interesa:


 10 
 en: Hoy a las 13:25 
Iniciado por Machacador - Último mensaje por Machacador
Elon Musk lanza critica al comunismo: Chomsky es "un virus para tontos"

El magnate sudafricano compartió una lista titulada “7 cosas que todo niño necesita escuchar” en Twitter. Una entrada decía "El comunismo ha fallado cada vez que se intentó". Además se refirió al lingüista de izquierda Noam Chomsky cómo "un virus mental para los tontos".


El emprendedor Elon Musk, director general de SpaceX, de Tesla Motors, SolarCity, y copresidente de OpenAI, no lo dudó dos veces para expresarse sobre el comunismo y el lingüista y crítico del capitalismo Noam Chomsky en las redes sociales.

El magnate sudafricano compartió en Twitter una lista titulada “7 cosas que todo niño necesita escuchar”. Una entrada decía "El comunismo ha fallado cada vez que se intentó".

El listado completo incluye:

1- Te quiero
2- Estoy orgulloso (orgullosa) de ti
3- Lo lamento
4- Te perdono
5- Estoy escuchando
6- El comunismo falló cada vez que fue probado
7- Tienes lo que se necesita.

Además aprovechó el mensaje para dejarle una nota al lingüista favorito de la izquierda: "Nota al margen: Chomsky apesta".

De acuerdo con Musk, el psicólogo conductual Gad Saad, tuiteó que Chomsky "ha pronunciado cosas locas sobre política durante más de 5 décadas". Musk respondió con la frase "Él es un virus mental para los tontos".

Por su parte el CEO de Tesla también ironizó con el precio de mercado al que llegaron las acciones de su compañía ya que está vendiendo en su página web un par de pantalones cortos rojos de satén con la marca Tesla. "Shorts de edición limitada ahora disponibles. Corre como el viento".

¿Dónde está la diversión de dirigir la compañía automotriz más valiosa del mundo si no puedes participar en un poco de humor juvenil? El mensaje es un golpe para los inversores que “acortaron” a la empresa de autos eléctricos, esencialmente apostando a la caída de sus acciones.

El valor de mercado del fabricante de automóviles eléctricos ha aumentado casi un 25% en poco más de una semana, causando un nuevo dolor para los que especularon acortando las acciones. El fuerte desempeño de Tesla Inc. durante la pandemia ha disparado sus acciones, dando un duro golpe a los inversores que apuestan contra el fabricante de automóviles Silicon Valley. Y el presidente ejecutivo, Elon Musk, se está divirtiendo frotando sus narices.

https://adncuba.com/actualidad-internacional/estados-unidos/elon-musk-lanza-critica-al-comunismo-chomsky-es-un-virus?fbclid=IwAR1SebfZ1VcUWL9w-z1BC8Zt5T6ssT4Pj_ihJtYYWsEyd_1QqjpAePZodJQ

 
:rolleyes: :o :rolleyes:

Páginas: [1] 2 3 4 5 6 7 8 9 10
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines