elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Nickmania sourcecode
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Nickmania sourcecode  (Leído 4,361 veces)
WHK
Moderador Global
***
Desconectado Desconectado

Mensajes: 6.589


Sin conocimiento no hay espíritu


Ver Perfil WWW
Nickmania sourcecode
« en: 19 Noviembre 2010, 10:25 am »

Hola, les dejo elcódigo fuente de nickmania por si le interesa a alguien.
Está en vb.net

http://www.megaupload.com/?d=RGE2DOO0



clase funciones.vb:
Código
  1. Imports System.Text
  2.  
  3. Public Class Funciones
  4.  
  5.    Public Function Convertir(ByVal Buffer As String, ByVal Tipo As String) As String
  6.        Try
  7.            If Tipo = "decimal" Then
  8.                Return AscW(Buffer).ToString
  9.  
  10.            ElseIf Tipo = "hexadecimal" Then
  11.                Return UCase(Hex(AscW(Trim(Buffer)))).ToString
  12.  
  13.            ElseIf Tipo = "html" Then
  14.                Return "&#x" & UCase(Hex(AscW(Trim(Buffer)))).ToString & ";"
  15.  
  16.            Else
  17.                Return Buffer
  18.  
  19.            End If
  20.        Catch
  21.            Return Buffer
  22.        End Try
  23.    End Function
  24.  
  25. End Class

