Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

Problema Ao Criar uma RunPE

Collapse
X
 
  • Filter
  • Tempo
  • Show
Clear All
new posts

  • Font Size
    #1

    Problema Ao Criar uma RunPE

    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 ?
    Last edited by M2G; 06-12-2011, 12:52.
    cഠ๓нεc¡ണε๓тഠ ๓ãഠ é cя¡ണε
    Similar Threads

  • Font Size
    #2
    Voce declarou constantes como publicas?

    Comment


    • Font Size
      #3
      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

      Comment


      • Font Size
        #4
        Postado Originalmente por yBIR4 Ver Post
        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

        Comment

        X
        Working...
        X