Visual Basic.NET - AUXILIO QUIEN PUEDE AYUDARME

   
Vista:

AUXILIO QUIEN PUEDE AYUDARME

Publicado por EMGA (29 intervenciones) el 25/09/2008 16:53:01
Gente nesecito su ayuda lo que sucede es que tengo este cod de encriptado de vb6 y necesito pasarlo a vb.net pero el problema es que no se como o por que se deben de modificar algunos de los parametros en vb.net este es el codigo por si alguien sabe y me puede ayudar con cual seria el equivalente de los parametros que sacan error.

POSD: (Los parametros que sacan error son todos los que tienen que ver con ****ASCIIS)

Imports System.IO

Public Class Form2

'Attribute VB_Name = "modENCRIPTAR"

Public Const ENCRYPT As Long = 1, DECRYPT As Long = 2

Public Function EncryptString(ByVal UserKey As String, ByVal e As System.EventArgs, ByVal Text As String, ByVal Action As Single) As String


Dim DefInt As String (A - Z)

'//For Action parameter in EncryptString
Const ENCRYPT = 1, DECRYPT = 2


' El modo para usar la función EncryptionString es el siguiente:
' //Codifica
' TextoCodificado = EncryptString(TextoOriginal, Contraseña, ENCRYPT)
' //Decodifica
' TextoOriginal = EncryptString(TextoCodificado, Contraseña, DECRYPT
'-------------------------------------------------------------------------------------
Return defint
End Function

Public Function EncryptString(ByVal Text As String, ByVal Action As Single) As String
Dim UserKeyX As String
Dim Temp As Integer
Dim Times As Integer
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim rtn As String
Dim UserKey As String
'//Get UserKey characters
UserKey = "SIAC-UNJBG"
n = Len(UserKey)
ReDim UserKeyASCIIS(0 To n)
For i = 1 To n
UserKeyASCIIS(i) = Asc(Mid$(UserKey, i, 1))
Next

'//Get Text characters
ReDim TextASCIIS(Len(Text))
For i = 1 To Len(Text)
TextASCIIS(i) = Asc(Mid$(Text, i, 1))
Next

'//Encryption/Decryption
If Action = ENCRYPT Then
For i = 1 To Len(Text)
j = IIf(j + 1 >= n, 1, j + 1)
Temp = TextASCIIS(i) + UserKeyASCIIS(j)
If Temp > 255 Then
Temp = Temp - 255
End If
rtn = rtn + Chr(Temp)
Next
ElseIf Action = DECRYPT Then
For i = 1 To Len(Text)
j = IIf(j + 1 >= n, 1, j + 1)
Temp = TextASCIIS(i) - UserKeyASCIIS(j)
If Temp < 0 Then
Temp = Temp + 255
End If
rtn = rtn + Chr(Temp)
Next
End If

'//Return
EncryptString = rtn
End Function

Public Function RandomChart() As String
Dim Char1 As String
Dim RndStr As String
Dim n As Integer

Randomize(Timer)
Do
Char1 = Chr(Int(Rnd() * 256))
If InStr(RndStr, Char1) = 0 Then
n = n + 1
RndStr = RndStr + Char1
End If
Loop Until n = 256

RandomChart = RndStr
End Function


Public Function ChrTran(ByVal Text As String, ByVal SStr As String, ByVal EStr As String) As String
Dim i As Integer
Dim rtn As String

For i = 1 To Len(Text)
rtn = rtn + Mid$(EStr, InStr(SStr, Mid$(Text, i, 1)), 1)
Next
ChrTran = rtn
End Function

End Class
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:AUXILIO QUIEN PUEDE AYUDARME

Publicado por P. J. (706 intervenciones) el 25/09/2008 17:49:55
Pero que error te da?, que es lo que dice.

En todo caso, sino lo resuelves y te es muy urgente tienes varias opciones de encriptar, buscalo en el foro.

Aqui te dejo la forma que uso yo:

http://www.lawebdelprogramador.com/news/mostrar_new.php?id=192&texto=Visual+Basic.NET&n1=475655&n2=1&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0

Suerte.
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

RE:AUXILIO QUIEN PUEDE AYUDARME

Publicado por EMGA (29 intervenciones) el 25/09/2008 18:06:09
Error dice que el nombre "*********" no esta declarado

mas esactamente este es el error.

Error 11 Name 'UserKeyASCIIS' is not declared. C:Documents and Settingse8Mis documentosEGMADesencriptar textovbnetWindowsApplication1WindowsApplication1Form2.vb 80 40 WindowsApplication1
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