Form1.vb:
Código
  1. Imports System.Text
  2.  
  3. Public Class Form1
  4.  
  5.    Public Func As New Funciones
  6.    Public LastChar As String
  7.    Public StrDefaultMSG As String = "Su nick acá"
  8.    Private Evitar_VerificarMSG As Boolean
  9.  
  10.    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
  11.        ' Evita mostrar StrDefaultMSG al retroceder completamente sin perder el foco
  12.        If TextBox1.Text = StrDefaultMSG Then
  13.            TextBox1.Text = e.KeyChar
  14.            e.KeyChar = ""
  15.            TextBox1.SelectionStart = TextBox1.Text.Length
  16.        ElseIf TextBox1.Text = Chr(8) And AscW(e.KeyChar) = 8 Then
  17.            TextBox1.Text = ""
  18.            e.KeyChar = ""
  19.        End If
  20.    End Sub
  21.  
  22.    Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
  23.        Generar()
  24.    End Sub
  25.  
  26.    Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
  27.        If TextBox1.Text = StrDefaultMSG Then
  28.            Evitar_VerificarMSG = True
  29.            TextBox1.Text = ""
  30.            TextBox2.Text = ""
  31.        End If
  32.    End Sub
  33.  
  34.    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
  35.        If TextBox1.Text = Chr(8) Then TextBox1.Text = ""
  36.        If TextBox1.Text = StrDefaultMSG Then
  37.            TextBox1.ForeColor = Color.Silver
  38.            TextBox2.ForeColor = Color.Silver
  39.        Else
  40.            TextBox1.ForeColor = Color.Black
  41.            TextBox2.ForeColor = Color.Black
  42.            Generar()
  43.        End If
  44.    End Sub
  45.  
  46.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  47.        ListView1.Items(0).Focused = True
  48.    End Sub
  49.  
  50.    Private Function Generar() As Boolean
  51.        If TextBox1.Text = "" Then
  52.            If Evitar_VerificarMSG = False Then
  53.                TextBox1.Text = StrDefaultMSG
  54.                TextBox2.Text = "Nick generado"
  55.            Else
  56.                Evitar_VerificarMSG = False
  57.            End If
  58.        End If
  59.  
  60.        If TextBox1.Text = StrDefaultMSG Then
  61.            Label6.Text = "Ejemplo"
  62.            Label7.Text = "3j3mp10"
  63.            Label8.Text = "EjEmPlO"
  64.            Exit Function
  65.        End If
  66.  
  67.        Dim Nick As String, Cuenta As Integer, U_Case As Boolean
  68.        Dim Code1 As String, Code2 As String, Code3 As String, Code4 As String
  69.  
  70.        ' Code1 = 1337
  71.        Code1 = TextBox1.Text.ToLower
  72.        Code1 = Code1.Replace("a", "å")
  73.        Code1 = Code1.Replace("b", "ß")
  74.        Code1 = Code1.Replace("c", "©")
  75.        Code1 = Code1.Replace("d", "Ð")
  76.        Code1 = Code1.Replace("e", "3")
  77.        Code1 = Code1.Replace("f", "ƒ")
  78.        Code1 = Code1.Replace("g", "6")
  79.        Code1 = Code1.Replace("i", "¡")
  80.        Code1 = Code1.Replace("l", "1")
  81.        Code1 = Code1.Replace("o", "0")
  82.        Code1 = Code1.Replace("q", "¶")
  83.        Code1 = Code1.Replace("r", "®")
  84.        Code1 = Code1.Replace("s", "§")
  85.        Code1 = Code1.Replace("u", "µ")
  86.        Code1 = Code1.Replace("y", "¥")
  87.        Label7.Text = Code1 ' Imprime ejemplo
  88.  
  89.        ' Code2 = Normal
  90.        Code2 = TextBox1.Text
  91.        Label6.Text = Code2 ' Imprime ejemplo
  92.  
  93.        ' Code3 = UL-Case
  94.        U_Case = False
  95.        Code3 = ""
  96.        For Cuenta = 0 To TextBox1.Text.Length - 1
  97.            If U_Case = False Then
  98.                Code3 = Code3 & TextBox1.Text.Substring(Cuenta, 1).ToLower.ToString
  99.                U_Case = True
  100.            Else
  101.                Code3 = Code3 & TextBox1.Text.Substring(Cuenta, 1).ToUpper.ToString
  102.                U_Case = False
  103.            End If
  104.        Next
  105.        Label8.Text = Code3 ' Imprime ejemplo
  106.  
  107.        ' Code4 = Gigante
  108.        Code4 = TextBox1.Text.ToLower
  109.        Code4 = Code4.Replace(" ", "  ")
  110.        Code4 = Code4.Replace("a", " |̶̿ ̶̿ ̶̿ ̶̿|")
  111.        Code4 = Code4.Replace("b", " |̶͇̿ ̶͇̿ ̶͇̿)")
  112.        Code4 = Code4.Replace("c", " |͇̿ ͇̿ ͇̿ ͇̿")
  113.        Code4 = Code4.Replace("d", " |͇̿ ͇̿ ͇̿ ͇̿)")
  114.        Code4 = Code4.Replace("e", " |̶͇̿ ̶͇̿ ͇̿")
  115.        Code4 = Code4.Replace("f", " |̶̿ ̶̿ ̶̿ ̶̿")
  116.        Code4 = Code4.Replace("g", " |͇̿ ͇̿ ͇̿ ̶͇̿ι")
  117.        Code4 = Code4.Replace("h", " |̶ ̶ ̶ ̶|")
  118.        Code4 = Code4.Replace("i", " [b]|[/b]")
  119.        Code4 = Code4.Replace("j", "  ͇ ͇͇͇͇|")
  120.        Code4 = Code4.Replace("k", " |<")
  121.        Code4 = Code4.Replace("l", " |&#839; &#839; &#839; &#839;")
  122.        Code4 = Code4.Replace("m", " |&#831; V &#831;|")
  123.        Code4 = Code4.Replace("n", " |&#831; \&#839;|")
  124.        Code4 = Code4.Replace("o", " |&#831;&#839; &#831;&#839; &#831;&#839;|")
  125.        Code4 = Code4.Replace("p", " |&#831;&#822; &#831;&#822; &#831;&#822; &#831;&#822;'")
  126.        Code4 = Code4.Replace("q", " |&#831;&#839; &#831;&#839; &#831;&#839; &#831;&#839;&#839;|&#839; ")
  127.        Code4 = Code4.Replace("r", " |&#831; &#831; &#831;")
  128.        Code4 = Code4.Replace("s", "  &#839; &#839;\&#831; &#831;")
  129.        Code4 = Code4.Replace("t", "  &#831; &#831;|&#831; &#831;")
  130.        Code4 = Code4.Replace("u", " |&#839; &#839; &#839; &#839; &#839;|")
  131.        Code4 = Code4.Replace("v", " [b]\ &#839; /[/b]")
  132.        Code4 = Code4.Replace("w", " [b]|&#839; &#923; &#839;|[/b]")
  133.        Code4 = Code4.Replace("x", " X")
  134.        Code4 = Code4.Replace("y", " Y")
  135.        Code4 = Code4.Replace("z", "  &#831; &#831;/ &#839; &#839;")
  136.        Label9.Text = Code4
  137.        Code4 = "&#2309;&#3665; " & Trim(Code4)
  138.  
  139.        ' Establece el nick
  140.        If RadioButton2.Checked = True Then ' 1337
  141.            Nick = Code1
  142.  
  143.        ElseIf RadioButton3.Checked = True Then ' Gigante
  144.            Nick = Code4
  145.  
  146.        ElseIf RadioButton4.Checked = True Then ' UL-Case
  147.            Nick = Code3
  148.  
  149.        Else ' Normal
  150.            Nick = Code2
  151.  
  152.        End If
  153.  
  154.        ' Retorna
  155.        TextBox2.Text = ListView1.FocusedItem.Text.Replace("Nick", Nick)
  156.    End Function
  157.  
  158.    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
  159.        Generar()
  160.    End Sub
  161.  
  162.    Private Sub TextBox2_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox2.MouseClick
  163.        TextBox2.SelectAll()
  164.    End Sub
  165.  
  166.    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
  167.        Generar()
  168.    End Sub
  169.  
  170.    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
  171.        Generar()
  172.    End Sub
  173.  
  174.    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  175.        If TextBox1.Text = StrDefaultMSG Then
  176.            MsgBox("Debe proporcionar un nick")
  177.            Exit Sub
  178.        End If
  179.        Dim Random As New Random()
  180.        ListView1.Items(Random.Next(0, ListView1.Items.Count - 1)).Focused = True
  181.        Generar()
  182.    End Sub
  183.  
  184.    Private Function LoadCharMap() As Boolean
  185.        Dim Cuenta As Integer, Cuenta2 As Integer, Cuenta3 As Integer, LItem As New ListViewItem
  186.        Dim Desde As Integer, Hasta As Integer, Columnas As Integer
  187.  
  188.        Desde = 0 ' 9474
  189.        Hasta = 65535 ' 9729
  190.        Columnas = 22
  191.        Cuenta3 = Desde
  192.  
  193.        Me.Cursor = Cursors.WaitCursor
  194.        Label2.Text = "Creando columnas ..."
  195.        Button4.Visible = False
  196.        Label2.Visible = True
  197.        DataGridView1.Visible = False
  198.        Application.DoEvents()
  199.  
  200.        ' Crea las columnas
  201.        For Cuenta = 0 To Columnas - 1
  202.            DataGridView1.Columns.Add("c" & Cuenta, "t" & Cuenta)
  203.            DataGridView1.Columns(DataGridView1.Columns.Count - 1).Width = 22
  204.            DataGridView1.Columns(DataGridView1.Columns.Count - 1).Resizable = DataGridViewTriState.False
  205.            Label2.Text = "Creando columnas ... " & Cuenta
  206.            Application.DoEvents()
  207.        Next
  208.  
  209.        Label2.Text = "Creando mapa de carácteres ... 0/" & Hasta
  210.        Application.DoEvents()
  211.        Timer1.Tag = "0/" & Hasta
  212.        Timer1.Enabled = True
  213.  
  214.        Dim n As Integer
  215.        For Cuenta = 0 To Int(((Hasta - Desde) / Columnas) - 1)
  216.            If Cuenta3 > Hasta Then Exit For
  217.            n = DataGridView1.Rows.Add()
  218.            For Cuenta2 = 0 To Columnas - 1
  219.                If Cuenta3 > Hasta Then Exit For
  220.                DataGridView1.Rows.Item(n).Cells(Cuenta2).Value = ChrW(Cuenta3)
  221.                Timer1.Tag = Cuenta3 & "/" & Hasta
  222.                Cuenta3 = Cuenta3 + 1
  223.                Application.DoEvents()
  224.            Next
  225.        Next
  226.  
  227.        Label2.Visible = False
  228.        DataGridView1.Visible = True
  229.        Timer1.Tag = 0
  230.        Timer1.Enabled = False
  231.        Me.Cursor = Cursors.Arrow
  232.    End Function
  233.  
  234.    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  235.        Shell("charmap", AppWinStyle.NormalFocus)
  236.    End Sub
  237.  
  238.    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  239.        InsertLastChar()
  240.    End Sub
  241.  
  242.    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
  243.        Dim v_Str As String = DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value.ToString()
  244.        TextBox3.Text = v_Str
  245.        TextBox4.Text = Func.Convertir(v_Str, "hexadecimal")
  246.        TextBox5.Text = Func.Convertir(v_Str, "html")
  247.        TextBox6.Text = Func.Convertir(v_Str, "decimal")
  248.        LastChar = v_Str
  249.    End Sub
  250.  
  251.    Private Sub DataGridView1_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentDoubleClick
  252.        InsertLastChar()
  253.    End Sub
  254.  
  255.    Private Function InsertLastChar() As Boolean
  256.        If TextBox1.Text = StrDefaultMSG Then
  257.            TextBox1.Text = LastChar
  258.        Else
  259.            TextBox1.Text = TextBox1.Text & LastChar
  260.        End If
  261.    End Function
  262.  
  263.    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  264.        Label2.Text = "Creando mapa de carácteres ... " & Timer1.Tag
  265.        Application.DoEvents()
  266.    End Sub
  267.  
  268.    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  269.        LoadCharMap()
  270.    End Sub
  271.  
  272.    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
  273.        Dim Random As New Random()
  274.        Dim Caracter As String = DataGridView1.Rows(Random.Next(0, DataGridView1.Rows.Count)).Cells(Random.Next(0, DataGridView1.Columns.Count)).Value.ToString()
  275.        If TextBox1.Text = StrDefaultMSG Then
  276.            TextBox1.Text = Caracter
  277.        Else
  278.            TextBox1.Text = TextBox1.Text & Caracter
  279.        End If
  280.    End Sub
  281.  
  282. End Class
  283.  


