Publicados por returnxd

ups perdón hahahah

ahí lo tienes [http://x-taringa.org/software/3805-microsoft-office-2007-profesinal-serial.html][0]">[http://x-taringa.org/software/3805-micr][1] ... erial.html

aprovéchalo que dentro de unas semanas estarán bloqueados los archivos de megaupload

edito: no se puede postear warez? díganmelo isa lo quito

[0]: <a href=
[1]: http://x-taringa.org/software/3805-micr

@isman said:

Pues bueno, mi ordena no lo tiene asique si alguien me puede pasar un sitio de descarga gratis y que no sea de prueba o si lo es con un crak u algo se lo agradecería muchisimoooo, si es posible el del 2010 o 2011 si hay ya y sino 2005 para delante, y si no sabéis me conformo con cualquier cosa para editar textos. Gracias!

Lo puedes descargar de aqui [http://www.microsoft.com/express/Windows/][0]">[http://www.microsoft.com/express/Windows/][1], es gratis solo tienes que registrarte (1 minuto) xd

[0]: <a href=
[1]: http://www.microsoft.com/express/Windows/

ya te la mande de nuevo y esta vez si

Creo que lo conseguí, te envié la respuesta por mp

Dejo código por si alguien le sirve, antes de que me baneen otra vez haha

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Cojo el texto en forma de variable
        Dim caracteres As String = TextBox1.Text
        'Declaro el buffer que nos servira para el bucle "For Each"
        Dim caracter As String
        'Declaramos el numero de numeros a desplazar, fui probando y el 5 me dio =D
        Dim desplazar As Integer = 37
        'Declaramos el buffer que trabajara con el caracter
        Dim buffer1 As Integer
        'Declaramos la frase donde se iran guardando los caracteres
        Dim frase As String = Nothing
        'Empezamos el bucle
        For Each caracter In caracteres
            'Lo de añadir el ascii y la frase en la listbox solo es para comprobar
            'que el algoritmo trabaja bien

            'pasamos el caracter a ascii
            buffer1 = Asc(caracter)
            If buffer1 = 91 Then
                ListBox1.Items.Add("xddd")
            End If
            'desplazamos el numero especificado arriba "5"
            buffer1 = buffer1 + desplazar

            If buffer1 > 127 Then
                ListBox1.Items.Add(buffer1)
                'Le resto 95 en caso de que pase de 127
                buffer1 = buffer1 - 95
                'Paso el ASCII a caracter
                frase = frase & Chr(buffer1)
                'Lo copio porque me da vagueza escribir la frase desencriptada -.-
                My.Computer.Clipboard.SetText(frase)
            ElseIf buffer1 < 32 Then
                ListBox1.Items.Add(buffer1)
                'Le sumo 95 en caso de que pase de 32
                buffer1 = buffer1 + 95
                'Paso el ASCII a caracter
                frase = frase & Chr(buffer1)
                'Lo copio porque me da vagueza escribir la frase desencriptada -.-
                My.Computer.Clipboard.SetText(frase)
            Else
                ListBox1.Items.Add(buffer1)
                'Paso el ASCII a caracter
                frase = frase & Chr(buffer1)
                'Lo copio porque me da vagueza escribir la frase desencriptada -.-
                My.Computer.Clipboard.SetText(frase)
            End If
            ListBox1.Items.Add(frase)
        Next
    End Sub
End Class