Visual Basic - Encriptacion

Life is soft - evento anual de software empresarial
   
Vista:

Encriptacion

Publicado por Asier (1 intervención) el 06/07/2010 08:29:11
Hola amigos, tengo el siguiente problema, necesito encriptar y desencriptar la contraseña de terminal service, (fichero RPD) he mirado 1000 ejemplos (este es uno, http://www.obviex.com/samples/dpapi.aspx)y he probado de todo y me pasa lo siguiente, la clave que se me genera es de este tipo:

"AQAAANCMnd8BFdERjHoAwE/Cl +sBAAAAims + SBAAAAims aJwkp6UiQU aJwkp6UiQU kU3u7SR/gA kU3u7SR/gA AAAACAAAAA AAAACAAAAA AADZgAAqAA AADZgAAqAA AABAAADpOK AABAAADpOK rEGXiCPXZD rEGXiCPXZD d7k6hh0wAA d7k6hh0wAA AAASAAACgA AAASAAACgA AAAEAAAAC/ AAAEAAAAC / 4/F9vwzZuL 4/F9vwzZuL BNWtG7s2jU BNWtG7s2jU IAAAAfWg8c IAAAAfWg8c WQO4w0UAAA WQO4w0UAAA AY9AGcR3mB AY9AGcR3mB ULwVRwkATp ULwVRwkATp NBsdkwo=" NBsdkwo = "

y yo necesitaria algo asi...

"01000000D08C9DDF0115D1118 C7A00C04FC C7A00C04FC 297EB01000 297EB01000 0008A6B1A2 0008A6B1A2 70929E9489 70929E9489 0524537BBB 0524537BBB 491FE00000 491FE00000 0000200000 0000200000 0000003660 0000003660 000A800000 000A800000 010000000E 010000000E CDDF5DC693 CDDF5DC693 8553942E7F 8553942E7F 7281AB257E 7281AB257E B000000000 B000000000 4800000A00 4800000A00 0000010000 0000010000 00025F2266 00025F2266 37E7AAECBF 37E7AAECBF 4A7C0D6D82 4A7C0D6D82 0F3FE08000 0F3FE08000 0007D31713 0007D31713 ADBABCD741 ADBABCD741 4000000A93 4000000A93 824F1B3554 824F1B3554 9CDA34CA52 9CDA34CA52 EDD692367D EDD692367D 3ADCA8C" 3ADCA8C "

Gracias de antemano por vuestra ayuda!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Encriptacion

Publicado por juan carlos (518 intervenciones) el 08/07/2010 08:44:44
Has algo parecido a esto

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = "100" Then 'd
Text2.SelText = " 01000000D08C9DDF0115D1118"
ElseIf KeyAscii = "101" Then 'e
Text2.SelText = " C7A00C04FC"
ElseIf KeyAscii = "102" Then 'f
Text2.SelText = "C7A00C04FC"
ElseIf KeyAscii = "103" Then 'g
Text2.SelText = " 297EB01000 "
End If
End Sub

para probarlo crea un nuevo proyecto
agregale dos textbox (text1 y text2)
pon el text1 en multiline a true
pega el codigo fuente en declaraciones
teclea en el text1 defg
y veras

lo demas depende de ti
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar