Test Foro de elhacker.net SMF 2.1

Tema repetido:
http://foro.elhacker.net/sugerencias_y_dudas_sobre_el_foro/este_usuario_esta_autorizado_a_hacer_publicidad-t286825.0.html

el usuario ya fue baneado.

claro, cuando inslaes el programa lanzas un bat u otro programa que sea la setup y ejecute los comandos para registrar las dlls o los ocx.

ah super, es una buena alternativa.

ahora... como obtienes los argumentos cuando lo llamas desde la consola? :p , porque cuando inicia:
Private Sub Form_Load()
Call AllocConsole                        ' Creamos la consola
StdOut = GetStdHandle(STD_OUTPUT_HANDLE) ' Handle de Salida
StdIn = GetStdHandle(STD_INPUT_HANDLE)   ' Handle de Entrada
Call SubConsole
End Sub

solo obtiene los buffers de entrada y salida pero no hay argumentos   aunque de todas se pueden obtener llamando las funciones necesarias desde la librería nativa del kernel de windows.

en visual basic 6 no puedes ya que solo crea aplicaciones GUI.
en vb8 puedes usar colores con Console.BackgroundColor o Console.ForegroundColor aunque esto te cambia el color completo tal como lo hace el comando "color".

Para crear menus y esas cosas no lo se porque en c++ se utiliza la librería conio.h pero no se si habrá alguna adaptación para vb.net

Ahora, encontré un pequeño ejemplo googleando:

ConsoleColor.vb
Option
Explicit On
Option Strict On

Imports System.Runtime.InteropServices
Imports Win32.Kernel32.ConsoleColor

Namespace Win32.Kernel32

  Class ConsoleColor

      Public Enum ForegroundColors
        Black = 0
        Blue = 1
        Green = 2
        Cyan = Blue Or Green
        Red = 4
        Magenta = Blue Or Red
        Yellow = Green Or Red
        White = Blue Or Green Or Red
        Gray = 8
        LightBlue = Gray Or Blue
        LightGreen = Gray Or Green
        LightCyan = Gray Or Cyan
        LightRed = Gray Or Red
        LightMagenta = Gray Or Magenta
        LightYellow = Gray Or Yellow
        BrightWhite = Gray Or White
      End Enum

     
Public Enum BackgroundColors
        Black = 0
        Blue = 16
        Green = 32
        Cyan = Blue Or Green
        Red = 64
        Magenta = Blue Or Red
        Yellow = Green Or Red
        White = Blue Or Green Or Red
        Gray = 128
        LightBlue = Gray Or Blue
        LightGreen = Gray Or Green
        LightCyan = Gray Or Cyan
        LightRed = Gray Or Red
        LightMagenta = Gray Or Magenta
        LightYellow = Gray Or Yellow
        BrightWhite = Gray Or White
    End Enum

    Public Enum Attributes
        None = &H0
        GridHorizontal = &H400
        GridLVertical = &H800
        GridRVertical = &H1000
        ReverseVideo = &H4000
        Underscore = &H8000
    End Enum

   Private Const STD_OUTPUT_HANDLE As Integer = -11
   Private Shared InvalidHandleValue As New IntPtr(-1)

   Private Sub New()
     ' This class can not be instantiated.
   End Sub

   ' Our wrapper implementations.
   Public Overloads Shared Sub SetConsoleColor(ByVal foreground As ForegroundColors)
      SetConsoleColor(foreground, BackgroundColors.Black, Attributes.None)
   End Sub

   Public Overloads Shared Sub SetConsoleColor(ByVal foreground As ForegroundColors, _
                                                                                        ByVal background As BackgroundColors)
      SetConsoleColor(foreground, background, Attributes.None)
   End Sub

   Public Overloads Shared Sub SetConsoleColor(ByVal foreground As ForegroundColors, _
                                                                                         ByVal background As BackgroundColors, _
                                                                                        ByVal attribute As Attributes)
     Dim handle As IntPtr = GetStdHandle(STD_OUTPUT_HANDLE)
     If handle.Equals(InvalidHandleValue) Then
       Throw New System.ComponentModel.Win32Exception()
     End If
      ' We have to convert the integer flag values into a Unsigned Short (UInt16) to pass to the
      ' SetConsoleTextAttribute API call.
     Dim value As UInt16 = System.Convert.ToUInt16(foreground Or background Or attribute)
     If Not SetConsoleTextAttribute(handle, value) Then
       Throw New System.ComponentModel.Win32Exception()
     End If
   End Sub

    ' DLLImport's (Win32 functions)
   True)> _
   Private Shared Function GetStdHandle(ByVal stdHandle As Integer) As IntPtr
   End Function

   True)> _
   Private Shared Function SetConsoleTextAttribute(ByVal consoleOutput As IntPtr, _
    ByVal Attributes As UInt16) As Boolean
   End Function

  End Class

End
Namespace

ConsoleColorTest.vb
Option
Explicit On
Option Strict On

Imports Win32.Kernel32.ConsoleColor

Module ConsoleColorTest
  Sub Main()

    Dim bgcolor As BackgroundColors
    Dim fgcolor As ForegroundColors

    ' Show every variation of the color combinations.
    For Each bgcolor In [Enum].GetValues(GetType(BackgroundColors))
      For Each fgcolor In [Enum].GetValues(GetType(ForegroundColors))
        SetConsoleColor(fgcolor, bgcolor)
        Console.WriteLine(bgcolor.ToString.PadRight(15) & fgcolor.ToString.PadRight(64))
      Next
    Next

    ' Set the color back to the default.
    SetConsoleColor(ForegroundColors.White, BackgroundColors.Black)

    ' Wait for input, so we can view the results.
    Console.ReadLine()
  End Sub
End Module

Fuente: http://addressof.com/blog/articles/227.aspx

Saludos.

un sistema windows solo puede ejecutar aplicaciones de visual basic si este trae instalado o e instalas las rutinas de vb6:
http://www.microsoft.com/downloads/details.aspx?familyid=7B9BA261-7A9C-43E7-9117-F673077FFB3C&displaylang=es

además las ocx deben ser registradas con regsvr32:
regsvr32.exe "archivo.ocx"

y ojala que puedas dejarlas en system32 porque si registras una ocx que ya está registrada por otro programa entonces cuando lo desintales el otro programa dará problemas porque no encontrará tu ocx.

En windows vista y 7 recuerda que debes registrar las ocx como administrador.

Con esas dos cosas ya debería funcionar bien la aplicación.

Para empaquetar yo uso winrar con la opción de crear archivos sfx y le pones un ícono de setup.

intentalo así:
<?php
include("function.php");
include("getdata.php");
include("connect.php");

if(isset($_GET['usuario'])){
 if($query = mysql_query("
  SELECT * FROM prueba 
  WHERE usuario='".mysql_real_escape_string($_GET['usuario'])."'
  LIMIT 1
 ")){
  $usuario = mysql_fetch_array($query, MYSQL_ASSOC);
  if(is_array($usuario[0])){
   $usuario = $usuario[0];
  }
  echo '
   Bienvenid@
    <b>'.htmlspecialchars($usuario['usuario'], ENT_QUOTES).'</b>
   <br />
  ';
 }else{
  echo 'El usuario seleccionado no existe';
 }
}else{
 echo 'No se ha seleccionado ningun usuario.'; 
}
?>

recuerda que  mysql_fetch_array() te entrega un array dimensional por cada resultado, por lo tantoo el primer valor es $usuario[0].
prueba con un print_r($usuario);

Donde dice:
if(!preg_match('/[^0-9\-\_\.]+/i',$_POST['firstname']))
no necesitas ser tan restrictivo, puedes mantener todo tipo de carácteres si sabes procesarlos bién.

saludos.

realmente faltaría hacer todo el script denuevo

Citarif(!isset($_GET['usuario'])){
echo 'No se ha seleccionado ningun usuario.';
}else{


$query=mysql_query("SELECT * FROM prueba WHERE usuario=$usuario ");

donde está definido $usuario? no habrás querido decir $_GET['usuario'] ?

Cita de: Nakp en  5 Marzo 2010, 19:27 PM
el problema esta en modificarperfil.php, en estas lineas

Código (php,13,14) [Seleccionar] Expandir

<?php
 
include("function.php");
include("getdata.php");
include("connect.php"); //incluimos el connect.php que contiene los datos de la conexión a la db y la sesión
 
if(!isset($_GET['usuario'])){
echo 'No se ha seleccionado ningun usuario.'; 
}else{
 
 
$query=mysql_query("SELECT * FROM prueba WHERE usuario=$usuario ");
if(mysql_num_rows($usuario)>0){
$query=mysql_fetch_array($usuario);
 
//todo comprobado, ahora solo falta mostrar los datos
echo 'Bienvenid@ <b>'.$usuario[usuario].'</b><br>';
 
 
}else{
 
echo 'El usuario seleccionado no existe';
}
}
?>

pero hace referencia a getdata.php porque ahi es donde se define el argumento que se le esta pasando a mysql_fetch_array(), el cual no es un "resultset"

en getdata.php no hay funciones xD esas estan en function.php, igual le faltan las comillas simples al rededor de $usuario

---

ahora que lo veo, si se refiere a eso xD hahahaha estoy hablando de errores posteriores

if(mysql_num_rows($usuario)>0){
$query=mysql_fetch_array($usuario);
estas dos funciones dan errores porque el resultado de la query es vacia porque mysql_query falló y no da error o warning, para eso se usa mysql_error()

super!, lo agregué al post de recopilaciones
https://foro.elhacker.net/nivel_web/temas_mas_destacados_fallas_y_explotaciones_a_nivel_web_actualizado_6310-t244090.0.html

the multithreads in visual basic 6 is native:

pseudocode:
while 10 {
load winsock(i) // when i is number of loop. the socket is a index.
}

while 10 {
connect winsock(i)
}

event connect winsock(id){
send data
}