|
132
|
Programación / .NET (C#, VB.NET, ASP) / Re: [VB.NET] Creación de bucles y comando if
|
en: 31 Agosto 2012, 01:43 am
|
¿Dentro de donde?, creo que es mejor que expliques que estás haciendo para poder ayudarte, por lo que entendí lo que quieres es por ejemplo: La palabra "carro" y hacer un bucle que repita "carro" N veces dentro de una variable? Con la segunda duda intenta así: If Label1.Text = "1" Then Navegador.Refresh() End If
|
|
|
134
|
Programación / .NET (C#, VB.NET, ASP) / Re: Introduccion a la ofuscacion de codigo c#
|
en: 30 Agosto 2012, 15:34 pm
|
Creo que te has confundido entre programar y ofuscar, ¿sabes el significado de ofuscar?, si intentabas referirte al hecho de crear un programa debes comenzar desde el principio, los programas se construyen a través de lenguajes de programación haciendo uso de compiladores, que transforman el código en el ejecutable o ensamblado, te recomiendo comenzar con C/C++, y no con .Net. Hay muchísimos tutoriales, guías, cursos en línea, etc; En Internet sobre programación para comenzar desde 0, con el tiempo y la dedicación podrás ir aprendiendo para luego poder atacar la ofuscación, si a eso te referías, la ofuscación es el arte de ensuciar el código de un programa, que puede ser visto a través de un desensamblador o debugger para hacerle la tarea más difícil a la persona que intenta obtener el código del ensamblado o ejecutable. Espero haber aclarado la duda
|
|
|
137
|
Programación / .NET (C#, VB.NET, ASP) / Re: Saber qué Framework utiliza mi software VB.NET
|
en: 22 Agosto 2012, 01:35 am
|
System.Reflection.Assembly.GetExecutingAssembly.ImageRuntimeVersion
Puedes obtener la versión representativa del ensamblado actual, si hacemos Assembly.LoadFile podemos obtener el ensamblado desde un archivo y posteriormente ver la versión, pero esta es solo representativa, me refiero a que es simplemente la que se guardo en el manifiesto del archivo, pero fácilmente puede haber una referencia que sea de una versión más alta, si lo quieres con la máxima precisión debes comprobar cual es la versión más alta de los ensamblados a los que hace referencia en Assembly.GetReferencedAssemblies.
|
|
|
138
|
Programación / .NET (C#, VB.NET, ASP) / Re: Reemplazar comillas dobles dentro de comillas dobles.
|
en: 19 Agosto 2012, 19:29 pm
|
No es tan prolijo pero así lo resolví Dim Texto As String = String.Format("{1}{0}accionObjeto{0}:{0}post{0},{0}accionTipo{0}:{0}comentario{0},{0}ts{0}:{0}02:48:55{0},{0}nick{0}:{0}seba123neo{0},{0}userId{0}:{0}1180918{0},{0}id{0}:15521634,{0}accion_name{0}:{0}Hola{0},{0}url{0}:{0}titulo{0}:{0}Hola como{0} estas{0}{2}", Convert.ToChar(34), "{", "}") Dim Expresión As Match = Regex.Match(Texto, "\x22[\w\s]+\x22\}$") Dim Reemplazar As String = Regex.Replace(Expresión.Value, "^\x22", "") Texto = Texto.Replace(Expresión.Value, Reemplazar) Console.WriteLine(Texto) Console.ReadKey()
En la expresión regular \x22[\w\s]+\x22\}$ tienes que reemplazar [\w\s] por, más grupos porque allí solo captura números, letras y espacios en "titulo":.
|
|
|
139
|
Programación / .NET (C#, VB.NET, ASP) / Re: Double, long, decimal... la siguiente
|
en: 13 Agosto 2012, 21:34 pm
|
En teoría se como podría funcionar pero en la práctica nunca he probado, habría que hacer una clase que maneje el tipo BitArray y otra que interprete los valores usando la transformación de sistemas binario a sistema decimal pero usando String, todas las operaciones se deben hacer en binario ya que el sistema decimal tiene un limite para cada tipo de variable y debe expresarse igualmente en String. Podría hacer un ejemplo de suma y resta, que no me llevaría mucho tiempo, pero es cuestión de investigar como se hacen las operaciones en binario, como se lleva el binario a decimal, y como se pueden expresar los decimales, me están pasando varias ideas por la mente... Lo bueno del sistema binario es que las operaciones básicas, como la suma, resta, multiplicación y división están limitadas a operaciones extremadamente sencillas, ya que no hay muchas posibilidades, las operaciones son siempre 0 con 0, 1 con 0, 0 con 1 y 1 con 1. Este es un ejemplo de suma, el problema se presenta al tratar de representarlo como String, no se me ocurre algo práctico por ahora... Module Module1 Public Class Number Public Bits As BitArray Public MaxBits As Integer ''' <summary> ''' Constructor de la clase Number ''' </summary> ''' <param name="N"></param> ''' <remarks>Representa el límite en Bits</remarks> Public Sub New(ByVal N As Integer) 'Recordemos que la cantidad de valores que puede tomar una variable que' 'soporta N bits es 2^N, de modo que 2^Integer.MaxValue es incalculable,' 'al menos normalmente, así que el límite lo dará la memoria disponible.' MaxBits = N Bits = New BitArray(N, False) End Sub ''' <summary> ''' Representa un arreglo de Bits como String ''' </summary> ''' <returns></returns> ''' <remarks></remarks> Public Overrides Function ToString() As String ToString = String.Empty For Each x As Boolean In Bits ToString += ValorAbsoluto(x).ToString Next End Function ''' <summary> ''' Para un True (-1) Devuelve (1). Para un False (0) Devuelve (0). ''' </summary> ''' <param name="value"></param> ''' <returns></returns> ''' <remarks></remarks> Public Shared Function ValorAbsoluto(ByVal value As Boolean) As Byte Return CByte(CInt(value) * (-1)) End Function Public Shared Operator +(ByVal a As Number, ByVal b As Number) As Number Dim c As New Number(Math.Max(a.MaxBits, b.MaxBits)) Dim aVA As Byte, bVa As Byte For N As Integer = 0 To (Math.Min(a.MaxBits, b.MaxBits) - 1) aVA = ValorAbsoluto(a.Bits(N)) bVa = ValorAbsoluto(b.Bits(N)) If (aVA + bVa) > 1 Then If (N - 1) < 0 Then Throw New OverflowException() Else c.Bits(N) = False c.Bits(N - 1) = True End If Else c.Bits(N) = aVA + bVa End If Next Return c End Operator End Class Sub Main() 'Números de 8 Bits (Byte)' Dim a As New Number(8) Dim b As New Number(8) 'Está será la suma de Bits que realizaremos' ' 0 0 0 1 0 0 0 0' '+ 0 0 0 1 0 0 0 0' '-----------------' ' 0 0 1 0 0 0 0 0' 'Le damos a 'a' y 'b' el valor 1 (True) en el Index 3' a.Bits.Set(3, True) b.Bits.Set(3, True) Dim c As Number = a + b Console.WriteLine(c) Console.ReadKey() End Sub End Module
Bajo esta explicación hice el ejemplo http://es.wikipedia.org/wiki/Sistema_binario#Suma_de_n.C3.BAmeros_binarios
|
|
|
|
|
|
|