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 ... 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 [889] 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 ... 1236
8881  Programación / .NET (C#, VB.NET, ASP) / Re: Problema en Visual Basic -Net (Al remplazar una palabra) en: 9 Junio 2013, 19:16 pm
Cita de: Akise en  9 Junio 2013, 15:27 pm
De momento me quedaré con el código ''largo''

A = q
B = w

a = &q
b = &w


1. ¿Eres consciente de que si usas 2 caracteres entonces mi código requiere de ciertas modificaciones, verdad?, deberías recorrer el string en bloques de 2 caracteres,
...Pero si además para las letras mayúsculas vas a usar 1 caracter (A = q) y para las minusculas 2 (a = &q), entonces no puedes recorrer el string ni por caracteres de "1" longitud ni de "2", a menos que ese caracter especial (&) lo dejes sin cifrar.

2. Creo que estás intentando reinventar la rueda sin saberlo, porque si estás siguiendo un orden en concreto "qwerty...blablabla" entonces lo que estás haciendo es una especie de variante del método "Caesar", y entonces diréctamente puedes usar el código "corto": http://crypo.in.ua/tools/eng_caesar.php

3. Si te fijas bien en mi código "largo" los caracteres son todos aleatórios, si quieres seguir un orden en concreto mejor no lo uses, hay cosas más fáciles xD.

Salu2
8882  Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Posteen aquí sus snippets) en: 9 Junio 2013, 18:59 pm
Resalta en colores la sintaxis de un script.
(Lo convierte a código HTML)

http://colorcode.codeplex.com/releases/view/103657



Código
  1. #Region " [ColorCode] Color Code "
  2.  
  3.     ' [ColorCode] Color Code
  4.     '
  5.     ' // By Elektro H@cker
  6.     '
  7.     ' Instructions:
  8.     ' 1. Add a reference to ColorCode.dll
  9.     '
  10.     ' Examples:
  11.     ' HtmlTextBox1.Text = Color_Code(IO.File.ReadAllText("c:\Code.vb"), ColorCode.Languages.VbDotNet)
  12.     ' HtmlTextbox1.Text = Color_Code(IO.File.ReadAllText("c:\Code.cs"), ColorCode.Languages.CSharp)
  13.  
  14.     Private Function Color_Code(ByVal Code As String, ByVal Language As ColorCode.ILanguage) As String
  15.         Return New ColorCode.CodeColorizer().Colorize(Code, Language)
  16.     End Function
  17.  
  18. #End Region



Randomizar el contenido de un Array de tipo String:

Código
  1. #Region " Randomize String Array "
  2.  
  3.     ' [ Randomize String Array Function ]
  4.     '
  5.     ' Examples :
  6.     ' Dim MyArray As Array = Randomize_String_Array({"a", "b", "c", "d", "e"}) ' Result: {"d", "a", "c", "e", "b"}
  7.  
  8.     Dim Array_randomizer As New Random
  9.  
  10.     Private Function Randomize_String_Array(ByVal array() As String) As Array
  11.         Return array.OrderBy(Function() Array_randomizer.Next).ToArray
  12.     End Function
  13.  
  14. #End Region



Randomizar el contenido de cualquier tipo de Array:

Código
  1. #Region " Randomize Array "
  2.  
  3.     ' [ Randomize Array ]
  4.     '
  5.     ' Examples :
  6.     ' Dim strarray() As String = {"a", "b", "3"}
  7.     ' Dim IntArray As Array = {1, 2, 3}
  8.     ' Randomize_Array(strarray)
  9.     ' Randomize_Array(IntArray)
  10.  
  11.     Dim Array_Randomizer As New Random
  12.  
  13.     Public Sub Randomize_Array(ByVal array As Array)
  14.  
  15.         For i As Int64 = array.Length To 1 Step -1
  16.             Dim j As Int64 = Array_Randomizer.Next(i)
  17.             Dim tmp As Object = array(j)
  18.             array(j) = array(i - 1)
  19.             array(i - 1) = tmp
  20.         Next
  21.  
  22.     End Sub
  23.  
  24. #End Region



Une el contenido de un Array de cualquier tipo
(hace unos días posteé un código parecido, pero solo funcionaba para arrays de string)

Código
  1. #Region " Join Array "
  2.  
  3.     ' [ Join Array Function ]
  4.     '
  5.     ' Examples :
  6.     '
  7.     ' Dim StrArray() As String = {"a", "b", "c"} ' String array
  8.     ' Dim IntArray As Array = {1, 2, 3}          ' Integer array
  9.     ' MsgBox(Join_Array(StrArray, " "))          ' Result: a b c
  10.     ' MsgBox(Join_Array(IntArray, " "))          ' Result: 1 2 3
  11.  
  12.     Private Function Join_Array(ByVal array As Array, ByVal Separator As String)
  13.         Return String.Join(Separator, array.Cast(Of Object).Select(Function(x) x.ToString))
  14.     End Function
  15.  
  16. #End Region



