Mensajes

Bueno, para ir al grano, tengo un iframe al que quiero ocultarle el referer (en realidad no ocultar si no engañar por asi decirlo), pero no entiendo muy bien el funcionamiento de ellos, en mi mente un iframe es algo asi como un skin, cierto?.

tengo lo siguiente:

Web con iframe -> en el iframe coloco el link de un PHP con un javascript (window.location.href) que apunta a la web que no quiero que detecte el referer.

mi duda es, si en realidad la web que se abre en el iframe detecta o no el referer real, osea o detecta el real o detecta el PHP?, lo he probado con varios sniffers y me detecta es el PHP, pero tengo un compañero programador que me dice que no, que si detecta el referer real, que no lo detecta si es simplemente un link, pero que cuando se usa iframe el PHP con javascript no logra ocultarlo y detecta el referer real, que me dicen?

hola a todos, quisiera saber como convertir texto en imagen con php, tengo un codigo y funciona bien:

Código [Seleccionar] Expandir


<?php  
if(!isset($_GET['txt']))  
{  
exit();  
}  
  
header ("Content-type: image/png");  
$string = $_GET['txt'];  
$font = 4;  
$width = ImageFontWidth($font) * strlen($string);  
$height = ImageFontHeight($font);  
  
$im = @imagecreate ($width,$height);  
$background_color = imagecolorallocate ($im, 255, 255, 255); //white background  
$text_color = imagecolorallocate ($im, 0, 0,0);//black text  
imagestring ($im, $font, 0, 0, $string, $text_color);  
imagepng ($im);  
?>


El problema es que este codigo no hace saltos de linea, quisiera por ejemplo que al enviar un texto tome de limite de ancho 600px y al toparse con ese limite haga un salto de linea y asi en todo el texto

hola a todos, pues veran he estado tratando de entender como armar una expresion regular en vb.net pero no consigo un sitio que me explique detalladamente que hace cada simbolo, solo encuentro ejemplos de como hacer esto o lo otro pero nada de verdad que explique bien las cosas.

Por ejemplo para capturar una url en un texto se usa

(ftp|http|https):\/\/(\w+:{0,1}\w*@)?(\S+)(:[0-9]+)?(\/|\/([\w#!:.?+=&%@!\-\/]))?

el cual funciona muy bien, pero si alguien pudiera explicarme un poco como logran llegar a eso se los agradeceria muchisimo...

en estos momentos estoy buscando una expresion regular que me devuelva un texto hasta encontrarce con un "[" ó "(" ó "-"

hola quisiera saber como puedo eliminar una palabra que aparece despues de una frase, por ejemplo:

"Mi perro se fue de paseo y no ha vuelto a casa"

defino la frase inicial, supongamos que la frase inicial seria: "mi perro se fue de", y quisiera eliminar la siguiente palabra a esa frase que seria "paseo", y me quedaria asi:

"mi perro se fue de y no ha vuelto a casa"

La palabra paseo puede variar asi que un simple replace no me sirve

Prueba así, este no pide el salt:

Código (vbnet) [Seleccionar] Expandir

    #Region " AES Decrypt "
     
       ' [ AES Decrypt Function ]
       '
       ' Examples :
       ' MsgBox(AES_Decrypt("cv/vYwpl51/dxbxSMNSPSg==", "Test_Password")) ' Result: Test_Text
     
       Public Function AES_Decrypt(ByVal input As String, ByVal pass As String) As String
           Dim AES As New System.Security.Cryptography.RijndaelManaged
           Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
           Dim decrypted As String = ""
           Try
               Dim hash(31) As Byte
               Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))
               Array.Copy(temp, 0, hash, 0, 16)
               Array.Copy(temp, 0, hash, 15, 16)
               AES.Key = hash
               AES.Mode = Security.Cryptography.CipherMode.ECB
               Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateDecryptor
               Dim Buffer As Byte() = Convert.FromBase64String(input)
               decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
               Return decrypted
           Catch ex As Exception
               Return Nothing
           End Try
       End Function
     
    #End Region


...Aquí el encriptador, y más snippets: Librería de Snippets !! (Posteen aquí sus snippets)

gracias por tu respuesta, ese ya lo probe tambien me dice "El relleno entre caracteres no es válido y no se puede quitar."

el error sucede aqui:

Código [Seleccionar] Expandir

decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))

