1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

ПОМОЩЬ

Тема в разделе "Программирование", создана пользователем K_NoW, 17 май 2015.

  1. TopicStarter Overlay
    K_NoW

    K_NoW HackMe Please

    Регистрация:
    16 мар 2014
    Сообщения:
    464
    Симпатии:
    222
    Карочи есть кодес:
    Код:
    
    Public Class Form1
        Dim fileLoc As String
        Sub Main() Handles Me.Load
        End Sub
        '***********************PICTURE**************************
        '********************************************************
        Public Sub reFUDme_Scan(token As String, file As String)
            Try
                Dim wc As New WebClient()
                AddHandler wc.UploadFileCompleted, AddressOf getResults
                wc.UploadFileAsync(New Uri("http://www.refud.me/api.php?auth_token=" & token), "POST", file)
                While wc.IsBusy
                    Application.DoEvents()
                End While
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End Sub
        Private Sub getResults(sender As Object, e As UploadFileCompletedEventArgs)
            Dim imgUrl As String = System.Text.Encoding.UTF8.GetString(e.Result)
            Dim scanUrl As String = String.Concat("http://www.refud.me/results.php?id=", imgUrl.Substring(imgUrl.LastIndexOf("/"c) + 1).Replace(".png", String.Empty))
            Dim tempPic As String = System.IO.Path.GetTempFileName()
            With (New WebClient)
                .DownloadFile(imgUrl, tempPic)
            End With
            'Load Picture into the picture box & url into text box 
            'A text result will be available in the future.
            PicBox1.PictureFile = tempPic
            TextBox1.Text = scanUrl
        End Sub
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim ofd As New OpenFileDialog() With {.Filter = "Any File|*.*"}
            If ofd.ShowDialog() = DialogResult.OK Then
                fileLoc = ofd.FileName
            End If
        End Sub
    
        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            If (System.IO.File.Exists(fileLoc)) Then
                reFUDme_Scan("123456", fileLoc)
            End If
        End Sub
    
        '*************************TEXT***************************
    '********************************************************
        Public Sub reFUDme_ScanText(token As String, file As String)
            Try
                Dim wc As New WebClient()
                AddHandler wc.UploadFileCompleted, AddressOf getTextResults
                wc.UploadFileAsync(New Uri("http://www.refud.me/api.php?auth_token=" & token & "&type=text"), "POST", file)
                While wc.IsBusy
                    Application.DoEvents()
                End While
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End Sub
    
        Private Sub getTextResults(sender As Object, e As UploadFileCompletedEventArgs)
            Dim response As String = System.Text.Encoding.UTF8.GetString(e.Result)
            Dim dict As Dictionary(Of String, String) = New JavaScriptSerializer().Deserialize(Of Dictionary(Of String, String))(response)
            Dim result As String = dict("result")
            Dim url As String = dict("url")
            dict.Remove("result")
            dict.Remove("url")
            For Each antiVirus As KeyValuePair(Of String, String) In dict
                Dim name As String = antiVirus.Key
                Dim detection As String = antiVirus.Value
                Dim antiV As ListViewItem = ListView1.Items.Add(name)
                antiV.SubItems.Add(detection)
            Next
            TextBox3.Text = result & "/35"
            TextBox2.Text = url
        End Sub
    
    Обьясните мне как прога получает результат сканирования. В сниффере пусто.
     
    Метки:
  2. TopicStarter Overlay
    K_NoW

    K_NoW HackMe Please

    Регистрация:
    16 мар 2014
    Сообщения:
    464
    Симпатии:
    222
    Всёёёё, разобрался, это счёт сниффер лагал.
     

Поделиться этой страницей

Загрузка...