ola a todos...

miren estoy un poco pez en vb.. estoy intentando hacer un tipo de nick creator, no se si me entienden, kiero una caja de texto en la que yo escriba y otra mas abajo con las mismas letras en unicode...

si saben agradeceria mucho su ayuda


salu2

nadie sabe??????

hola no se si te refieres a esto, te
envio el codigo
[color=#0000ff size=2][color=#0000ff size=2]


Imports[/color][/color] System.Text[color=#0000ff size=2][color=#0000ff size=2]


Imports[/color][/color] System.Security.Cryptography[color=#0000ff size=2][color=#0000ff size=2]


Public[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Class[/color][/color] Form3


[color=#0000ff size=2][color=#0000ff size=2]Private[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Function[/color][/color] GenerateHash([color=#0000ff size=2][color=#0000ff size=2]ByVal[/color][/color] SourceText [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]String[/color][/color]) [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]String[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] Ue [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]New[/color][/color] UnicodeEncoding


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] ByteSourceText() [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Byte[/color][/color] = Ue.GetBytes(SourceText)


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] Md5 [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]New[/color][/color] MD5CryptoServiceProvider


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] ByteHash() [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Byte[/color][/color] = Md5.ComputeHash(ByteSourceText)


[color=#0000ff size=2][color=#0000ff size=2]Return[/color][/color] Convert.ToBase64String(ByteHash)


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Function[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Private[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color] TextBox1_TextChanged([color=#0000ff size=2][color=#0000ff size=2]ByVal[/color][/color] sender [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] System.Object, [color=#0000ff size=2][color=#0000ff size=2]ByVal[/color][/color] e [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] System.EventArgs) [color=#0000ff size=2][color=#0000ff size=2]Handles[/color][/color] TextBox1.TextChanged


[color=#0000ff size=2][color=#0000ff size=2]Me[/color][/color].Label1.Text = [color=#0000ff size=2][color=#0000ff size=2]Me[/color][/color].GenerateHash([color=#0000ff size=2][color=#0000ff size=2]Me[/color][/color].TextBox1.Text.ToString).ToString


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub


End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Class[/color][/color]

SysEdw ya es la segunda vez que pones codigo de .NET aca en este foro,ya voy considerando que esto es SPAM...

Hola disculpa que he puesto esos codigos la verdad no me di cuenta que estaba en el foro de visual basic 6.0creo que he puesto dos mas, no va ha volver a pasar


Disculpa seba123neo nuevamente recien estoy en este foro despues de tiempo

SysEdw aunque no sea esto lo que busco, gracias por las molestias

salu2