[rahul19285]

One question When i build the server and if use icon injector and inject an icon in server then all information is erase from server howz that possible ?

[haunter90]

Thanks , this is one of the guides I've read while taking my baby steps into VB.Net

[Drayk]

can you use appendtxt multiple times on 1 bin?
i want to change more than just 1 string in the stub bin.. i've no idea why this keeps failing on me maybe a lack of sleep?
it would be cool if you could help me out on this one..

[Coder-san]

One question When i build the server and if use icon injector and inject an icon in server then all information is erase from server howz that possible ?

What are you talking about?

can you use appendtxt multiple times on 1 bin?
i want to change more than just 1 string in the stub bin.. i've no idea why this keeps failing on me maybe a lack of sleep?
it would be cool if you could help me out on this one..

Yes, AppendText is used especially for the purpose of using it multiple times.
For example:

Code:

Dim sWriter As IO.StreamWriter = IO.File.AppendText("C:\test.txt")
        sWriter.Write("Hello|SPLIT|", True)
        sWriter.Write("Field2|SPLIT|", True)
        sWriter.Write("Field3|SPLIT|", True)
        sWriter.Flush()
        sWriter.Close()

[Drayk]

Iam sorry to say but its confusing me still in the stub iam having this code

Code:

Dim Binstr As String = IO.File.ReadAllText(Application.ExecutablePath)
            Dim src() As String = Split(Binstr, "YouShouldNotSeeThis")
            Dim src2() As String = Split(Binstr, "YouShouldNotSeeThis2")
            For chapO As Integer = 1 To UBound(src)
                CustomHost = src(chapO)
            Next
            For chap1 As Integer = 2 To UBound(src2)
                CustomHost_FTP = src(chap1)
            Next

the builder is trying to write like this

Code:

IO.File.Copy(VirusItself, CurDir() & "\output\virus.exe")
            IO.File.AppendAllText(CurDir() & "\output\virus.exe", "YouShouldNotSeeThis" & TextBox1.Text)
            IO.File.AppendAllText(CurDir() & "\output\virus.exe", "YouShouldNotSeeThis2" & TextBox2.Text)

Result in the msgbox is: ,2ftp://ftpserverhost.net/ totally wrong..

Code:

MsgBox(CustomHost_FTP + ", " + CustomHost)

[Coder-san]

It's a problem of your filesplits.

YouShouldNotSeeThis2 also contains YouShouldNotSeeThis

Therefore src() also has src2() data, which is messing with your output.

[Drayk]

kay now the content of both textboxes are getting copied to "CustomHost" and "CustomHost_FTP" is empty

Code:

Dim Binstr As String = IO.File.ReadAllText(Application.ExecutablePath)
            Dim a_Host() As String = Split(Binstr, "8349")
            Dim b_FTP() As String = Split(Binstr, "yiff")
            For dX As Integer = 1 To UBound(a_Host)
                CustomHost = a_Host(dX)
            Next
            For Qz As Integer = 2 To UBound(b_FTP)
                CustomHost_FTP = b_FTP(Qz)
            Next

this really is getting annoying now since this is the only part in the app that needs to get done.. everything else is already been coded around -.^
iam going to think about other ways of doing it but its kinda frustrating.

[Coder-san]

You don't need to make this any more complex by using loops.
Just do this:

Code:

Dim Binstr As String = IO.File.ReadAllText(Application.ExecutablePath)
CustomHost = Split(Binstr, "8349")(1)
CustomHost_FTP = Split(Binstr, "yiff")(1)

[ateto29]

thanks mate ,but my avira is 2012 alerts me for the generated server and says it contains TR/Dropper.Gen virus .
can any one help me to over come this alerts !

---

first of all thanks mate for your code , but when i build the server my avira IS 2012 alerts me for
virus called TR/Dropper.Gen .
can you or any onle else help me to over come the problem ?!:headbash:

[enanobp]

thanks this really help me out!