Binario:
http://foro.elhacker.net/chats_irc_y_messengers/nickmania_v24_by_whk-t309834.0.html


« Última modificación: 19 Noviembre 2010, 10:31 am por WHK » En línea

gryphes

Desconectado Desconectado

Mensajes: 26



Ver Perfil WWW
Re: Nickmania sourcecode
« Respuesta #1 en: 19 Noviembre 2010, 17:37 pm »

Buen aporte, se agradece...

Saludos


En línea


[D4N93R]
Wiki

Desconectado Desconectado

Mensajes: 1.646


My software never has bugs. Its just features!


Ver Perfil WWW
Re: Nickmania sourcecode
« Respuesta #2 en: 20 Noviembre 2010, 03:39 am »

Jeje tiene un estilo parecido al charset de windows, creo que esa fue la intensión, lo voy a añadir a los temas interesantes!

Un saludo!
En línea

raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Nickmania sourcecode
« Respuesta #3 en: 20 Noviembre 2010, 14:43 pm »

Lo malo que en windows 7 no se ven tooodos los caracteres. Se ven cuadraditos en la mayoria :xD pero igual, esta bien hecho
En línea

WHK
Moderador Global
***
Desconectado Desconectado

Mensajes: 6.589


Sin conocimiento no hay espíritu