ese es el mismo error que lanza el otro codigo, si quieres probar puedes usar esto para probar:

Código [Seleccionar] Expandir


Dim codigo As String = "U2FsdGVkX1/2yL/ez3xEXU4zKH4azlVQ+kPUI4qyG0wZQnwtE9/SKHMeTZRHFy1+R5+we5jxYvrD8O2OfBYJTw=="

Dim key As String = "9c8b1724a3a293207d87c7c24e1733b4"

TextBox2.Text = AES_Decrypt(codigo, key)


Debe devolverte una URL, si me podrias ayudar te lo agradeceria muchisimo...

hola a todos, quisiera que me ayudaran a descifrar AES en vb.net, lo he logrado hacer en PHP pero en vb.net ademas de pedirme el codigo a descifrar, y la key, me pide un salt (cosa que PHP parece que genera automaticamente), la key que tiene el texto que quiero descifrar es de 32 carapteres, aqui muestro un codigo que uso pero que siempre me lanza error y es por el salt:

Código [Seleccionar] Expandir


Public Function Decrypt(ByVal encryptedBytes As String, ByVal secretKey As String) As String
        Dim plainText As String = Nothing
        Using inputStream As MemoryStream = New MemoryStream(Convert.FromBase64String(encryptedBytes))
            Dim algorithm As RijndaelManaged = getAlgorithm(secretKey)
            Using cryptoStream As CryptoStream = New CryptoStream(inputStream, algorithm.CreateDecryptor(), CryptoStreamMode.Read)
                Dim outputBuffer(0 To CType(inputStream.Length - 1, Integer)) As Byte
                Dim readBytes As Integer = cryptoStream.Read(outputBuffer, 0, CType(inputStream.Length, Integer))
                plainText = Encoding.Unicode.GetString(outputBuffer, 0, readBytes)
            End Using
        End Using
        Return plainText
    End Function

    Private Function getAlgorithm(ByVal secretKey As String) As RijndaelManaged
        Const salt As String = "aqui el salt"
        Const keySize As Integer = 256

        Dim keyBuilder As Rfc2898DeriveBytes = New Rfc2898DeriveBytes(secretKey, Encoding.Unicode.GetBytes(salt))
        Dim algorithm As RijndaelManaged = New RijndaelManaged()
        algorithm.KeySize = keySize
        algorithm.IV = keyBuilder.GetBytes(CType(algorithm.BlockSize / 8, Integer))
        algorithm.Key = keyBuilder.GetBytes(CType(algorithm.KeySize / 8, Integer))
        algorithm.Padding = PaddingMode.PKCS7
        Return algorithm
    End Function


increiblemente, no consigo un codigo que desencripte el texto que tengo, cuando hasta una web online lo desencipta solo con el texto y la key, espero me puedan ayudar, gracias

[expresiones regulares]

Disculpa si me equivoco pero por tu comentario me parece que desconoces una cosa muy importante de la programación, es la forma más idonea de hacerlo y compatible con el 99% de lenguajes,
Son las expresiones regulares:

http://en.wikipedia.org/wiki/Regular_expression
http://msdn.microsoft.com/en-us/library/system.text.regularexpressions.regex%28v=vs.110%29.aspx

Código (vbnet) [Seleccionar] Expandir

       Dim str As String = "hola a todos <inicio>bienvenidos[fin] adios"
       Dim [RegEx] As New System.Text.RegularExpressions.Regex("<inicio>(.*)\[fin\]")
       MsgBox([RegEx].Match(str).Groups(1).ToString)
       ' Result: "bienvenidos"


EDITO:
Los RegEx te sirven para cualquier circunstancia, no recomiendo usar otra forma como por ejemplo replaces o splits o funciones de VB6 como "InStr, Left, Split", pero si quieres algo de eso puedes hacer esto otro:

