Página 1 de 1
ayuda en vb para que agregue eof en el cripter .......
Publicado: 03 Ago 2009, 19:07
por galadrio
hola que tal, espero y alguien pueda ayudarme , el otro dia chekando un tuto de aki para poder crear nuestro propio cripter y stub salen incluso como añadir varias opciones de encriptacion pero lastima que en el tuto no salio la opcion de agregar eof ya que algunos trojanos lo necesitan como el bifrost, me gustaria que alguien me pudiera decir como agregar la opcion eof en el visual basic para poder hacerlo mas completo, apenas comienzo con estos temas que son de mucho interes para mi sobre todo el de poder programar mis propia herramientas , desgraciadamente no se mucho aun y me agradaria aprender espero y alguien pueda ayudarme a lograr esta opcion en el programa. de antemano gracias a todos por sus respuestas y comentarios..........
Re: ayuda en vb para que agregue eof en el cripter .......
Publicado: 08 Ago 2009, 19:03
por ice_mumi
Aca te paso el codigo de las funciones read y write del EOF data.
Espero que te sirvan.
Public Function ReadEOFData(sFilePath As String) As String
On Error GoTo Err:
Dim sFileBuf As String, sEOFBuf As String, sChar As String
Dim lFF As Long, lPos As Long, lPos2 As Long, lCount As Long
If Dir(sFilePath) = "" Then GoTo Err:
lFF = FreeFile
Open sFilePath For Binary As #lFF
sFileBuf = Space(LOF(lFF))
Get #lFF, , sFileBuf
Close #lFF
lPos = InStr(1, StrReverse(sFileBuf), GetNullBytes(30))
sEOFBuf = (Mid$(StrReverse(sFileBuf), 1, lPos - 1))
ReadEOFData = StrReverse(sEOFBuf)
If ReadEOFData = "" Then
MsgBox "No se encontro EOF", vbInformation, "EOF"
End If
Exit Function
Err:
ReadEOFData = vbNullString
End Function
Sub WriteEOFData(sFilePath As String, sEOFData As String)
Dim sFileBuf As String
Dim lFF As Long
On Error Resume Next
If Dir(sFilePath) = "" Then Exit Sub
lFF = FreeFile
Open sFilePath For Binary As #lFF
sFileBuf = Space(LOF(lFF))
Get #lFF, , sFileBuf
Close #lFF
Kill sFilePath
lFF = FreeFile
Open sFilePath For Binary As #lFF
Put #lFF, , sFileBuf & sEOFData
Close #lFF
End Sub
Re: ayuda en vb para que agregue eof en el cripter .......
Publicado: 10 Ago 2009, 16:57
por galadrio
muchas gracias por el codigo asi lo podre interpretar y aprender mas acerca de la funcion y alfin poder agregarlo a mis crypter de antemano gracias por tu ayuda....
Re: ayuda en vb para que agregue eof en el cripter .......
Publicado: 14 Ago 2009, 05:47
por lord.of.da.flies
¿Estas funciones nescecitan de módulos? Y son para detectar automáticamente el eof? gracias
Re: ayuda en vb para que agregue eof en el cripter .......
Publicado: 22 Ago 2009, 04:17
por ice_mumi
Yo las tengo en un modulo, me imagino que no es necesario, pero lo tenog ahi por comodidad. Ya que si quiero programar otra cosa lo tengo separado del resto del programa.
La funcion read es para leer el archivo a ver si tiene EOF y la funcion Write es para escribirlo despues de que encriptaste el archivo.