Foro de elhacker.net

Hola!

Estoy haciendo un programa y en un momento dado necesito acceder y abrir un archivo en modo binario, el inconveniente es que tarda un gran tiempo y bastantes recursos en abrirlo... La cosa es saber... ¿Como podría optimizarlo? El code que uso es el siguiente:

Dim var As String * 60000
data = ""
var = ""
Open archivo For Binary As #1
Do While Not EOF(1)
 
Get #1, , var
 
data = data & var
data = Trim(data)
 
Loop
Close #1

¿Se puede optimizar? ¿Se puede hacer de otro método más rápido?

Salu2.
Gracias

Dim btData() As Byte
Dim sData$

Open archivo For Binary As #1

ReDim btData(LOF(1)) As Byte

Get #1,  1, btData

sData = StrConv(btData, vbUnicode)

Close #1

EDITO: He probado el code pero no he logrado hacerlo funcionar correctamente. Más información acerca de lo que hago, una vez abierto y cargado el archivo en una variable lo que hago es pasarla por una función que digamos "la cifra" y lo uso de la siguiente forma:

Dim btData() As Byte
Dim sData$
 
Open archivo For Binary As #1
 
ReDim btData(LOF(1)) As Byte
 
Get #1,  1, btData
 
 
sData = StrConv(btData, vbUnicode)
sData=enc(sData)      ' "enc" es la función...
 
Close #1
 

Pero se ve que se queda en un bucle infinito... :S ¿Que es lo que pasa? ¿Será problema de la función?

Salu2.

ve linea por linea con el F8 en modo depuracion y asi ya ves las lineas en las que se repite...

Saludos ;)

Para incrementar la velocidad tendrias que usar API (CreateFile, ReadFile , etc.) y no leer el contenido completo del archivo sino que en chunks (multiplos de 8 bytes) es mas rapido a mi entender.

Ya he encontrado el problema. No es problema del código de apertura del archivo, es problema de la función de cifrado que le cuesta muchísimo... (Recorrer 60.000 caracteres no debe ser rápido xD). Alguna idea para otro "algoritmo" ?  :-\ :-\
Os dejo el código que utilizo:

cifrar:

Function enc(ByVal S As String, ByVal P As String) As String
Dim I As Long, R As String
Dim C1 As Integer, C2 As Integer
R = ""
If Len(P) > 0 Then
For I = 1 To Len(S)
C1 = Asc(Mid(S, I, 1))
If I > Len(P) Then
C2 = Asc(Mid(P, I Mod Len(P) + 1, 1))
Else
C2 = Asc(Mid(P, I, 1))
End If
C1 = C1 + C2 + 64
If C1 > 255 Then C1 = C1 - 256
R = R + Chr(C1)
Next I
Else
R = S
End If
enc = R
 
End Function
 

descifrar:

Function des(ByVal S As String, ByVal P As String) As String
Dim I As Long, R As String
Dim C1 As Integer, C2 As Integer
R = ""
If Len(P) > 0 Then
For I = 1 To Len(S)
C1 = Asc(Mid(S, I, 1))
If I > Len(P) Then
C2 = Asc(Mid(P, I Mod Len(P) + 1, 1))
Else
C2 = Asc(Mid(P, I, 1))
End If
C1 = C1 - C2 - 64
If Sgn(C1) = -1 Then C1 = 256 + C1
R = R + Chr(C1)
Next I
Else
R = S
End If
des = R
End Function
 

¿Cómo hacer un "codificado" más rápido?

Salu2.

PD: El código de cifrado no es mio, lo encontré en Internet, lo revisé y vi que me servía para lo que quería hacer...

Usando matriz de byte el código queda absolutamente optimizado. Los Strings son lentos y no son apropiados para operaciones que requieren mucho procesamiento.

El siguiente código lee los datos del archivo a una matriz de Byte, luego cifra los datos modificando el valor de cada byte con un algoritmo sencillo y lineal, y por último convierte a String los datos cifrados.

Para descifrar, hay que convertir los datos a matriz de Byte. Ejemplo:

Dim btData() As Byte
Dim sString$, sDecrypt$
 
sString = "BRdTYTQ@QRG^"
 
btData = StrConv(sString, vbFromUnicode)
 
sDecrypt = Decrypt(btData)
 
Debug.Print sDecrypt
 

Sub EncryptFile(Source As String)
  Dim btData() As Byte
  Dim sEnc$
 
  Open Source For Binary As #1
 
  ReDim btData(LOF(1)) As Byte
 
  Get #1,  1, btData
 
  sEnc = Encrypt(btData)
 
  Close #1
End Sub
 
Function Encrypt(pData) As String
  Encrypt = Crypto(pData, True)
End Function
 
Function Decrypt(pData) As String
  Decrypt = Crypto(pData, False)
End Function
 
Function Crypto(pData, Optional bEncrypt As Boolean = True) As String
  Dim iFlag%
  Dim i&, lLen&
 
  lLen = UBound(pData)
 
  If (bEncrypt) Then iFlag = -1 Else iFlag = 1
 
  For i = 0 To lLen
    pData(i) = pData(i) + ((i + (i Mod lLen) + 17) * iFlag)
  Next
 
  Crypto = StrConv(pData, vbUnicode)
End Function
 
 

Saludos.

Muchas gracias Seykron. Voy a probarlo y ya te cuento.

Gracias también por la explicación de las strings/matrices de bytes. De ahora en adelante intentaré usar matrices  ;D

Salu2 y gracias!