me qedo esto em el site
Bandwidth Limit Exceeded
The server is temporarily unable to service your request due to the site owner reaching his/her bandwidth limit. Please try again later.
skyweb07 seria mucho pedir que subieses el tuto a un servidor como rapidshare o megapuload. mientras a tu pagina no se
pueda acceder?
Gracias de antemano
pueda acceder?
Gracias de antemano
hola mi comentario es por si alguien puede resubir el video a megaupoad o simi, gracias de antemano y gracias al autor
La felicidad es una cualidad evasiva. Si la buscas, no la encuentras.
Aqui tienen el video.depuniet escribió:hola mi comentario es por si alguien puede resubir el video a megaupoad o simi, gracias de antemano y gracias al autor
[Enlace externo eliminado para invitados]
gracias amigo un saludo
La felicidad es una cualidad evasiva. Si la buscas, no la encuentras.
bueno, tengo 2 errors:
ou rompe lo progrma :/ qe se passara?
Código: Seleccionar todo
Program too big to run in memoryy para poner un EOF cual seria el codigo?
Salu2
Salu2
hasta donde yo sé(si me equivoco que alguien me corrija y si quieren completar la información mejor) necesitas 3 funciones: ReadEOFData, WriteEOFData, GetNullBytes. un checkbox (generalmente se usan checkbox para marcar el eof) y declarar "hola" como cadena (as string)Seritx escribió:y para poner un EOF cual seria el codigo?
Salu2
ReadEOFData
Código: Seleccionar todo
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 "EOF data no fue detectado", vbInformation, Me.Caption
End If
Exit Function
Err:
ReadEOFData = vbNullString
End FunctionWriteEOFData
Código: Seleccionar todo
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 SubCódigo: Seleccionar todo
Public Function GetNullBytes(lNum) As String
Dim sBuf As String
Dim i As Integer
For i = 1 To lNum
sBuf = sBuf & Chr(0)
Next
GetNullBytes = sBuf
End FunctionAlgo asi es, si alguien mas puede explicarse mejor estaria bien
Código: Seleccionar todo
La frase de abajo no dice la verdad.
La frase de arriba dice la verdad.o qe é q tenemos q escrevir em eof? o q debemos escrevir..
EDIT: lo que debemos hacer es esto?
EDIT: lo que debemos hacer es esto?
Código: Seleccionar todo
WriteEOFData(filepath, ReadEOFData(filepath))Ok thanks
Salu2
Salu2
Resultaría mucho pedir que siguieras el Videotutorial añadiendo una segunda parte donde se
explica como poner la Opción del EOF y donde conseguir los otros Códigos de encriptación aparte del RC4 para poder realizar un Encryptador donde através de un checkbox poder seleccionar entre varias encryptaciones.
Disculpa si es mucho pedirte pero los que queremos aprender dependemos de los que ya saben.
Gracias de todos modos estoy siguiendo tus tutoriales que me parecen muy explicitos.
¡¡Gracias a Todos los que saben y se interesab en ayudar a los que estan Avanzando!!
explica como poner la Opción del EOF y donde conseguir los otros Códigos de encriptación aparte del RC4 para poder realizar un Encryptador donde através de un checkbox poder seleccionar entre varias encryptaciones.
Disculpa si es mucho pedirte pero los que queremos aprender dependemos de los que ya saben.
Gracias de todos modos estoy siguiendo tus tutoriales que me parecen muy explicitos.
¡¡Gracias a Todos los que saben y se interesab en ayudar a los que estan Avanzando!!
Los modulos AntiAnubis, AntiSandboxie etc, etc, etc... los pongo en el cliente o en el STUB?
PD: A proposito alguien me puede dar el codigo del AntiSandboxie que no encuentro ninguno
Salu2
PD: A proposito alguien me puede dar el codigo del AntiSandboxie que no encuentro ninguno
Salu2
Es asi:NoxDomine escribió:o qe é q tenemos q escrevir em eof? o q debemos escrevir..
EDIT: lo que debemos hacer es esto?
Código: Seleccionar todo
WriteEOFData(filepath, ReadEOFData(filepath))
Código: Seleccionar todo
If chkEOF.Value = 1 Then
Dim sv As String
sv = ReadEOFData(CD.Filename)
End If
With CD
.DialogTitle = "Selecciona la ruta para guardar"
.Filter = "Aplicaciones EXE|*.exe"
.ShowSave
End With
If chkEOF.Value = 1 Then
Call WriteEOFData(CD.Filename, sv)
End IfSkyweb07 realmete sos un capo lo unico que programe en mi vida fue el lavarropas de mi señora y creo que mal. Con tu video, lo segui al pie de la letra y ya hice mi primer cripter .
Pruebo a ver si lo puedo dejar Fud y lo posteo.
Muchas gracias por este exelente video
Saludos a todos
Pruebo a ver si lo puedo dejar Fud y lo posteo.
Muchas gracias por este exelente video
Saludos a todos
-Todos somos muy ignorantes. Lo que ocurre es que no todos ignoramos las mismas cosas.
-Hay dos cosas infinitas: el Universo y la estupidez humana. Y del Universo no estoy seguro.
-Los grandes espíritus siempre han encontrado una violenta oposición de parte de mentes mediocres.
-Cada día sabemos más y entendemos menos.
Albert Einstein
-Hay dos cosas infinitas: el Universo y la estupidez humana. Y del Universo no estoy seguro.
-Los grandes espíritus siempre han encontrado una violenta oposición de parte de mentes mediocres.
-Cada día sabemos más y entendemos menos.
Albert Einstein
muy buen vídeo bro te felicito eres un maestro,me pondré a leer mas y con este vídeo a ver si me animo y hago mi propio crypter muchas grasias