Código (vbnet) [Seleccionar] Expandir

       Dim str As String = "hola a todos <inicio>bienvenidos[fin] adios"
       Dim delimiter1 As String = "<inicio>", delimiter2 As String = "[fin]"
       MsgBox(Split(Split(str, delimiter1)(1), delimiter2)(0))

Saludos

Muchas gracias por tu ayuda, si las conozco pero se me hace un poco confuso usar las expresiones regulares, en realidad los delimitadores son "<div class="lo que sea">" y "</div>" de un codigo html, quisiera sacar el contenido de ese div pero no se como colocar las expresiones en vb.net

hola a todos, esto es algo que me parece muy simple pero que vb.net como que lo hace dificil o complicado, ya intente con ubound y lbound pero no logre hacer lo que quiero, lo que deseo es lo siguiente, supongamos que tengo este texto en un textbox:

hola a todos <inicio>bienvenidos[fin] adios

lo que quiero obtener es "bienvenidos", cabe mencionar que el texto "bienvenidos" siempre va a variar, lo unico que siempre sera igual son los delimitadores <inicio> y [fin], saludos y gracias por su ayuda

[EDITO:]

Creo que esto es lo que quiero según tus indicaciones:

Código (vbnet) [Seleccionar] Expandir

       Dim STR As String = "bienvenidos todos a mi nueva casa de color verde"
       Dim Delimitador_A As String = "todos"
       Dim Delimitador_B As String = "verde"

       STR = Split(STR, Delimitador_A, , CompareMethod.Text)(1) '  Aquí tomo todo lo que hay a la derecha del primer delimitador
       STR = Split(STR, Delimitador_B, , CompareMethod.Text)(0) ' Aquí tomo todo lo que hay a la izquierda del segundo delimitador

       MsgBox(STR) ' a mi nueva casa de color

Saludos!



EDITO:

Te lo voy a poner más fácil:

Código (vbnet) [Seleccionar] Expandir

#Region " Delimit_String Function "

    ' // By Elektro H@ker
    '
    ' USAGE:
    '
    ' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "todos")) ' a mi nueva casa de color verde
    ' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "todos", "verde")) ' a mi nueva casa de color
    ' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "ToDoS", "VeRDe", True)) ' a mi nueva casa de color
    ' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "ToDoS", "VeRDe", False)) ' False
    ' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "verde", "todos", , "Left")) ' a mi nueva casa de color

    Private Function Delimit_String(ByVal STR As String, ByVal Delimiter_A As String, Optional ByVal Delimiter_B As String = Nothing, Optional ByVal Ignore_Case As Boolean = False, Optional ByVal Left_Or_Right As String = "Right")
        Dim Compare_Method As Integer = 0 ' Don't ignore case
        If Ignore_Case = True Then Compare_Method = 1 ' Ignore Case

        If Not Left_Or_Right.ToUpper = "LEFT" And Not Left_Or_Right.ToUpper = "RIGHT" Then Return False ' Returns false if the Left_Or_Right argument is in incorrect format

        Try
            If Left_Or_Right.ToUpper = "RIGHT" Then STR = Split(STR, Delimiter_A, , Compare_Method)(1) _
                Else If Left_Or_Right.ToUpper = "LEFT" Then STR = Split(STR, Delimiter_A, , Compare_Method)(0)

            If Delimiter_B IsNot Nothing Then
                If Left_Or_Right.ToUpper = "RIGHT" Then STR = Split(STR, Delimiter_B, , Compare_Method)(0) _
                 Else If Left_Or_Right.ToUpper = "LEFT" Then STR = Split(STR, Delimiter_B, , Compare_Method)(1)
            End If

            Return STR ' Returns the splitted string

        Catch
            Return False ' Returns false if the delimiter "A" or "B" can't be found (Index is out or fange)
        End Try
    End Function

#End Region

uff me quedo con la primera opción, muchas gracias me funciono saludos

si amigo, lo que no me entendiste es que necesito como identificador la palabra no el espacio donde esta, para dejarlo mas claro, supongamos que tengo el siguiente texto:

"bienvenidos todos a mi nueva casa de color verde"

y solo quiero extraer el texto que esta entre "todos" y "color" me quedaría

" a mi nueva casa de "

nose si me explique bien, saludos