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

 

 


Tema destacado: Security Series.XSS. [Cross Site Scripting]


  Mostrar Temas
Páginas: [1] 2
1  Programación / Desarrollo Web / Abrir archivos en: 4 Febrero 2016, 22:51 pm
Buenas tardes a todos.

Estoy elaborando una página en donde requiero abrir (ver) archivos que se encuentran en un directorio del disco duro. con visual basic uso una API:

Código
  1. 'Declaración de la API
  2. Declare Function Ejecuta Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  3.  
  4. 'y para abrir archivos lo hago de esta manera:
  5. Ejecuta Me.hwnd, "open", "c:\archivos\archivo.xls", "", "", 1

de esta forma puedo abrir cualquier archivo con su aplicación asociada, he buscado si con PHP o javascript existe algo similar pero no he podido hacerlo, he intentado abrir los archivos con un link:

Código
  1. <a href="file:///C:/archivos/imagen/archivo.xls">Abrir</a>

pero al parecer por el tema de la seguridad los exploradores no lo permiten.

¿Alguien sabe si es posible abrir archivos desde HTML/PHP/javascript?
2  Programación / PHP / [Resuelto] Ayuda: php+access+campo memo en: 8 Septiembre 2015, 02:06 am
Buenas tardes, recien empiezo en la programación con php y me he topado con un problema: los campos memo, mi problema es que no puedo leer el valor del campo, si leo cualquier otro campo ya sea de texto corto, fecha, número no hay problema

he buscado pero no he encontrado porque se da este comportamiento, ¿hay alguien que me pueda ayudar?

estoy usando un ODBC que se conecta a una base de datos del Access 2013. el código que tengo es el siguiente:

para conectar la BD:

Código
  1.    function conexion(){
  2.  
  3.    $conn=odbc_connect('auxAdmin','','');//DSN, usuario, password
  4.  
  5.    if (!$conn){
  6.        exit("Falló conexion: " . $conn);
  7.    }
  8.  
  9.    return($conn);
  10.  
  11.    }

Para leer los campos:

Código
  1.    // inicializa las variables
  2.    $os = "";
  3.    $cliente = "";
  4.    $agente = "";
  5.    $estatus = "";
  6.    $fecha_solicitud="";
  7.    $idOS=0;
  8.    $fecha_atencion="";
  9.    $fecha_cierre="";
  10.    $t_respuesta="";
  11.    $solicitud ="";
  12.  
  13.    //crea la conexión a la base de datos
  14.    $conn=conexion();
  15.  
  16.    if(isset($_POST["txtOS"]))
  17.    {
  18.        $folioOS = $_POST["txtOS"];
  19.  
  20.        //valida el valor a buscar
  21.        $pos = strpos($folioOS, "-");
  22.        if ($pos == false){
  23.            $folioOS ="A-0000";
  24.            echo "<script languaje= 'javascript'> alert('El folio de la OS no es válido, verifique sus datos e intente nuevamente.'); </script>";
  25.        }
  26.  
  27.        $parametros = explode ("-", $folioOS, 5);
  28.  
  29.        //Obtiene los datos de la OS
  30.        $sql = "SELECT c.ccodigoc01 AS Codigo, c.crazonso01 AS Cliente, u.ClaveAdministradorGarantia AS CodAgente, u.NombreAdministradorGarantia AS Agente,
  31.                OS.SerieOS, OS.FolioOS, e.Estatus, OS.idOS, Format(FechaRec,'dd/mm/yyyy') & ' ' & Format(HoraRec,'Short Time') AS fecha_solicitud,
  32.                Format(cierre.FechaEvento,'dd/mm/yyyy') & ' ' & Format(cierre.HoraInicio,'Short Time') AS fecha_cierre,
  33.                Format(atn.FechaEvento,'dd/mm/yyyy') & ' ' & Format(Atn.HoraInicio,'Short Time') AS fecha_atn,
  34.                left(OS.SolicitudCliente,len(trim(OS.SolicitudCliente))) as Solicitud
  35.                FROM ((((OS INNER JOIN Clientes AS c ON OS.idCliente = c.cidclien01)
  36.                INNER JOIN Usuarios2 AS u ON OS.AgenteResp = u.ClaveAdministradorGarantia)
  37.                INNER JOIN osEstatus AS e ON OS.EstatusOS = e.Id)
  38.                LEFT JOIN OSBitacora AS cierre ON (OS.idOS = cierre.idOS AND cierre.Estatus = 8))
  39.                LEFT JOIN OSBitacora AS atn ON (OS.idOS = atn.idOS AND atn.Evento = 1 AND atn.Ciclo = 1)
  40.                WHERE OS.SerieOS = '" . $parametros[0] . "'" . " AND OS.FolioOS = " . $parametros[1] . ";";
  41.        //echo $sql;
  42.  
  43.        $rs=odbc_exec($conn,$sql);
  44.  
  45.        if (!$rs){
  46.            echo "Error";
  47.            exit("Error in SQL");
  48.  
  49.        }
  50.        else
  51.        {
  52.            $os = odbc_result($rs, "SerieOS");
  53.            $os .= '-';
  54.            $os .= sprintf("%04d", odbc_result($rs, "FolioOS"));
  55.  
  56.            $cliente = odbc_result($rs,"Codigo");
  57.            $cliente .= ' - ';
  58.            $cliente .= odbc_result($rs,"Cliente");
  59.  
  60.            $agente = sprintf("%03d", odbc_result($rs, "CodAgente"));
  61.            $agente .= ' - ';
  62.            $agente .= odbc_result($rs,"Agente");
  63.  
  64.            $estatus = odbc_result($rs, "Estatus");
  65.            $idOS = odbc_result($rs, "idOS");
  66.            $fecha_solicitud = odbc_result($rs, "fecha_solicitud");
  67.  
  68.            $fecha_atencion = odbc_result($rs, "fecha_atn");
  69.            if ($fecha_atencion != " "){
  70.                $fecha_atencion .= Calcula_Tiempo_Respuesta($conn, $fecha_solicitud, $fecha_atencion);
  71.  
  72.            }
  73.            else{
  74.                $fecha_atencion = "Este servicio aún no ha sido atendido";
  75.            }
  76.  
  77.            $fecha_cierre = odbc_result($rs, "fecha_cierre");
  78.            if ($fecha_cierre != " "){
  79.                $fecha_cierre .= Calcula_Tiempo_Solucion($conn, $fecha_solicitud, $fecha_cierre);
  80.  
  81.            }
  82.            else{
  83.                $fecha_cierre = "Este servicio aún no ha sido cerrado";
  84.            }
  85.  
  86.           [color=red][font=Verdana] $solicitud = odbc_result($rs, "Solicitud");[/font][/color]
  87.  
  88.        }

el problema es la linea $solicitud = odbc_result($rs, "Solicitud"); solo me regresa el valor "1"

Mod: Obligatorio el uso de etiquetas GeSHi. Temas sobre PHP van al subforo de PHP.
3  Programación / Programación General / Ordenar hojas al imprimir en: 19 Octubre 2014, 22:43 pm
Buenas tardes a todos, estoy realizando un página HTML la cual contiene datos para ordenes de servicio, la página contiene datos de clientes, equipos y actividades de reparaciones que se realizarán, los datos son variables pueden ocupar 1 o más páginas, hasta alli todo va bién, sin embargo, al imprimir necesito que se imprima un contrato de servicio que siempre vaya en la hoja 2. ¿Alguien tiene alguna idea de como dividir la impresión en hojas como para insertar en la 2a página los datos del contrato?
4  Programación / .NET (C#, VB.NET, ASP) / Envio de correo con formato en: 26 Julio 2011, 17:55 pm
Buenos días, estoy haciendo una página web con el VS2008 en donde tengo que enviar algunos correos, la página pide algunos datos y envia correos de avisos a algunas personas del lugar donde trabajo, hasta aqui todo va bien, la duda que tengo es ¿como le doy formato al texto del correo?, es decir, como indicar la fuente y tamaño de letra, o como incluir una tabla dentro del mensaje???

si me pudieran aclara esa duda se los agradecería, el código que uso es:

Dim strDestinatario = "cuenta@decorreo.com"
Dim clienteSMTP As New System.Net.Mail.SmtpClient

clienteSMTP.Host = "ServidorSMTP"
clienteSMTP.Port = 25
clienteSMTP.Credentials = New Net.NetworkCredential("miusuario", "mipass")

Dim Correo As New System.Net.Mail.MailMessage
Correo.To.Add(strDestinatario)
Correo.From = New MailAddress("otracuenta@decorreo.com")
Correo.Subject = "mail de prueba"
Correo.Body = "texto del correo"  <--- es aqui donde quisiera defirni tipos de letra, incluir imagenes y tablas.
clienteSMTP.Send(Correo)

el servidor al que me estoy conectando trabaja con Exchange y los correos los leo en outllok 2007
5  Programación / .NET (C#, VB.NET, ASP) / Visual 2008 + SQL Server 2008 en: 19 Febrero 2009, 22:40 pm
Buenas tardes, estoy tratando de hacer una aplicación en Visual 2008 que se conecte a una base de datos del sql server 2008, pero tengo problemas

el codigo que tengo es el siguiente:
        Dim cn As Data.SqlClient.SqlConnection
        Dim ds As Data.DataSet
        Dim da As Data.SqlClient.SqlDataAdapter
        Dim Conexion As String
       
        Conexion = "data source=MSSQL1;" & _
                      "initial catalog=Laboratorio;" & _
                      "integrated security=SSPI;" & _
                      "workstation id=sa;pwd=xxx;"

        Try
            cn = New Data.SqlClient.SqlConnection(Conexion)
            cn.Open()
        Catch ex As Exception
            MessageBox.Show("Error al abrir la conexión:" & vbCrLf & ex.Message)
            Exit Sub
        End Try

hasta alli parece todo bien, el problema es que quiero antenticar con el usuario del SQL (sa), pero me marca error diciendo que el usuario con el que inicio sesión en windows no tiene permisos.


¿alguien sabe como resolver este lio?????????


de antemano gracias
6  Programación / Programación Visual Basic / Saber Nombre de PC en: 22 Octubre 2007, 19:06 pm
Buenas tardes, abusando de su conocimientos, quiesiera preguntarles si alguien sabe como obtener el nombre de una pc por medio de su dirección IP, es decir si tengo: 169.58.36.48, como saber el nombre de esa PC???
7  Programación / Programación Visual Basic / Marcación telefónica en: 4 Octubre 2007, 22:33 pm
Buenas tardes, estoy tratando de hacer una aplicación para marcar números de teléfono, encontre algo de información al respecto:
Código:
Option Explicit
Dim objComunicar

Public Sub marcarNumeroTelefono(numero As String)
  Dim cadConexion As String
  Dim resultado As Integer
  Dim modem As String
   
  On Error GoTo cError
    MousePointer = 11
  Set objComunicar = CreateObject("MSCommLib.MSComm")
 
  'Enviamos la cadena ATDT que equivale a
  'descolgar el modem y marcar el número indicado por tonos
  'ATDP por pulsos
  If opTonos.Value = True Then
    cadConexion$ = "ATDT" + numero + ";" + Chr$(13)
  End If
  If opPulsos.Value = True Then
    cadConexion$ = "ATDP" + numero + ";" + Chr$(13)
  End If
 
  'Indicaremos el puerto COM a utilizar (donde esté conectado el módem)
  objComunicar.CommPort = CInt(txtPuerto.Text)
 
  'En la configuración le indicaremos
    '300 = 300 baudios (velocidad)
    'N = sin paridad
    '8 = 8 bits de datos
    '1 = bit de parada
  objComunicar.Settings = "300,N,8,1"
   
  If Not objComunicar.PortOpen Then objComunicar.PortOpen = True
   
  'Liberamos el búfer de salida
  objComunicar.InBufferCount = 0
   
  'Enviamos los comandos AT con el número al módem
  objComunicar.Output = cadConexion$
   
  'Esperamos a recibir "OK" desde el módem
  Do
    resultado = DoEvents()
    ' Si hay datos en el Buffer los leemos
    If objComunicar.InBufferCount Then
      modem$ = modem$ + objComunicar.Input
      'Comprobamos si los datos leídos son "OK"
      If InStr(modem$, "OK") Then
        'Podemos indicar al usuario que descuelgue el teléfono
        MsgBox "Descuelge su teléfono y pulse 'Aceptar' para cerrar" _
            + " el módem. Podrá continuar la llamada en su teléfono." _
            + Chr(13) + Chr(13) + "Recuerde que si pulsa 'Aceptar' " _
            + "sin descolgar su teléfono se cortará la llamada.", _
            vbInformation + vbOKOnly
        Exit Do
      End If
    End If
  Loop
   
  'Desconectamos el módem, para ello enviamos el comando "ATH"
  objComunicar.Output = "ATH" + Chr$(13)
  'Cerramos el puerto
  objComunicar.PortOpen = False
    MousePointer = 0
cSalir:
  Exit Sub
 
cError:
  MsgBox "Error en la marcación del número de teléfono: " & _
      Err.Number & " - " & Err.Description, vbExclamation
  GoTo cSalir
End Sub


Private Sub cmdColgar_Click()
  On Error GoTo cError
  'Desconectamos el módem, para ello enviamos el comando "ATH"
  objComunicar.Output = "ATH" + Chr$(13)
 
cSalir:
  Exit Sub
 
cError:
  MsgBox "Error en la marcación del número de teléfono: " & _
      Err.Number & " - " & Err.Description, vbExclamation
  GoTo cSalir
End Sub

Private Sub cmdMarcar_Click()
    marcarNumeroTelefono txtNum.Text
End Sub

el problema que tengo, es: ¿Como le hago para que al momento de marcar tome en cuenta las reglas de marcado que estan definidas en el panel de control de windows?  :huh:
8  Programación / Programación Visual Basic / permisos de archivo en: 14 Agosto 2007, 15:04 pm
Buenos días, alguien sabra como establecer permisos a un archivo, es decir lo que intento hacer es ponerle permisos a varios usuarios sobre un archivo, algo como esto

archivo.txt
y que tenga:
usuario1 -> leer
usuario2 -> leer, Modificar
usuario3 -> leer, Modificar, Borrar
usuario4 -> Control total

se que con el "SetAttr" pongo estos atributos, pero la duda es ¿¿¿como le hago para definirselos a cada usuario????  :huh:
9  Programación / Programación Visual Basic / ScrolBar en: 20 Diciembre 2006, 18:25 pm
Buenas, alguien sabe en que control ocx vengan las scrolbars pero al estilo windows xp???
10  Programación / Programación Visual Basic / Copiar imagen en portapapeles en: 11 Diciembre 2006, 22:52 pm
buenas tardes, estoy haciendo un programa y necesito copiar una imagen desde una aplicación X a un picturebox, lo que trato de hacer es copiar la imagen en el portapales de windows y luego ponerla en mi picture, he estado buscando y me encontre con esto:
Código:
Private Const CF_TEXT = 1
Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Long, ByVal ByteLen As Long)
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim hStrPtr As Long, lLength As Long, sBuffer As String
    OpenClipboard Me.hwnd
    hStrPtr = GetClipboardData(CF_TEXT)
    If hStrPtr <> 0 Then
        lLength = lstrlen(hStrPtr)
        If lLength > 0 Then
            sBuffer = Space$(lLength)
            CopyMemory ByVal sBuffer, ByVal hStrPtr, lLength
            MsgBox sBuffer, vbInformation
        End If
    End If
    CloseClipboard
End Sub
pero este código solo pega texto y no se como hacerle para pegar una imagen, si alguien me puede echar una mano se los agradecería
Páginas: [1] 2
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines