Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Cita de: A2Corp en 22 Mayo 2009, 22:25 PMMe gusta que mis proyectos sean útiles
no quize batallar y solo encripte 1 modulo en vez de todo el proyecto y me funciono...
Pero aun era detectado por 2 AVS asi que primero lo encripte por reverse y luego por Xor y .........
INDETECTABLE!
Muchas gracias Kar!
Saludos.
me emociono y to' 
![:-\](https://forum.elhacker.net/Smileys/navidad/undecided.gif ":-\")
macro encrypt dstart,dsize {
local ..char,..key,..shift
repeat dsize
load ..char from dstart+%-1
..char = ..char xor $AA
store ..char at dstart+%-1
end repeat
}
Cita de: A2Corp en 22 Mayo 2009, 20:52 PMImagino que es algún problema con que tienes 2 variables declaradas con el mismo nombre... puede que sea algún error de la 'aleatorización' de la función...
Perdoooooon q reviva el tema...
Acabo de conocer este programa lo veo muy interesante pero al intentar cifrar mi proyecto y tratar de correrlo me marca ambiguos name detected.
A alguien le ha pasado igual?
Un saludo.
)
( , sin rencor )
), sino nos quedamos sin trabajo
Option Explicit
'KERNEL32
Private Declare Function GetModuleFileName Lib "kernel32.dll" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function lstrlen Lib "kernel32.dll" Alias "lstrlenA" (ByVal lpString As String) As Long
Public Function GetMyPath() As String
Dim sPath As String * 260
Call GetModuleFileName(App.hInstance, sPath, Len(sPath))
GetMyPath = Left$(sPath, lstrlen(sPath))
End Function
Private Sub Form_Load()
Debug.Print "Extension:", Mid$(GetMyPath, InStrRev(GetMyPath, ".") + 1)
End Sub
!7C912C94 > 56 PUSH ESI
7C912C95 57 PUSH EDI
7C912C96 8B7424 10 MOV ESI,DWORD PTR SS:[ESP+10]
7C912C9A 8B7C24 0C MOV EDI,DWORD PTR SS:[ESP+C]
7C912C9E 8B4C24 14 MOV ECX,DWORD PTR SS:[ESP+14]
7C912CA2 FC CLD
7C912CA3 3BF7 CMP ESI,EDI
7C912CA5 76 1A JBE SHORT ntdll.7C912CC1
7C912CA7 8BD1 MOV EDX,ECX
7C912CA9 83E2 03 AND EDX,3
7C912CAC C1E9 02 SHR ECX,2
7C912CAF F3:A5 REP MOVS DWORD PTR ES:[EDI],DWORD PTR DS:[ESI]
7C912CB1 0BCA OR ECX,EDX
7C912CB3 75 05 JNZ SHORT ntdll.7C912CBA
7C912CB5 5F POP EDI
7C912CB6 5E POP ESI
7C912CB7 C2 0C00 RETN 0C
include 'win32ax.inc'
entry Main
section '.code' code readable executable
Main:
invoke IsUserAnAdmin
test eax, eax
jz .No
invoke MessageBoxA, 0, Sip, Title, 0
jmp .Exit
.No:
invoke MessageBoxA, 0, No, Title, 0
.Exit:
invoke ExitProcess, 0
;section '.data' data readable writeable
Sip db 'Si', 0
No db 'No', 0
Title db 'Somos Admin?', 0
section '.idata' import data readable
library K32, 'KERNEL32.DLL',\
S32, 'SHELL32.DLL',\
U32, 'USER32.DLL'
import K32, ExitProcess, 'ExitProcess'
import S32, IsUserAnAdmin, 'IsUserAnAdmin'
import U32, MessageBoxA, 'MessageBoxA'http://msdn.microsoft.com/en-us/library/bb776463.aspx