cifrar-descifrar un string de manera selectiva (usando los caracteres que nos de la gana, por eso el código es así de largo)

Código
  1. #Region " Encrypt-Decrypt String Selective "
  2.  
  3.     ' [ Encrypt-Decrypt String Selective Function ]
  4.     '
  5.     ' // By Elektro H@cker
  6.     '
  7.     ' Examples :
  8.     '
  9.     ' MsgBox(Encrypt_Text("Hello world"))           ' Result: à`336 L6ë3m
  10.     ' MsgBox(Decrypt_Text("à`336 L6ë3m"))           ' Result: Hello world
  11.     ' MsgBox(Encrypt_Text("¡ Hello world !", True)) ' Result: = <ÁÍÍÀ cÀ,Í3 Ï
  12.     ' MsgBox(Decrypt_Text("= <ÁÍÍÀ cÀ,Í3 Ï", True)) ' Result: ¡ Hello world !
  13.  
  14.     Public Shared Function Encrypt_Text(ByVal str As String, _
  15.                                         Optional ByVal Include_Special_Characters As Boolean = False) As String
  16.  
  17.         Dim Temp_String As String = String.Empty
  18.         Dim Replacement_Found As Boolean = False
  19.  
  20.         Static Characters As Char()
  21.         Static Replacements As Char()
  22.  
  23.         If Include_Special_Characters Then
  24.             Characters = "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789áéíóúÁÉÍÓÚàèìòùÀÈÌÒÙäëïöüÄËÏÖÜçǺª<>¡!¿?()[]{}/\|·.:;,-+=_~¬^'`´¨*$%&€#@""".ToCharArray
  25.             Replacements = {"h", "ó", "Ó", "3", "Á", "è", "A", "^", "ö", "~", "O", "Í", "€", "q", "ú", "À", "Ç", "È", ",", "ì", "i", "ï", "ò", "c", "0", "ñ", "4", "l", "Ü", "ª", "¬", "S", "&", "?", "<", ":", "T", "*", "e", ".", "R", "É", "D", "7", "9", "Ú", "n", "¿", "L", "m", "¨", "Ë", "]", "Ä", "Q", "w", "V", "'", "G", "K", "é", "v", "ù", "}", "P", "E", "X", "+", "í", "´", "$", "{", "_", "Ñ", "u", "ë", "H", "g", "d", "x", "8", "/", "ä", "#", "|", "-", "1", "M", "Ò", "o", ")", "N", "Y", "á", "Ù", "Ì", "%", "ç", """", "a", "=", "Ï", "z", "Ö", ">", ";", "2", "6", "B", "y", "b", "`", "s", "5", "t", "[", "(", "à", "ü", "!", "¡", "f", "W", "k", "r", "U", "J", "·", "Z", "F", "C", "º", "I", "@", "p", "j"}
  26.         Else
  27.             Characters = _
  28.             "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789áéíóúÁÉÍÓÚàèìòùÀÈÌÒÙäëïöüÄËÏÖÜçǺª¡¿·¬`´¨€".ToCharArray
  29.             ' Removed chars for better improvement in code encryptation: = & + - ^ " % ' < > ( ) { } . $ [ ] ; @ ! ? ~ : / \ | * # , _
  30.  
  31.             Replacements = _
  32.             {"u", "Ñ", "T", "m", "`", "P", "Ç", "Z", "h", "x", "á", "3", "¬", "R", "ª", "6", "ò", "N", "ë", "Ì", "g", "ö", "I", "L", "a", "À", "·", "V", "5", "Ë", "Ù", "´", "Ö", "J", "à", "¡", "n", "4", "È", "j", "ç", "b", "c", "y", "E", "ù", "Ó", "f", "º", "Q", "q", "G", "e", "B", "0", "€", "9", "o", "ì", "O", "8", "¿", "r", "v", "ó", "2", "Ï", "1", "¨", "i", "Á", "D", "t", "Í", "k", "Ú", "C", "ñ", "Ä", "S", "A", "é", "7", "Ü", "K", "z", "í", "è", "Y", "ü", "F", "s", "p", "X", "U", "Ò", "l", "É", "ú", "d", "ï", "M", "W", "H", "ä", "w"}
  33.             '  a,   b,   c,   d,   e,   f,   g,   h,   i,   j,   k,   l,   m,   n,   ñ,   o,   p,   q,   r,   s,   t,   u,   v,   w,   x,   y,   z,   A,   B,   C,   D,   E,   F,   G,   H,   I,   J,   K,   L,   M,   N,   Ñ,   O,   P,   Q,   R,   S,   T,   U,   V,   W,   X,   Y,   Z,   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,   á,   é,   í,   ó,   ú,   Á,   É,   Í,   Ó,   Ú,   à,   è,   ì,   ò,   ù,   À,   È,   Ì,   Ò,   Ù,   ä,   ë,   ï,   ö,   ü,   Ä,   Ë,   Ï,   Ö,   Ü,   ç,   Ç,   º,   ª,   ¡,   ¿,   ·,   ¬,   `,   ´,   ¨,   €
  34.         End If
  35.  
  36.         For Each character As Char In str
  37.  
  38.             For x As Int32 = 0 To Characters.Length - 1
  39.  
  40.                 If character = Characters(x) Then
  41.                     Replacement_Found = True
  42.                     Temp_String &= Replacements(x)
  43.                     Exit For
  44.                 End If
  45.  
  46.             Next
  47.  
  48.             If Not Replacement_Found Then Temp_String &= character Else Replacement_Found = False
  49.             Application.DoEvents()
  50.  
  51.         Next
  52.  
  53.         Return Temp_String
  54.  
  55.     End Function
  56.  
  57.     Public Shared Function Decrypt_Text(ByVal str As String, _
  58.                                         Optional ByVal Include_Special_Characters As Boolean = False) As String
  59.  
  60.         Dim Temp_String As String = String.Empty
  61.         Dim Replacement_Found As Boolean = False
  62.  
  63.         Static Characters As Char()
  64.         Static Replacements As Char()
  65.  
  66.         If Include_Special_Characters Then
  67.             Characters = {"h", "ó", "Ó", "3", "Á", "è", "A", "^", "ö", "~", "O", "Í", "€", "q", "ú", "À", "Ç", "È", ",", "ì", "i", "ï", "ò", "c", "0", "ñ", "4", "l", "Ü", "ª", "¬", "S", "&", "?", "<", ":", "T", "*", "e", ".", "R", "É", "D", "7", "9", "Ú", "n", "¿", "L", "m", "¨", "Ë", "]", "Ä", "Q", "w", "V", "'", "G", "K", "é", "v", "ù", "}", "P", "E", "X", "+", "í", "´", "$", "{", "_", "Ñ", "u", "ë", "H", "g", "d", "x", "8", "/", "ä", "#", "|", "-", "1", "M", "Ò", "o", ")", "N", "Y", "á", "Ù", "Ì", "%", "ç", """", "a", "=", "Ï", "z", "Ö", ">", ";", "2", "6", "B", "y", "b", "`", "s", "5", "t", "[", "(", "à", "ü", "!", "¡", "f", "W", "k", "r", "U", "J", "·", "Z", "F", "C", "º", "I", "@", "p", "j"}
  68.             Replacements = "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789áéíóúÁÉÍÓÚàèìòùÀÈÌÒÙäëïöüÄËÏÖÜçǺª<>¡!¿?()[]{}/\|·.:;,-+=_~¬^'`´¨*$%&€#@""".ToCharArray
  69.         Else
  70.             Characters = _
  71.             {"u", "Ñ", "T", "m", "`", "P", "Ç", "Z", "h", "x", "á", "3", "¬", "R", "ª", "6", "ò", "N", "ë", "Ì", "g", "ö", "I", "L", "a", "À", "·", "V", "5", "Ë", "Ù", "´", "Ö", "J", "à", "¡", "n", "4", "È", "j", "ç", "b", "c", "y", "E", "ù", "Ó", "f", "º", "Q", "q", "G", "e", "B", "0", "€", "9", "o", "ì", "O", "8", "¿", "r", "v", "ó", "2", "Ï", "1", "¨", "i", "Á", "D", "t", "Í", "k", "Ú", "C", "ñ", "Ä", "S", "A", "é", "7", "Ü", "K", "z", "í", "è", "Y", "ü", "F", "s", "p", "X", "U", "Ò", "l", "É", "ú", "d", "ï", "M", "W", "H", "ä", "w"}
  72.             '  a,   b,   c,   d,   e,   f,   g,   h,   i,   j,   k,   l,   m,   n,   ñ,   o,   p,   q,   r,   s,   t,   u,   v,   w,   x,   y,   z,   A,   B,   C,   D,   E,   F,   G,   H,   I,   J,   K,   L,   M,   N,   Ñ,   O,   P,   Q,   R,   S,   T,   U,   V,   W,   X,   Y,   Z,   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,   á,   é,   í,   ó,   ú,   Á,   É,   Í,   Ó,   Ú,   à,   è,   ì,   ò,   ù,   À,   È,   Ì,   Ò,   Ù,   ä,   ë,   ï,   ö,   ü,   Ä,   Ë,   Ï,   Ö,   Ü,   ç,   Ç,   º,   ª,   ¡,   ¿,   ·,   ¬,   `,   ´,   ¨,   €
  73.  
  74.             Replacements = _
  75.              "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789áéíóúÁÉÍÓÚàèìòùÀÈÌÒÙäëïöüÄËÏÖÜçǺª¡¿·¬`´¨€".ToCharArray
  76.             ' Removed chars for better improvement in code encryptation: = & + - ^ " % ' < > ( ) { } . $ [ ] ; @ ! ? ~ : / \ | * # , _
  77.         End If
  78.  
  79.         For Each character As Char In str
  80.  
  81.             For x As Int32 = 0 To Characters.Length - 1
  82.  
  83.                 If character = Characters(x) Then
  84.                     Replacement_Found = True
  85.                     Temp_String &= Replacements(x)
  86.                     Exit For
  87.                 End If
  88.  
  89.             Next
  90.  
  91.             If Not Replacement_Found Then Temp_String &= character Else Replacement_Found = False
  92.             Application.DoEvents()
  93.  
  94.         Next
  95.  
  96.         Return Temp_String
  97.  
  98.     End Function
  99.  
  100. #End Region
8883  Programación / Programación General / Re: ¿Como escapar un CDATA en un XML? en: 9 Junio 2013, 14:05 pm
Ya lo pude solucionar (bueno, más bien me lo solucionaron):

Código
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  3.   <CodeSnippet Format="1.0.0">
  4.     <Header>
  5.       <SnippetTypes>
  6.         <SnippetType>Expansion</SnippetType>
  7.       </SnippetTypes>
  8.       <Title>
  9.          Regex match htm html
  10.       </Title>
  11.       <Author>Elektro H@cker</Author>
  12.       <Description>
  13.          Expresión regular para encontrar urls.htm
  14.       </Description>
  15.       <HelpUrl>
  16.       </HelpUrl>
  17.       <Shortcut>
  18.       </Shortcut>
  19.     </Header>
  20.     <Snippet>
  21.       <Declarations>
  22.         <Literal Editable="true">
  23.           <ID>aaaaaaaaa</ID>
  24.           <ToolTip>sfsdf</ToolTip>
  25.           <Default>
  26.           </Default>
  27.           <Function>sdfsdf</Function>
  28.         </Literal>
  29.         <Literal Editable="false">
  30.           <ID>cdataend</ID>
  31.           <ToolTip>Part of the CDATA end tag.</ToolTip>
  32.           <Default>&gt;</Default>
  33.         </Literal>
  34.       </Declarations>
  35.       <Code Language="vb"><![CDATA[
  36.  
  37. #Region " RegEx Match htm-html "
  38.  
  39.     ' [ RegEx Match htm-html Function ]
  40.     '
  41.     ' // By Elektro H@cker
  42.     '
  43.     ' Examples :
  44.     ' Dim str As String = <a><![CDATA[href="http://www.mp3crank.com/the-rolling-stones/deluxe-edition.htm"]]$cdataend$</a>.Value
  45.     ' MsgBox(RegEx_Match_htm_html(str)) ' Result: http://www.mp3crank.com/the-rolling-stones/deluxe-edition.htm
  46.  
  47.     Private Function RegEx_Match_htm_html(ByVal str As String, Optional ByVal Group As Int32 = 0) As String
  48.  
  49.         ' Match criteria:
  50.         '
  51.         ' http://text.htm
  52.         ' http://text.html
  53.         ' https://text.htm
  54.         ' https://text.html
  55.         ' www.text.htm
  56.         ' www.text.html
  57.  
  58.         Dim RegEx As New System.Text.RegularExpressions.Regex( _
  59.         <a><![CDATA[(http://|https://|www).*\.html?]]$cdataend$</a>.Value)
  60.  
  61.         Return RegEx.Match(Str).Groups(Group).ToString
  62.  
  63.     End Function
  64.  
  65. #End Region
  66.  
  67. ]]></Code>
  68.     </Snippet>
  69.   </CodeSnippet>
  70. </CodeSnippets>

Saludos
8884  Programación / Programación General / [Resuelto] ¿Como escapar un CDATA en un XML? en: 9 Junio 2013, 12:04 pm
Necesito ayuda con este xml para escapar el CDATA de la variable del RegEx (No quiero usar comillas dobles porque en otros códigos no puedo hacerlo),
no sé nada de XML y estoy perdido, muy perdido, no sé si esto tiene solución, ¿Que puedo hacer?:

Código
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  3.   <CodeSnippet Format="1.0.0">
  4.     <Header>
  5.       <SnippetTypes>
  6.         <SnippetType>Expansion</SnippetType>
  7.       </SnippetTypes>
  8.       <Title>
  9.          Regex match htm html
  10.       </Title>
  11.       <Author>Elektro H@cker</Author>
  12.       <Description>
  13.          Expresión regular para encontrar urls.htm
  14.       </Description>
  15.       <HelpUrl>
  16.       </HelpUrl>
  17.       <Shortcut>
  18.       </Shortcut>
  19.     </Header>
  20.     <Snippet>
  21.       <Declarations>
  22.         <Literal Editable="true">
  23.           <ID>aaaaaaaaa</ID>
  24.           <ToolTip>sfsdf</ToolTip>
  25.           <Default>
  26.           </Default>
  27.           <Function>sdfsdf</Function>
  28.         </Literal>
  29.       </Declarations>
  30.       <Code Language="vb"><![CDATA[
  31.  
  32.  
  33.  
  34.  
  35.  
  36.         Dim RegEx As New System.Text.RegularExpressions.Regex( _
  37.         <a><![CDATA[(http://|https://|www).*\.html?]]></a>.Value)
  38.  
  39.  
  40.  
  41.  
  42.  
  43. ]]></Code>
  44.     </Snippet>
  45.   </CodeSnippet>
  46. </CodeSnippets>


Según esto al final del comentario a mi no me ha quedado muy claro si hay algún "trick" para mezclar los CDATA y que funcione :S : http://stackoverflow.com/questions/223652/is-there-a-way-to-escape-a-cdata-end-token-in-xml

...¿Alguna ayuda?
8885  Seguridad Informática / Hacking / Re: Instalar un programa previamente configurado en: 9 Junio 2013, 09:59 am
Hola

Lo primero, no hagas duplicados, porfavor.

Cita de: EleKtro H@cker en  7 Junio 2013, 17:14 pm
Tu pregunta no tiene nada que ver con Batch, sinó con el instalador.

Hay varios tipos de instaladores, al igual que varios tipos de móviles y varios tipos de sistemas operativos,
debes informarte con cual InstallBuilder ha sido creado ese installer, y luego buscar sus opciones desatendidas (Silent switches).

EDITO:

Además, en caso de ser un WindowsInstaller (MSI), se pueden programar de muchas maneras, se puede nombrar cada opción (paquete) como al programador del instalador le haya dado la gana nombrarlos, solo vas a saber como se llaman buscando en Google para visitar la documentación de soporte del fabricante, y leer, o usando el editor de MSI Orca para saber los nombres de los atributos y las "opciones" de ese installer,
reálmente lo que estás pidiendo es lo mismo que pedir que te lea el futuro un adivino, porque es imposible saberlo sin que des los datos necesarios.

Si se trata de un MSI y es un instalador de algún programa conocido, segúramente la información que necesites ya está por los rincones de Google.

...El archivo bat sería algo así:
Código:
@Echo off
Instalador-InnoSetup.exe /silent
Instalador-WindowsInstaller.msi /qn /norestart INSTALLDIR="C:\Ruta" ADDLOCAL=Nombre-de-paquete-a-instalar
Pause&Exit

Saludos.






Cita de: overrider en  5 Junio 2013, 17:28 pm
Por poner un ejemplo, que al instalar un Office se instale el word pero no el excel.

Poder, se puede, pero Batch no es la manera ni te va a ayudar en nada para realizar esa tarea.

Los productos de Microsoft son los más dificiles a la hora de instalarlos de forma desatendida, pues tienen un sin fin de componentes para instalar, son dificiles en el sentido de que hay que saber o entenderse con el lenguaje XML, y que primero hay que informarse sobre los parámetros de ese instalador en específico, y configurarlo, porque para hacer una instalación desatendida de un producto de Microsoft se requiere crear un archivo de configuración escrito en XML, de esta manera:

http://technet.microsoft.com/en-us/library/dd630736.aspx

Pero tienes la suerte de que para Office existe la aplicación "OCT" que te lo hará todo el trabajo que he comentado casi de forma automática y sin esfuerzo: http://technet.microsoft.com/en-us/library/cc179097.aspx

Saludos.
8886  Programación / .NET (C#, VB.NET, ASP) / Re: Una pregunta sobre IO.Directory.GetFiles en: 9 Junio 2013, 09:07 am
A pesar de la bonita Class de _katze_ (por cierto, gracias), y después de mucho buscar la manera más óptima ...al final me quedo con esta función:

Código
  1. Private Function Get_Files(ByVal Path As String, ParamArray exts() As String) As List(Of IO.FileInfo)
  2.     Return New IO.DirectoryInfo(Path).GetFiles.Where(Function(o) exts.Contains(o.Extension)).ToList
  3. End Function

Código
  1. For Each file In Get_Files("C:\Windows", {".dll", ".ini"}) : MsgBox(file.Name) : Next

Más sencillo y eficaz creo que sería imposible!

Lo malo es que no se me ocurre como hacer para que la función me permita buscar de manera recursiva,
me gustaría poder implementar la recursividad en esa función, preservando su maravillosa sencillez, elegancia y eficacia, es decir...que no quiero llenar la función de Fors para hacer largos recorridos en los subdirectorios estropeando la performance de la función.

¿Alguien tiene idea de que modificaciones necesita la función para hacerla recursiva?
8887  Programación / .NET (C#, VB.NET, ASP) / Re: Problema en Visual Basic -Net (Al remplazar una palabra) en: 9 Junio 2013, 07:30 am
@XResh
La verdad es que no quería comentar nada acerca de "Mid" para no molestarte y para no desviar el tema, pero me he fijado en tu insistencia sobre la función Mid y lo cierto es que no me gusta ver que se promueva el uso de Mid cuando estamos en .NET,
Lo digo porque "Mid" al igual que "left" "right" son funciones de VisualBasic 6 (usables en .NET), ...¿pero para que usarlas si tenemos clases y métodos de todo tipo que son obviamente mucho más rápidos y eficaces que los de VB6?

Un saludo!


@Akise
Se puede apreciar cláramente que en tu código quieres definir tus própios caracteres cifrados (O al menos eso ha dado a entender), de ahí mi código algo largo, pero si prefieres algo reálmente corto puedes usar esto:

Código
  1. #Region " Encrypt-Decrypt String "
  2.  
  3.     ' [ Encrypt-Decrypt String Function ]
  4.     '
  5.     ' // By Elektro H@cker
  6.     '
  7.     ' Examples :
  8.     '
  9.     ' MsgBox(Encrypt_Decrypt_String("Test")) ' Result: «šŒ‹
  10.     ' MsgBox(Encrypt_Decrypt_String("«šŒ‹")) ' Result: Hello
  11.  
  12.     Public Function Encrypt_Decrypt_String(ByVal Input As String) As String
  13.  
  14.         Dim Output As String = String.Empty
  15.  
  16.         For Each Ch As Char In Input
  17.             Output &= Asc(Ch)
  18.             ' Application.DoEvents()
  19.         Next
  20.  
  21.         Return Output
  22.  
  23.     End Function
  24.  
  25. #End Region

EDITO:
Si prefieres la versión larga donde puedes definir perféctamente los caracteres que tu quieras, aquí tienes:

Código
  1. #Region " Encrypt-Decrypt Text "
  2.  
  3.     ' [ Encrypt-Decrypt Text Function ]
  4.     '
  5.     ' // By Elektro H@cker
  6.     '
  7.     ' Examples :
  8.     '
  9.     ' MsgBox(Encrypt_Text("Hello world"))           ' Result: à`336 L6ë3m
  10.     ' MsgBox(Decrypt_Text("à`336 L6ë3m"))           ' Result: Hello world
  11.     ' MsgBox(Encrypt_Text("¡ Hello world !", True)) ' Result: = <ÁÍÍÀ cÀ,Í3 Ï
  12.     ' MsgBox(Decrypt_Text("= <ÁÍÍÀ cÀ,Í3 Ï", True)) ' Result: ¡ Hello world !
  13.  
  14.     Public Shared Function Encrypt_Text(ByVal str As String, _
  15.                                         Optional ByVal Include_Special_Characters As Boolean = False) As String
  16.  
  17.         Static Characters As Char()
  18.         Static Replacements As Char()
  19.  
  20.         If Include_Special_Characters Then
  21.             Characters = "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789áéíóúÁÉÍÓÚàèìòùÀÈÌÒÙäëïöüÄËÏÖÜçǺª<>¡!¿?()[]{}/\|·.:;,-+=_~¬^'`´¨*$%&€#@""".ToCharArray
  22.             Replacements = {"h", "ó", "Ó", "3", "Á", "è", "A", "^", "ö", "~", "O", "Í", "€", "q", "ú", "À", "Ç", "È", ",", "ì", "i", "ï", "ò", "c", "0", "ñ", "4", "l", "Ü", "ª", "¬", "S", "&", "?", "<", ":", "T", "*", "e", ".", "R", "É", "D", "7", "9", "Ú", "n", "¿", "L", "m", "¨", "Ë", "]", "Ä", "Q", "w", "V", "'", "G", "K", "é", "v", "ù", "}", "P", "E", "X", "+", "í", "´", "$", "{", "_", "Ñ", "u", "ë", "H", "g", "d", "x", "8", "/", "ä", "#", "|", "-", "1", "M", "Ò", "o", ")", "N", "Y", "á", "Ù", "Ì", "%", "ç", """", "a", "=", "Ï", "z", "Ö", ">", ";", "2", "6", "B", "y", "b", "`", "s", "5", "t", "[", "(", "à", "ü", "!", "¡", "f", "W", "k", "r", "U", "J", "·", "Z", "F", "C", "º", "I", "@", "p", "j"}
  23.         Else
  24.             Characters = _
  25.             "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789áéíóúÁÉÍÓÚàèìòùÀÈÌÒÙäëïöüÄËÏÖÜçǺª¡¿·¬`´¨€".ToCharArray
  26.             ' Removed chars for better improvement in code encryptation: = & + - ^ " % ' < > ( ) { } . $ [ ] ; @ ! ? ~ : / \ | * # , _
  27.  
  28.             Replacements = _
  29.             {"u", "Ñ", "T", "m", "`", "P", "Ç", "Z", "h", "x", "á", "3", "¬", "R", "ª", "6", "ò", "N", "ë", "Ì", "g", "ö", "I", "L", "a", "À", "·", "V", "5", "Ë", "Ù", "´", "Ö", "J", "à", "¡", "n", "4", "È", "j", "ç", "b", "c", "y", "E", "ù", "Ó", "f", "º", "Q", "q", "G", "e", "B", "0", "€", "9", "o", "ì", "O", "8", "¿", "r", "v", "ó", "2", "Ï", "1", "¨", "i", "Á", "D", "t", "Í", "k", "Ú", "C", "ñ", "Ä", "S", "A", "é", "7", "Ü", "K", "z", "í", "è", "Y", "ü", "F", "s", "p", "X", "U", "Ò", "l", "É", "ú", "d", "ï", "M", "W", "H", "ä", "w"}
  30.             '  a,   b,   c,   d,   e,   f,   g,   h,   i,   j,   k,   l,   m,   n,   ñ,   o,   p,   q,   r,   s,   t,   u,   v,   w,   x,   y,   z,   A,   B,   C,   D,   E,   F,   G,   H,   I,   J,   K,   L,   M,   N,   Ñ,   O,   P,   Q,   R,   S,   T,   U,   V,   W,   X,   Y,   Z,   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,   á,   é,   í,   ó,   ú,   Á,   É,   Í,   Ó,   Ú,   à,   è,   ì,   ò,   ù,   À,   È,   Ì,   Ò,   Ù,   ä,   ë,   ï,   ö,   ü,   Ä,   Ë,   Ï,   Ö,   Ü,   ç,   Ç,   º,   ª,   ¡,   ¿,   ·,   ¬,   `,   ´,   ¨,   €
  31.         End If
  32.  
  33.  
  34.         Dim Temp_String As String = String.Empty
  35.         Dim Replacement_Found As Boolean = False
  36.  
  37.         For Each character As Char In str
  38.  
  39.             For x As Int32 = 0 To Characters.Length - 1
  40.  
  41.                 If character = Characters(x) Then
  42.                     Replacement_Found = True
  43.                     Temp_String &= Replacements(x)
  44.                     Exit For
  45.                 End If
  46.  
  47.             Next
  48.  
  49.             If Not Replacement_Found Then Temp_String &= character Else Replacement_Found = False
  50.             Application.DoEvents()
  51.  
  52.         Next
  53.  
  54.         Return Temp_String
  55.  
  56.     End Function
  57.  
  58.     Public Shared Function Decrypt_Text(ByVal str As String, _
  59.                                         Optional ByVal Include_Special_Characters As Boolean = False) As String
  60.  
  61.         Static Characters As Char()
  62.         Static Replacements As Char()
  63.  
  64.         If Include_Special_Characters Then
  65.             Characters = {"h", "ó", "Ó", "3", "Á", "è", "A", "^", "ö", "~", "O", "Í", "€", "q", "ú", "À", "Ç", "È", ",", "ì", "i", "ï", "ò", "c", "0", "ñ", "4", "l", "Ü", "ª", "¬", "S", "&", "?", "<", ":", "T", "*", "e", ".", "R", "É", "D", "7", "9", "Ú", "n", "¿", "L", "m", "¨", "Ë", "]", "Ä", "Q", "w", "V", "'", "G", "K", "é", "v", "ù", "}", "P", "E", "X", "+", "í", "´", "$", "{", "_", "Ñ", "u", "ë", "H", "g", "d", "x", "8", "/", "ä", "#", "|", "-", "1", "M", "Ò", "o", ")", "N", "Y", "á", "Ù", "Ì", "%", "ç", """", "a", "=", "Ï", "z", "Ö", ">", ";", "2", "6", "B", "y", "b", "`", "s", "5", "t", "[", "(", "à", "ü", "!", "¡", "f", "W", "k", "r", "U", "J", "·", "Z", "F", "C", "º", "I", "@", "p", "j"}
  66.             Replacements = "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789áéíóúÁÉÍÓÚàèìòùÀÈÌÒÙäëïöüÄËÏÖÜçǺª<>¡!¿?()[]{}/\|·.:;,-+=_~¬^'`´¨*$%&€#@""".ToCharArray
  67.         Else
  68.             Characters = _
  69.             {"u", "Ñ", "T", "m", "`", "P", "Ç", "Z", "h", "x", "á", "3", "¬", "R", "ª", "6", "ò", "N", "ë", "Ì", "g", "ö", "I", "L", "a", "À", "·", "V", "5", "Ë", "Ù", "´", "Ö", "J", "à", "¡", "n", "4", "È", "j", "ç", "b", "c", "y", "E", "ù", "Ó", "f", "º", "Q", "q", "G", "e", "B", "0", "€", "9", "o", "ì", "O", "8", "¿", "r", "v", "ó", "2", "Ï", "1", "¨", "i", "Á", "D", "t", "Í", "k", "Ú", "C", "ñ", "Ä", "S", "A", "é", "7", "Ü", "K", "z", "í", "è", "Y", "ü", "F", "s", "p", "X", "U", "Ò", "l", "É", "ú", "d", "ï", "M", "W", "H", "ä", "w"}
  70.             '  a,   b,   c,   d,   e,   f,   g,   h,   i,   j,   k,   l,   m,   n,   ñ,   o,   p,   q,   r,   s,   t,   u,   v,   w,   x,   y,   z,   A,   B,   C,   D,   E,   F,   G,   H,   I,   J,   K,   L,   M,   N,   Ñ,   O,   P,   Q,   R,   S,   T,   U,   V,   W,   X,   Y,   Z,   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,   á,   é,   í,   ó,   ú,   Á,   É,   Í,   Ó,   Ú,   à,   è,   ì,   ò,   ù,   À,   È,   Ì,   Ò,   Ù,   ä,   ë,   ï,   ö,   ü,   Ä,   Ë,   Ï,   Ö,   Ü,   ç,   Ç,   º,   ª,   ¡,   ¿,   ·,   ¬,   `,   ´,   ¨,   €
  71.  
  72.             Replacements = _
  73.              "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789áéíóúÁÉÍÓÚàèìòùÀÈÌÒÙäëïöüÄËÏÖÜçǺª¡¿·¬`´¨€".ToCharArray
  74.             ' Removed chars for better improvement in code encryptation: = & + - ^ " % ' < > ( ) { } . $ [ ] ; @ ! ? ~ : / \ | * # , _
  75.         End If
  76.  
  77.  
  78.         Dim Temp_String As String = String.Empty
  79.         Dim Replacement_Found As Boolean = False
  80.  
  81.         For Each character As Char In str
  82.  
  83.             For x As Int32 = 0 To Characters.Length - 1
  84.  
  85.                 If character = Characters(x) Then
  86.                     Replacement_Found = True
  87.                     Temp_String &= Replacements(x)
  88.                     Exit For
  89.                 End If
  90.  
  91.             Next
  92.  
  93.             If Not Replacement_Found Then Temp_String &= character Else Replacement_Found = False
  94.             Application.DoEvents()
  95.  
  96.         Next
  97.  
  98.         Return Temp_String
  99.  
  100.     End Function
  101.  
  102. #End Region

Saludos!
8888  Programación / .NET (C#, VB.NET, ASP) / Re: Problema en Visual Basic -Net (Al remplazar una palabra) en: 9 Junio 2013, 03:40 am
No creo que haga falta nada más que añadir a lo que te dijo Novlucker, hay miles de ejemplos en Google de como crear un Loop, ¿Has intentado buscar?

Te hago un ejemplo de lo que te están diciendo que hagas:

Código
  1. Public Class Form1
  2.  
  3.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  4.  
  5.         MsgBox(Encrypt_text("¡ Hello world !")) ' Result: @i Hello world @o
  6.  
  7.     End Sub
  8.  
  9.     Public Shared Function Encrypt_text(ByVal str As String) As String
  10.  
  11.         Static Special_Characters As Char() = ":;-()¿?¡!@€$/".ToCharArray
  12.  
  13.         Static Special_Characters_Replacement() As String = _
  14.         {"@q", "@w", "@e", "@r", "@t", "@y", "@u", "@i", "@o", "@p", "@a", "@s", "@d"}
  15.         ' :  ,  ;  ,  -  ,  (  ,  )  ,  ¿  ,  ?  ,  ¡  ,  !  ,  @  ,  €  ,  $  ,  / 
  16.  
  17.         Dim Temp_String As String = String.Empty
  18.         Dim Replacement_Found As Boolean = False 
  19.  
  20.         For Each character As Char In str ' Recorremos cada caracter de la variable str
  21.  
  22.             For x As Int32 = 0 To Special_Characters.Length - 1 ' recorremos cada caracter de nuestro array de caracteres
  23.                 If character = Special_Characters(x) Then ' si caracter de STR es igual a caracter de ARRAY...
  24.                     Replacement_Found = True
  25.                     Temp_String &= Special_Characters_Replacement(x)
  26.                     Exit For ' Salimos de la iteración para ahorrar tiempo
  27.                 End If
  28.             Next
  29.  
  30.             If Not Replacement_Found Then Temp_String &= character Else Replacement_Found = False
  31.  
  32.         Next
  33.  
  34.         Return Temp_String
  35.  
  36.     End Function
  37.  
  38. End Class

Saludos
8889  Media / Multimedia / Re: Problema con colores y lineas en videos en: 9 Junio 2013, 03:14 am
Esto demuestra que los codecs de packs no son tán buenos ni necesarios como parece xD

Saludos
8890  Programación / .NET (C#, VB.NET, ASP) / Re: ¿Cómo encontrar una cadena dentro de un párrafo de texto? en: 8 Junio 2013, 08:36 am
Cita de: Juancho25 en  8 Junio 2013, 08:33 am
Intenté entenderlo pero se me complicó, no sé muy bien de ese lenguaje y sé más de C++ en Windows Forms. Si pudieras ponerlo en el lenguaje que te menciono te lo agradecería.

Cita de: Elektro H@cker
Código
  1. Dim regex As String = <a><![CDATA[(http://|https://|www)([\w+?\.\w+])+([a-zA-Z0-9\~\!\@\#\$\%\^\&amp;\*\(\)_\-\=\+\\\/\?\.\:\;\'\,]*)?]]></a>.Value


No, no sé C/C++/C#,
Copia ese RegEx, conviértelo a la sintaxis adecuada de C++ usando la aplicación "RegExBuddy", y ya tienes la primera parte del problema solucionada, el resto solo sería que aprendieses a usar las expresiones regulares en C++ (si no supieras).

Saludos
Páginas: 1 ... 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 [889] 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 ... 1236
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines