saludos brothers, bueno pues acabo de hacer un crypter en vb6, y esta sin EOF
le quise agregar esa opsion pero no me funciona hice esto :
* agrege el modulo MEOF.BAS luego declare en boton de encriptar
Private Sub cmdEncriptar_Click()
eof As String
If chkEOF.Value = 1 Then
eof = ReadEOFData(txtRuta.Text)
porque no funciona?
Te lo muevo a su seccion
La felicidad es una cualidad evasiva. Si la buscas, no la encuentras.
No funciona porque te falta otro parte, haz esto!
Después, o mejor dicho a lo último colocas ésto!
Eso es todo, espero y te sirva,
Salu2!¡
Código: Seleccionar todo
Private Sub cmdEncriptar_Click()
Dim EOF As String
If chkEOF.Value = vbChecked Then EOF = ReadEOFData(txtRuta)
Código: Seleccionar todo
If chkEOF.Value = vbChecked Then Call WriteEOFData(CD.FileName, EOF) 'CD = Common Dialog
Salu2!¡
o si kieres hacerlo mas korto haz esto
Código: Seleccionar todo
If chkEOF.Value = vbChecked Then Call WriteEOFData(CD.FileName, ReadEOFData(txtRuta.Text))
Visiten http://malwarelabs.org/[Blog dedicado al malware]
Aprendan a dejar FUD sus Stubs: http://www.indetectables.net/foro/viewtopic.php?f=8&t=19474
