lonbrix, exactamente a que te refieres con codigo basura?
En 1º en 2º o en 3º BETICO hasta que muera
Código: Seleccionar todo
Private Function Name()
GoTo Etiqueta1
Etiqueta1:
GoTo Etiqueta2
Etiqueta2:
Dim iBasura As Integer
For iBasura = 1 To 5
DoEvents
Next iBasura
End Function
Private Function Basura()
GoTo Basura
Basura:
Dim iVariable_Basura As Integer
For iVariable_Basura = 4 To 12
DoEvents
Next iVariable_Basura
Dim lBasura As Long
lBasura = "5817"
GoTo Basura2
Basura2:
End Function
Hey bro lo k a el se refiere con codigo basura(junk code) no es d agregar bytes a un file lo k el intenta hacer es k kiere agregar codigos inservibles k no hagan nada un ejemplo puede ser los loops aunk si agregas muxos podria hacer lento el funcionamiento d akel file al k le agregaron el codigo... n si hay muxos ejemplos k kon solo agregarlos a tus codigos los puede hacer FUD.. kmbiando el order d los funciones y subs podria ser otra.. encryptando string y poniendo random values a las variables en fin.. te dejare algo aver si masomenos tomas idea d lo k t mostrare y hagas muxas a tu manera...SkuLLByte escribió:Usa el buscador de Indetectables, y pon esto:
DW-Crypt0r... es un crypter que codee con DARK_J4V13R. Ahí se muestra como agregarle los Bytes de peso.
Está muy bien explicado el source y fácil de entender.
Cuálquier duda, nos avisas!.
Salu2!
Código: Seleccionar todo
Dim valor1 As String, valor2 As String, s() As String, final As String, x As Integer
valor1 = "Sm0kes"
For x = 1 To Len(valor1)
valor2 = valor2 & IIf(x = 1, Asc(Mid$(valor1, x, 1)), "|" & Asc(Mid$(valor1, x, 1)))
Next x
s() = Split(valor2, "|")
For x = 0 To UBound(s)
final = final & Chr(CLng(s(x)))
Next x
If final = "Sm0kes" Then GoTo Sm0kes
Sm0kes:
Jaja, ese es mi codigo basura xDD. (También llamado Junk Code)DnKA escribió:Tambien se puede referir a funciones de vb6 que "no hacen nada" solo sirve para introducir codigo basura y despistar a los avs.
Aki te dejo dos funciones que ya fueron posteadas en el foro:
Código: Seleccionar todo
Private Function Name() GoTo Etiqueta1 Etiqueta1: GoTo Etiqueta2 Etiqueta2: Dim iBasura As Integer For iBasura = 1 To 5 DoEvents Next iBasura End Function Private Function Basura() GoTo Basura Basura: Dim iVariable_Basura As Integer For iVariable_Basura = 4 To 12 DoEvents Next iVariable_Basura Dim lBasura As Long lBasura = "5817" GoTo Basura2 Basura2: End Function