Mensajes

¿y por qué en vez de usar change no usas keypress? y cuando terminas de ingresar el precio si presionan enter te muestre el mensaje

[MOD EDIT: Usar etiquetas GeSHi para colocar código.]

acá pongo el code del botón y de tres funciones más que usa: 1)arr 2)rear 3)sum
para los que conocen ya con esto es más fácil hallar los seriales! por supuesto no es mi caso.

Código (vbnet) [Seleccionar] Expandir

private void button1_Click(object sender, EventArgs e)
{
string text = this.textBox1.Text;
int[] array = new int[11];
int i = 0;
this.rear(array);
if (text.Length > 6 && text.Length < 12)
{
while (i < text.Length)
{
array[i] = this.Asc(text[i].ToString());
i++;
}
this.arr(ref array, array.Length);
int num = this.sum(array, 10);
if (num > 1245 & num < 1250)
{
if (array[0] + array[1] > 125 && array[0] + array[1] < 150)
{
if (array[3] == array[5])
{
this.label2.ForeColor = Color.Green;
this.label2.Text = "CORRECTO :)";
}
else
{
this.label2.ForeColor = Color.Red;
this.label2.Text = "INCORRECTO";
}
}
else
{
this.label2.ForeColor = Color.Red;
this.label2.Text = "INCORRECTO";
}
}
else
{
this.label2.ForeColor = Color.Red;
this.label2.Text = "INCORRECTO";
}
}
else
{
this.label2.ForeColor = Color.Red;
this.label2.Text = "INCORRECTO";

}
}

public int sum(int[] v, int cant)
{
int result;
if (cant > -1)
{
result = v[cant] + this.sum(v, cant - 1);
}
else
{
result = 0;
}
return result;
}

public void rear(int[] clav)
{
for (int i = 0; i < clav.Length; i++)
{
clav[i] = 0;
}
}

public void arr(ref int[] clav, int cant)
{
if (cant > 1)
{
for (int i = 0; i < cant - 1; i++)
{
if (clav[i] > clav[i + 1])
{
int num = clav[i];
clav[i] = clav[i + 1];
clav[i + 1] = num;
}
}
this.arr(ref clav, cant - 1);
}
}


MOD EDIT: Usar etiquetas GeSHi para colocar código.



Me olvidé! acá está el archivo limpio por si lo quieren revisar!
http://www.mediafire.com/download/57ciujbh35y3ra8/Go__II.rar

el pass es: a

MOD EDIT: No hacer doble post.

OK! Gracias! siempre paso por alto los bruteforce, pero evidentemente dan sus resultados! Me gusta por que este es externo en vez de usar el mismo soft.

RDGMax:
              ¿por qué no subes aunque sea un minitute? así los que no sabemos podemos aprender!

bueno, partamos de la base que no has perfeccionado tu sistema, sino que has usado un packer de terceros, en este caso themida, hay que ver cuando esté limpio.

No anda el link

pues las mejores herramientas para analizar comportamientos y posibilidades de un archivo(que no tenemos el código fuente) son ollydbg e ida. Sino como hacen los creadores de antivirus ¿piden el código al creador?

me parece que hay que tener cuidado con los antivirus también, ya que muchas veces detectan arrays hexa como posibles virus y dan falsos positivos. Estaría bueno para probar los soft usar ambientes controlados.

muchas veces he tenido que hacer aplicaciones como facturas y lo que siempre queda bien o piden es que el número se pase a letras, una funcíon vieja que hace eso, estoy seguro que Elektro lo hace más fácil pero igual acá va:

Código (vbnet) [Seleccionar] Expandir

Public Function NunAText(ByVal value As Double) As String
        Select Case value
            Case 0 : NunAText = "CERO"
            Case 1 : NunAText = "UN"
            Case 2 : NunAText = "DOS"
            Case 3 : NunAText = "TRES"
            Case 4 : NunAText = "CUATRO"
            Case 5 : NunAText = "CINCO"
            Case 6 : NunAText = "SEIS"
            Case 7 : NunAText = "SIETE"
            Case 8 : NunAText = "OCHO"
            Case 9 : NunAText = "NUEVE"
            Case 10 : NunAText = "DIEZ"
            Case 11 : NunAText = "ONCE"
            Case 12 : NunAText = "DOCE"
            Case 13 : NunAText = "TRECE"
            Case 14 : NunAText = "CATORCE"
            Case 15 : NunAText = "QUINCE"
            Case Is < 20 : NunAText = "DIECI" & NunAText(value - 10)
            Case 20 : NunAText = "VEINTE"
            Case Is < 30 : NunAText = "VEINTI" & NunAText(value - 20)
            Case 30 : NunAText = "TREINTA"
            Case 40 : NunAText = "CUARENTA"
            Case 50 : NunAText = "CINCUENTA"
            Case 60 : NunAText = "SESENTA"
            Case 70 : NunAText = "SETENTA"
            Case 80 : NunAText = "OCHENTA"
            Case 90 : NunAText = "NOVENTA"
            Case Is < 100 : NunAText = NunAText(Int(value \ 10) * 10) & " Y " & NunAText(value Mod 10)
            Case 100 : NunAText = "CIEN"
            Case Is < 200 : NunAText = "CIENTO " & NunAText(value - 100)
            Case 200, 300, 400, 600, 800 : NunAText = NunAText(Int(value \ 100)) & "CIENTOS"
            Case 500 : NunAText = "QUINIENTOS"
            Case 700 : NunAText = "SETECIENTOS"
            Case 900 : NunAText = "NOVECIENTOS"
            Case Is < 1000 : NunAText = NunAText(Int(value \ 100) * 100) & " " & NunAText(value Mod 100)
            Case 1000 : NunAText = "MIL"
            Case Is < 2000 : NunAText = "MIL " & NunAText(value Mod 1000)
            Case Is < 1000000 : NunAText = NunAText(Int(value \ 1000)) & " MIL"
                If value Mod 1000 Then NunAText = NunAText & " " & NunAText(value Mod 1000)
            Case 1000000 : NunAText = "UN MILLON"
            Case Is < 2000000 : NunAText = "UN MILLON " & NunAText(value Mod 1000000)
            Case Is < 1000000000000.0# : NunAText = NunAText(Int(value / 1000000)) & " MILLONES "
                If (value - Int(value / 1000000) * 1000000) Then NunAText = NunAText & " " & NunAText(value - Int(value / 1000000) * 1000000)
                'Case 1000000000000.0# : NunAText = "UN BILLON"
                'Case Is < 2000000000000.0# : NunAText = "UN BILLON " & NunAText(value - Int(value / 1000000000000.0#) * 1000000000000.0#)
                'Case Else : NunAText = NunAText(Int(value / 1000000000000.0#)) & " BILLONES"
                '   If (value - Int(value / 1000000000000.0#) * 1000000000000.0#) Then NunAText = NunAText & " " & NunAText(value - Int(value / 1000000000000.0#) * 1000000000000.0#)
        End Select


    End Function

uso: NumAText(1897432)

x64core:
            sin lugar a dudas el joven eres tú, primero: pues no espero nada, pero hay que remarcar e intentar respaldar las normas de educación, cualquiera pide (sin vergüenza ni descaros), sin el menor esfuerzo por resolver el problema y sin la educación de agradecer, esperar todo servido y no agradecer a quien sea es un síntoma de lo bajo que están los valores sociales.
segundo: no exijo nada de los que entran, ahora si descargan cualquier cosa para probar sin tener conocimientos ¿de quién es la culpa? Pero con el post anterior te pusiste de Robin Hood (defensor de pobres y ausentes) gratuitamente. ¿acaso analizaste la herramienta y encontraste efectos secundarios dañinos? como dice mcksys tu encono personal contra rdg es evidente.
ahhh al próposito ¿eres el autor del debugger de 64 bits? por que si es así no veo el código en ningún lado y ¿cómo se que no es malware? no estoy obligado a saber usar ni tener VM.

mcksys: efectivamente este post es sobre todo por bloquear el acceso a la respuesta en el post mencionado.