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

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


  Mostrar Temas
Páginas: [1] 2
1  Programación / PHP / equivalencia de odbc_result_all en: 1 Mayo 2008, 22:23 pm
Alguien sabe si hay alguna equivalencia de odbc_result_all para el mysql?  :huh:
2  Programación / PHP / Calculador de la Formula General en: 5 Marzo 2008, 07:34 am
Código
  1. <?php
  2. # ActiveSheet
  3. # Calculador de Formula general
  4. # http://hackmexico.com/
  5. # Hack México
  6. function fgnrl($a,$b,$c){
  7. $p = Sqrt((pow($b,2))+((-4)*($a)*($c)));
  8. $x1 = (-$b) + $p;
  9. $x2 = (-$b) - $p;
  10. $x1=($x1/(2*$a));
  11. $x2=($x2/(2*$a));
  12. return "X1 es igual a $x1 y X2 es igual a $x2";
  13. }
  14.  
  15. # ejemplo
  16. echo fgnrl(1,15,50);
  17. ?>

Ojala les sirba xD
3  Programación / PHP / Que rayos es el inode de un archivo? en: 27 Febrero 2008, 02:51 am
Pff que ondas, una duda, como ahorita estoy programando una Shell en PHP xD mi primer projecto profesinal a segun

queria preguntarles que es el inode de un archivo 

esto lo encontre aqui xD

http://www.php.net/manual/es/function.stat.php
4  Programación / PHP / Como saber si un numero es par o impar? en: 17 Febrero 2008, 03:13 am
alguien sabe como se puede averiguar si un numero es par o impar por medio de PHP?

 :laugh: :laugh: :laugh: :laugh:
5  Foros Generales / Sugerencias y dudas sobre el Foro / Sugiero foro nevo. en: 17 Enero 2008, 07:41 am
Hola buenas tardes dias noches lo que ustedes  tengan.

Quisiera sugerir un foro de Defacing...

jajajaja

No, es en serio ¬¬
6  Programación / Programación Visual Basic / Mandato Print en: 29 Diciembre 2007, 07:15 am
Es rutina es para comprender un poco de como utilizar el mandato print de una forma muy peculiar ;)

'Rutina que da formato a la salida del mandato Print
Private Sub Form_Paint()
Dim mensaje As String, pos As Long, PosEspacio As Long
mensaje = "Utilizará con frecuencia los métodos TextWidth y TextHeight" _
& "para ver si un mensaje cabe dentro  de un área determinada." _
& vbCrLf & "Esto es especialmente necesario cuando" _
& "imprima en un formulario, porque el método Print no" _
& "se ocupa automáticamente de dividir las líneas largas, y" _
& "será usted mismo quien tenga que resolver este problema" _
& "utilizando líneas de código."

Cls
Do While pos < Len(mensaje)
    pos = pos + 1
If Mid$(mensaje, pos, 2) = vbCrLf Then
    ' Un par de CR-LF imprime la cadena mas allá
    ' y redefine las variables.

    Print Left$(mensaje, pos - 1)
    mensaje = LTrim$(Mid$(mensaje, pos + 2))
    pos = 0
    PosEspacio = 0
    ElseIf Mid$(mensaje, pos, 1) = " " Then
    ' Si este es un espacio, recuerda su posición.
    PosEspacio = pos
    End If
'verifica la anchura del mensaje.
If TextWidth(Left$(mensaje, pos)) > ScaleWidth Then
    ' El mensaje es demasiado largo, hay que dividirlo.
    ' Si se localiza un espacio, divídelo aquí.

    If PosEspacio Then pos = PosEspacio
    ' Imprime el mensaje hasta el puno de división.
    Print Left$(mensaje, pos - 1)
    ' Descartar caracteres impresos, y volver a definir las variables.
    mensaje = LTrim$(Mid$(mensaje, pos))
    pos = 0: PosEspacio = 0
End If
   
Loop
' Imprime los caracteres restantes, si es que hay alguno.
If Len(mensaje) Then Print mensaje
End Sub
Private Sub Form_Resize()
Refresh
End Sub

7  Programación / Programación Visual Basic / Ciclo de vida de un formulario en: 29 Diciembre 2007, 07:11 am
Sin mas Preámbulo.

Iniciamos

Initialize >
Se hace referencia en el código al objeto Form.
Visual Basic asigna el valor inicial a las variables de formulario.

Load >
Se hace referencia a las propedades o controles de Form.
Visual Basic crea la ventana y sus controles hijos.

Resize >
El Formulario es visible.
También ocurre cuano se modifica el tamaño del Formulario

Activate >
El formulario está preparado para aceptar la entrada del usuario.
También ocurre cuando el foco pasa a otro Formulario y vuelve al Formulario actual.

                        Deactivate >
                        El usuario final activa otro formulario contenido en la misma aplicación.

Paint >
Visual Basic solicita que el formulario se actualice a sí mismo la primera
vez que se muestre y cuando otra ventana lo cubra y luego vueva a mostrarse.
Se pone en marcha únicamente si la propiedad AutoRedraw tiene el valor False.

Query Unload >
Visual Basic pregunta a la aplicación si está preparada para descargar ahora el Formulario.

Unload >
Visual Basic está preparado para descargar ahora al Formulario.
Es la última oportunidad para cancelar la operación.

Tarminate >
Visual Basic está preparado para liberar la memoria utilizada por el Formulario y volver a definir las variables.

FIN.....

8  Programación / Programación Visual Basic / Quitar seguridad de Word en: 25 Agosto 2007, 06:50 am
hola, como hago para que con una aplicacion tire la seguridad del word 2007

intente esto pero no sirve por que crea un nuevo instancia y no del tipo D_WORD

Código
  1. System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Word\Security", "secu") = 1&

jejeje le puse secu para que no me borrara la instancia pero de todos modos como le hago para que cree una de  ese tipo?
D_WORD
9  Programación / .NET (C#, VB.NET, ASP) / {RUTINA} Arrastrar Controles VB 2008 en: 22 Agosto 2007, 08:27 am
Esta rutina es para arrastrar y redimenzionar contrles en tiempo de ejecucion
para el VB 2008

para redimenzionar con el boton derecho

Código
  1. Friend Class MoverControles
  2.    Inherits System.Windows.Forms.Form
  3.  
  4.    Private DX, DY As Integer
  5.    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer) As Integer
  6.    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
  7.    Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, _
  8.    ByVal X As Integer, ByVal Y As Integer, ByVal cX As Integer, ByVal cY As Integer, ByVal wFlags As Integer) As Integer
  9.  
  10.    Const GWL_STYLE As Integer = (-16)
  11.    Const WS_THICKFRAME As Integer = &H40000
  12.    Const SWP_DRAWFRAME As Integer = &H20
  13.    Const SWP_NOMOVE As Integer = &H2
  14.    Const SWP_NOSIZE As Integer = &H1
  15.    Const SWP_NOZORDER As Integer = &H4
  16.    Private Sub Form_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
  17.        AsignarEventos(Me)
  18.  
  19.    End Sub
  20.    Private Sub Control_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
  21.        DX = e.X
  22.        DY = e.Y
  23.        If e.Button = MouseButtons.Right Then
  24.            CambiarEstilo(CType(sender, Control))
  25.        Else
  26.            CType(sender, Control).BringToFront()
  27.        End If
  28.    End Sub
  29.    Private Sub Control_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
  30.        If e.Button = MouseButtons.Left Then
  31.            CType(sender, Control).Left = e.X + CType(sender, Control).Left - DX
  32.            CType(sender, Control).Top = e.Y + CType(sender, Control).Top - DY
  33.        End If
  34.    End Sub
  35.    Private Sub AsignarEventos(ByVal elControl As Control)
  36.        Dim ctrl As Control
  37.        For Each ctrl In elControl.Controls
  38.            If ctrl.Name <> "cmdAlgo" And ctrl.Name <> "txtControl1" And ctrl.Name <> "txtControl1" Then ' aqui vaz agregando los controles que quieres estaticos y no redimensionables
  39.                AddHandler ctrl.MouseDown, AddressOf Me.Control_MouseDown
  40.                AddHandler ctrl.MouseMove, AddressOf Me.Control_MouseMove
  41.                AsignarEventos(ctrl)
  42.            End If
  43.        Next
  44.    End Sub
  45.    Private Sub CambiarEstilo(ByVal aControl As Control)
  46.        Dim Style As Integer
  47.        Try
  48.            Style = GetWindowLong(aControl.Handle.ToInt32, GWL_STYLE)
  49.            If (Style And WS_THICKFRAME) = WS_THICKFRAME Then
  50.                Style = Style Xor WS_THICKFRAME
  51.            Else
  52.                Style = Style Or WS_THICKFRAME
  53.            End If
  54.            SetWindowLong(aControl.Handle.ToInt32, GWL_STYLE, Style)
  55.            SetWindowPos(aControl.Handle.ToInt32, Me.Handle.ToInt32, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME)
  56.        Catch
  57.        End Try
  58.    End Sub
  59. End Class
10  Programación / Programación Visual Basic / que le quito? en: 12 Agosto 2007, 06:17 am
veran yo omito la parte del hackeo y me adentro a la programacion, pero ahora me
surgio la controversia de que es lo que se le quita para que no te detecten por medio de
 tu exe

que la mac se queda impresa en el?
que le quito?
y por que selo quito?

Páginas: [1] 2
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines