Problema Ao Criar uma RunPE

[Estranged]

Galera to com um problema, eu to tentando criar uma RunPE própria mais todas que tento da erro nesta linha " Public Declare Sub RtlMoveMemory Lib "kernel32" (Dest As Any, Src As Any, ByVal L As Long)" eu aperto F5 para ver se tem algum problema ai aparece esta menssagem :




Alguém me ajuda a resolver este erro por favor ?

[HopeSaraiva]

Voce declarou constantes como publicas?

[yBIR4]

Runpe codigos de criaçao

alguem poderia me mandar um codigo para mim criar um gerador de RC4 nao precisa das strings tenho minhas proprias

[karlito]

alguem poderia me mandar um codigo para mim criar um gerador de RC4 nao precisa das strings tenho minhas proprias

Public Shared Function xUkFojvKmpBNIsMPcBCP(ByVal eNnEebvIrvIBBeRBrIRB As String, ByVal jNfGnbnBjbTNHeRIoTYI As String) As String
Dim gHbEeeeUrbRBOiKTgRKT As Integer = 0
Dim rJnGnjnGjePEPrIRnPJR As Integer = 0
Dim eEnRngoNogBJJnGErBEE As New StringBuilder
Dim fGkJbgnRejTHIbOEjTRE As String = String.Empty
Dim vIfInnjJjeHNGnRKoHBK As Integer() = New Integer(256) {}
Dim nErRfvkGevJBReEGjJBG As Integer() = New Integer(256) {}
Dim nNeRnofUreGJInGFgGBF As Integer = jNfGnbnBjbTNHeRIoTYI.Length
Dim jIeBngrGjgGEEeIGoGEG As Integer = 0
While jIeBngrGjgGEEeIGoGEG <= 255
Dim eIkGnnjIjgGRReHIjGVI As Char = (jNfGnbnBjbTNHeRIoTYI.Substring((jIeBngrGjgGEEeIGo GEG Mod nNeRnofUreGJInGFgGBF), 1).ToCharArray()(0))
nErRfvkGevJBReEGjJBG(jIeBngrGjgGEEeIGoGEG) = Microsoft.VisualBasic.Strings.Asc(eIkGnnjIjgGRReHI jGVI)
vIfInnjJjeHNGnRKoHBK(jIeBngrGjgGEEeIGoGEG) = jIeBngrGjgGEEeIGoGEG
System.Math.Max(System.Threading.Interlocked.Incre ment(jIeBngrGjgGEEeIGoGEG), jIeBngrGjgGEEeIGoGEG - 1)
End While
Dim nFiFkejJnjCMBfLOfCVO As Integer = 0
Dim fWbYdfeQkfZFOkDHkZEH As Integer = 0
While fWbYdfeQkfZFOkDHkZEH <= 255
nFiFkejJnjCMBfLOfCVO = (nFiFkejJnjCMBfLOfCVO + vIfInnjJjeHNGnRKoHBK(fWbYdfeQkfZFOkDHkZEH) + nErRfvkGevJBReEGjJBG(fWbYdfeQkfZFOkDHkZEH)) Mod 256
Dim rBgYrngDegZHVnGVoZEV As Integer = vIfInnjJjeHNGnRKoHBK(fWbYdfeQkfZFOkDHkZEH)
vIfInnjJjeHNGnRKoHBK(fWbYdfeQkfZFOkDHkZEH) = vIfInnjJjeHNGnRKoHBK(nFiFkejJnjCMBfLOfCVO)
vIfInnjJjeHNGnRKoHBK(nFiFkejJnjCMBfLOfCVO) = rBgYrngDegZHVnGVoZEV
System.Math.Max(System.Threading.Interlocked.Incre ment(fWbYdfeQkfZFOkDHkZEH), fWbYdfeQkfZFOkDHkZEH - 1)
End While
jIeBngrGjgGEEeIGoGEG = 1
While jIeBngrGjgGEEeIGoGEG <= eNnEebvIrvIBBeRBrIRB.Length
Dim jKjUjgeYgeUHGkDBgUPB As Integer = 0
gHbEeeeUrbRBOiKTgRKT = (gHbEeeeUrbRBOiKTgRKT + 1) Mod 256
rJnGnjnGjePEPrIRnPJR = (rJnGnjnGjePEPrIRnPJR + vIfInnjJjeHNGnRKoHBK(gHbEeeeUrbRBOiKTgRKT)) Mod 256
jKjUjgeYgeUHGkDBgUPB = vIfInnjJjeHNGnRKoHBK(gHbEeeeUrbRBOiKTgRKT)
vIfInnjJjeHNGnRKoHBK(gHbEeeeUrbRBOiKTgRKT) = vIfInnjJjeHNGnRKoHBK(rJnGnjnGjePEPrIRnPJR)
vIfInnjJjeHNGnRKoHBK(rJnGnjnGjePEPrIRnPJR) = jKjUjgeYgeUHGkDBgUPB
Dim nTnHgooHonBHErNRfBOR As Integer = vIfInnjJjeHNGnRKoHBK((vIfInnjJjeHNGnRKoHBK(gHbEeee UrbRBOiKTgRKT) + vIfInnjJjeHNGnRKoHBK(rJnGnjnGjePEPrIRnPJR)) Mod 256)
Dim eIkGnnjIjgGRReHIjGVI As Char = eNnEebvIrvIBBeRBrIRB.Substring(jIeBngrGjgGEEeIGoGE G - 1, 1).ToCharArray()(0)
jKjUjgeYgeUHGkDBgUPB = Asc(eIkGnnjIjgGRReHIjGVI)
Dim eNjUnjvNneJNRvERkJIG As Integer = jKjUjgeYgeUHGkDBgUPB Xor nTnHgooHonBHErNRfBOR
eEnRngoNogBJJnGErBEE.Append(Chr(eNjUnjvNneJNRvERkJ IG))
System.Math.Max(System.Threading.Interlocked.Incre ment(jIeBngrGjgGEEeIGoGEG), jIeBngrGjgGEEeIGoGEG - 1)
End While
fGkJbgnRejTHIbOEjTRE = eEnRngoNogBJJnGErBEE.ToString
eEnRngoNogBJJnGErBEE.Length = 0
Return fGkJbgnRejTHIbOEjTRE
End Function