Ver Perfil WWW
Re: Nickmania sourcecode
« Respuesta #4 en: 21 Noviembre 2010, 01:37 am »

Lo malo que en windows 7 no se ven tooodos los caracteres. Se ven cuadraditos en la mayoria :xD pero igual, esta bien hecho

Si me di cuenta, hay algunos que no aparecen porque windows 7 por defecto no te instala todos los tipos de escritura... intenté de que el sistema omitiera los carácteres que no existieran pero no pude, intenté con trim, busque por internet y no pude encontrar como detectar cuando unn carácter es legible o no.

De alguna forma windows si lo detecta pero no se como lo hace ya que para mostrar el típico cuadradito windows primero debe detectar si puede mostrar el carácter o no.

Alguien sabe como podría detectarlo?
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[SourceCode]FileZilla Accounts Stealer
.NET (C#, VB.NET, ASP)
CorruptedByte 4 2,761 Último mensaje 17 Febrero 2012, 22:12 pm
por CorruptedByte
[SourceCode]MailBomber « 1 2 »
.NET (C#, VB.NET, ASP)
CorruptedByte 11 6,703 Último mensaje 24 Febrero 2012, 15:32 pm
por $Edu$
[SOURCECODE] -> WTF! (WinampToFolder) « 1 2 »
.NET (C#, VB.NET, ASP)
Eleкtro 11 7,147 Último mensaje 11 Julio 2013, 15:49 pm
por Eleкtro
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines