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 Mensajes
Páginas: 1 ... 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 [872] 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 ... 1254
8711  Programación / Scripting / Re: ejecutar un bat en segundo plano en: 18 Julio 2013, 01:31 am
@sysfactory

1. No se reviven temas de hace 5 años para formular una pregunta, crea un nuevo post.

2. Debes hacerlo en la sección correcta, VB.NET no es un lenguaje de Scripting.

3. Al postear un código debes usar el tag para insertar código.

Puedes usar la Class Process para reemplazar a la función Shell:
Código
  1. Process.Start("Exe", "Argumentos")

Cierro el tema,
Saludos.
8712  Programación / .NET (C#, VB.NET, ASP) / Re: Sacar el color del Pixel que se ha pulsado con VB.NET en: 17 Julio 2013, 23:57 pm
Hola buenas, es posible lo que intento hacer o es una locura?

Se puede hacer -> [SOURCE] Color.NET Autor: EleKtro H@cker



Código
  1. #Region " Get Pixel Color "
  2.  
  3.    ' [ Get Pixel Color Function ]
  4.    '
  5.    ' // By Elektro H@cker
  6.    '
  7.    ' Examples :
  8.    '
  9.    ' Dim RGB As Color = Get_Pixel_Color(MousePosition.X, MousePosition.Y, ColorType.RGB)
  10.    ' MsgBox(Get_Pixel_Color(100, 100, ColorType.RGB).ToString)
  11.    ' MsgBox(Get_Pixel_Color(100, 100, ColorType.HEX))
  12.    ' MsgBox(Get_Pixel_Color(100, 100, ColorType.HTML))
  13.  
  14.    <System.Runtime.InteropServices.DllImport("user32.dll")> Shared Function GetDC(hwnd As IntPtr) As IntPtr
  15.    End Function
  16.  
  17.    <System.Runtime.InteropServices.DllImport("user32.dll")> Shared Function ReleaseDC(hwnd As IntPtr, hdc As IntPtr) As Int32
  18.    End Function
  19.  
  20.    <System.Runtime.InteropServices.DllImport("gdi32.dll")> Shared Function GetPixel(hdc As IntPtr, nXPos As Integer, nYPos As Integer) As UInteger
  21.    End Function
  22.  
  23.    Public Enum ColorType
  24.        RGB
  25.        HEX
  26.        HTML
  27.    End Enum
  28.  
  29.    Public Function Get_Pixel_Color(ByVal x As Int32, ByVal y As Int32, ByVal ColorType As ColorType)
  30.  
  31.        Dim hdc As IntPtr = GetDC(IntPtr.Zero)
  32.        Dim pixel As UInteger = GetPixel(hdc, x, y)
  33.        ReleaseDC(IntPtr.Zero, hdc)
  34.  
  35.        Dim RGB As Color = Color.FromArgb(CType((pixel And &HFF), Integer), CType((pixel And &HFF00), Integer) >> 8, CType((pixel And &HFF0000), Integer) >> 16)
  36.        Dim R As Int16 = RGB.R, G As Int16 = RGB.G, B As Int16 = RGB.B
  37.        Dim HEX_R As String, HEX_G As String, HEX_B As String
  38.  
  39.        Select Case ColorType
  40.            Case ColorType.RGB : Return RGB
  41.            Case ColorType.HEX
  42.                If Hex(R) = Hex(0) Then HEX_R = "00" Else HEX_R = Hex(R)
  43.                If Hex(G) = Hex(0) Then HEX_G = "00" Else HEX_G = Hex(G)
  44.                If Hex(B) = Hex(0) Then HEX_B = "00" Else HEX_B = Hex(B)
  45.                Return (HEX_R & HEX_G & HEX_B)
  46.            Case ColorType.HTML : Return ColorTranslator.ToHtml(RGB)
  47.            Case Else : Return Nothing
  48.        End Select
  49.  
  50.    End Function
  51.  
  52. #End Region
8713  Programación / .NET (C#, VB.NET, ASP) / Re: Como puedo hacer que al cerrar una ventana un textbox se guarde solo en: 17 Julio 2013, 21:15 pm
Por "ventana" imagino que te refieres al formulario.

Código
  1. Public Class Form1
  2.  
  3.    Private Sub Form1_Load(sender As Object, e As EventArgs) _
  4.    Handles MyBase.Load
  5.  
  6.        TextBox1.Text = My.Settings.Texto
  7.  
  8.    End Sub
  9.  
  10.    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) _
  11.    Handles MyBase.FormClosing
  12.  
  13.        My.Settings.Texto = TextBox1.Text
  14.  
  15.    End Sub
  16.  
  17. End Class

1 - Crear un textbox y llámalo "Textbox1"

2 - Crear una propiedad en las "Settings" de tu proyecto, de tipo "String" y "User", y llámala "Texto".

3 - Googlear en caso de no saber seguir el paso 2.

Saludos
8714  Programación / Scripting / Re: [BATCH] Problema con diccionario en: 17 Julio 2013, 21:06 pm
@zikotik
Si además muestras el output en la CMD, la rapidez disminuye x2, te lo digo por experiencia, no hagas esto en Batch.

Saludos
8715  Programación / Scripting / Re: [BATCH] Problema con diccionario en: 17 Julio 2013, 04:47 am
Intenté tanto con ^ como con ^^ y nada.

Lo que te dije funciona para mostrar el caracter conflictivo "!" cuando la expansión de variables está activada como lo está en el código que has mostrado:

Código
  1. setlocal enabledelayedexpansion
  2. Echo ^^!

...Óbviamente es un ejemplo que debes adaptar al resto de tu código.





Yo diréctamente te diría que los temas complicados y donde se maneja mucho texto lo tratases en cualquier otro lenguaje que no sea Batch, pero  si reálmente estás dispuesto a hacerlo sólo en Batch y si además quieres incluir los caracteres conflictivos "!" "?" pues entonces el code no va a poder quedar tán perfecto ni simplificado como deseas.

De todas formas no necesitas usar enabledelayedexpansion en el código.

Código
  1. @echo off
  2. title Diccionario
  3.  
  4. set "chars=a b c d e f g h i j k l m n o p q r s t u w w x y z 0 1 2 3 4 5 6 7 8 9 ! ."
  5. set /A "ini=0"
  6. set /A "wor=0"
  7.  
  8. set /p lenght=Lenght:
  9.  
  10. call :generar
  11.  
  12. pause&exit
  13.  
  14.  
  15. :generar
  16. set /a "wor+=1"
  17. title Palabra "%wor%"
  18. if %ini% neq %lenght% (
  19. set /a "ini+=1"
  20. for %%c in (%chars%) do (call :generar %~1%%c)
  21. set /a "ini-=1"
  22. ) else (
  23. echo.%1
  24. echo.%1>>"diccionario_%lenght%.txt"
  25. )
  26. goto:eof


Aquí tienes una alternativa funcional para mostrar los dos caracteres:

Código
  1. @echo off
  2. title Diccionario
  3.  
  4. rem set "chars=a b c d e f g h i j k l m n o p q r s t u w w x y z 0 1 2 3 4 5 6 7 8 9 ! ? ."
  5. set /A "ini=0"
  6. set /A "wor=0"
  7.  
  8. (
  9. Echo bla bla bla
  10. Echo bla bla bla
  11. )>"%TEMP%\chars.txt"
  12.  
  13. set /p lenght=Lenght:
  14.  
  15. call :generar
  16.  
  17. pause&exit
  18.  
  19.  
  20. :generar
  21. set /a "wor+=1"
  22. title Palabra "%wor%"
  23. if %ini% neq %lenght% (
  24. set /a "ini+=1"
  25. for /F %%c in ('type "%TEMP%\chars.txt"') do (call :generar %~1%%c)
  26. set /a "ini-=1"
  27. ) else (
  28. echo.%1
  29. echo.%1>>"diccionario_%lenght%.txt"
  30. )
  31. goto:eof


Tampoco me voy a esmerar mucho más tratándose de Batch y sus limitaciones.

Saludos!
8716  Programación / .NET (C#, VB.NET, ASP) / Re: Como insertar fecha en la que abrí por ultima vez un form(no la fecha actual) C# en: 17 Julio 2013, 04:00 am
1. Justo después de un logueo escribes la fecha de ese preciso momento donde quieras (archivo de texto, registro de windows, setting de la aplicación...)
(Esa será la fecha del último login.)

2. Al loguearte de nuevo, lees el valor desde el lugar donde lo guardaste, lo muestras.

3. En el próximo logueo repetir el paso 1 y 2, y así sucesivamente en cada logueo...

Tán sencillo como eso,
un saludo.
8717  Programación / Scripting / Re: [BATCH] Problema con diccionario en: 17 Julio 2013, 03:55 am
Escapa:

Código
  1. Echo ^^!

Saludos
8718  Media / Multimedia / Re: cambiar propiedades de audio mp3 en: 15 Julio 2013, 21:40 pm
"velocidad de muestra de sonido" y "velocidad de transmisión

Es decir, el "Sampling rate" y el "Bitrate".

Pues necesitas recodificar el archivo MP3, puedes hacerlo con cualquier conversor de Audio, te recomiendo dBPoweramp.



Saludos
8719  Programación / .NET (C#, VB.NET, ASP) / Re: Como hacer que al escrinbir en un textbox en otro salga otro texto en: 15 Julio 2013, 21:32 pm
Ya pero el probrlema esque al compilar me da eror esa palabra justamente ...
Y donde pongo la palabra que tiene que cambiar y a la que tiene que cambiar?

No es una palabra, es un objeto. Si de verdad estás interesado en esto debes estudiar para dejar de ver las cosas como "palabras" sueltas.

Te da error de compilación porque no has declarado ninguna variable que se llame "Server"  (y que contenga la función "HtmlEncode") .

PD: Anda que tu también Ikillnukes, darle códigos así a alguien que está empezando para liarle aún más...

Código
  1. Public Class Form1
  2.  
  3.    Dim Server As System.Web.HttpUtility
  4.  
  5.    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  6.        MsgBox(Server.HtmlEncode("<b> Hello World! </b>"))
  7.    End Sub
  8.  
  9. End Class
  10.  

@Alexperto
Ikillnukes te ha dado lo que necesitas, pero óbviamente sólo es un ejemplo de uso para que tu lo adaptes a tu código.
...Es muy fácil hacer lo que necesitas, si no te lo damos hecho es porque con una Googleada ya sabrías resolverlo.

Un saludo!
8720  Programación / Scripting / Re: Problema en script para cifrar [Python] en: 15 Julio 2013, 15:35 pm
Estás reemplazando el caracter en todo el texto.

Tenemos la palabra "hello", y lo que hace tu script es esto:
 - Replace "h" por "l" en todo el texto, resultado: "lello"
Ahí se puede ver cláramente que al llegar a las otras dos "ll" va a haber un conflicto porque también vas a reemplazar la primera "l".

Solución: No hagas diréctamente las modificaciones sobre el argumento "text", o usa replace para reemplazar un caracter en X posición del texto, pero no el caracter en el texto entero.

Código
  1. def crypt(text,x):
  2.    abc = "abcdefghijklmnopqrstuvwxyz"
  3.    newtext = ""
  4.    for i in range (0,len(text.lower())):
  5.        n = abc.find(text[i])
  6.        if n<0:
  7.            newtext = newtext + text[i]
  8.        if n>=0:
  9.         newtext = newtext + abc[(n+x)%len(abc)]
  10.    return newtext.upper()

Saludos
Páginas: 1 ... 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 [872] 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 ... 1254
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines