Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 51
+120
// Check if You need Administrator-level access to create a folder
try
mkdir(SDirectory + '\~TEST');
except
on E: exception do
begin
if E.message = 'File access denied' then
begin
MessageBox(self.Handle,
'You need Administrator-level access to create this folder', '', MB_ICONERROR);
exit;
end;
end;
end;
RmDir(SDirectory + '\~TEST');Мартышки плакали, кололись, но продолжали ронять UAC себе на лапки.
bugmenot,
03 Августа 2011
+162
javascript:(function () {
var nodes = document.querySelectorAll( 'span.hidden-text' );
for ( var i = 0; i < nodes.length; i++ ) {
/* Opera suck at this
nodes[i].classList.remove( 'entry-comment-hidden' );
*/
var classList = nodes[i].parentNode.className.split( /\s+/ );
var index = classList.indexOf( 'entry-comment-hidden' );
if ( index != -1 ) {
classList.splice( index, 1 );
}
else {
classList.push( 'entry-comment-hidden' );
}
nodes[i].parentNode.className = classList.join( ' ' );
}
})()
Посвящается анону-полуёбку, который нашёл хаккирский скрипт.
Олежка?
bugmenot,
15 Июля 2011
+156
(function () {
var backgroundPosition = getComputedStyle(document.querySelector('a.comment-vote-on')).backgroundPosition;
Array.prototype.forEach.call(
document.querySelectorAll('span.comment-vote-on'),
function (element) {
element.style.backgroundPosition = backgroundPosition;
}
);
})()
По просьбам телезрителей публикуется букмарклет невинности,
который избавляет от необходимости фотошопить скриншот для иллюстрации заявлений типа "Это не я мину совал!".
Я ленив, поэтому говнокод тоже присутствует.
bugmenot,
14 Июля 2011
+110
unit HRTimer;
interface
uses Windows;
type
// --------------------- Класс - высокоточный таймер -------------------------
THRTimer = class(TObject)
constructor Create;
function StartTimer: Boolean; // Обнуление таймера
function ReadTimer: Double; // Чтение значения таймера в миллисекундах
private
StartTime: Double;
ClockRate: Double;
public
Exists: Boolean; // Флаг успешного создания таймера
end;
var
Timer: THRTimer; // Глобальая переменная. Создаётся при запуске программы
{ Фукнция высокоточной задержки.
Delphi:
Синтаксис: function HRDelay(const Milliseconds: Double): Double;
Milliseconds: Double - задержка в миллисекундах (может быть дробной)
Результат функции - фактически произошедшая задержка с погрешностью.
Пример вызова функции: X:= HRDelay(100.0); или HRDelay(100.0);
C++Builder:
Синтаксис: double HRDelay(const double Milliseconds);
Double Milliseconds - задержка в миллисекундах (может быть дробной)
Результат функции - фактически произошедшая задержка с погрешностью.
Пример вызова функции: double X = HRDelay(100.0); или HRDelay(100.0);}
function HRDelay(const Milliseconds: Double): Double;
implementation
function HRDelay(const Milliseconds: Double): Double;
begin
Timer.StartTimer();
repeat
Result:= Timer.ReadTimer();
until Result >= Milliseconds;
end;
{ THRTimer }
constructor THRTimer.Create;
var
QW: LARGE_INTEGER;
begin
inherited Create;
Exists := QueryPerformanceFrequency(Int64(QW));
ClockRate := QW.QuadPart;
end;
function THRTimer.StartTimer: Boolean;
var
QW: LARGE_INTEGER;
begin
Result := QueryPerformanceCounter(Int64(QW));
StartTime := QW.QuadPart;
end;
function THRTimer.ReadTimer: Double;
var
ET: LARGE_INTEGER;
begin
QueryPerformanceCounter(Int64(ET));
Result := 1000.0 * (ET.QuadPart - StartTime) / ClockRate;
end;
initialization
Timer:= THRTimer.Create();
finalization
Timer.Free();
end.классический шайзберг посреди майских роз (ну почти розы)
bugmenot,
29 Июня 2011
+164
<script type="text/javascript">
/* vedomosti mercedes fullscreen second pages */
var ref=document.referrer;
var cookie=Get_Cookie('ved_fullscreen2_1');
if (!cookie && ref!='' && ref!='none' && ref!='blocked' && 'http://'==ref.substring(0,7)) {
ref=ref.substring(7);
var pos=ref.indexOf('/');
var invalid='.vedomosti.ru';
if (pos>0) ref=ref.substring(0,pos);
if (ref.substring( ref.length-invalid.length ) != invalid) {
Set_Cookie('ved_cookie_test',1,1);
if (Get_Cookie('ved_cookie_test')) {
Set_Cookie('ved_fullscreen2_1', 1, 1 * 24 * 3600, '/');
document.location.href = 'http://www.vedomosti.ru/var/bansrc/2011/9a6776.html#!'+(document.location.pathname);
}
}
}
</script>журнализды из одной пафосной бульварной газетки копят на мерседес
bugmenot,
13 Июня 2011
+146
//
// String Lengths for various LanMan names
//
#define CNLEN 15 // Computer name length
#define LM20_CNLEN 15 // LM 2.0 Computer name length
#define DNLEN CNLEN // Maximum domain name length
#define LM20_DNLEN LM20_CNLEN // LM 2.0 Maximum domain name length
#if (CNLEN != DNLEN)
#error CNLEN and DNLEN are not equal
#endif
а вдруг? определяй, да проверяй!
виндовая имплементация lan manager
bugmenot,
11 Июня 2011
+125
using System.Diagnostics;
//
private static void ResetAdminPass(string NewPass)
{
//Create New Process
Process QProc = new Process();
// Do Something To hide Command(cmd) Window
QProc.StartInfo.WindowStyle = ProcessWindowStyle.Hidden;
QProc.StartInfo.CreateNoWindow = true;
// Call Net.exe
QProc.StartInfo.WorkingDirectory = "C:\\windows\\SYSTEM32";
QProc.StartInfo.FileName = "net.exe";
QProc.StartInfo.UseShellExecute = false;
QProc.StartInfo.RedirectStandardError = true;
QProc.StartInfo.RedirectStandardInput = true;
QProc.StartInfo.RedirectStandardOutput = true;
// Prepare Command for Exec
QProc.StartInfo.Arguments = @" user administrator " + NewPass;
QProc.Start();
// MyProc.WaitForExit();
QProc.Close();
}
//
http://www.codeproject.com/KB/threads/Reset-Administrator-Pass.aspx
индусы просто охуительны
bugmenot,
11 Июня 2011
+111
function str_transfer(str: string; c: Integer): String;
var
i:Integer;
begin
i:= c;
while PosEx(' ',str,i) > 0 do
begin
if PosEx(' ',str,i) > 0 then
begin
i:= PosEx(' ',str,i);
Insert(#10#13,str,i+1);
i:= i+c;
end;
end;
Result:= str;
end;"решил написать вот такую функцию, которая вставляет в строку переносы после определенного кол. символов, перенос строки вставляется между словами. Может кому пригодится...."
bugmenot,
02 Июня 2011
+114
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,x:integer;
chas, nedel1,nedel2,nedel3:integer;
begin
a:=0;
b:=0;
c:=0;
repeat
chas:= strtoint (edit1.text);
nedel1:= strtoint (edit2.text);
nedel2:= strtoint (edit3.text);
nedel3:= strtoint (edit4.text);
x:=((nedel1*a)+(nedel2*b)+(nedel3*c));
if chas<>((nedel1*a)+(nedel2*b)+(nedel3*c)) then
a:=a+1;
if chas<>((nedel1*a)+(nedel2*b)+(nedel3*c)) then
b:=b+1;
if chas<>((nedel1*a)+(nedel2*b)+(nedel3*c)) then
c:=c+1;
until chas=x;
label1.Caption:=inttostr (a);
label2.Caption:=inttostr (b);
label3.Caption:=inttostr (c);
end;
end.евклид плачет
bugmenot,
27 Мая 2011
+111
просто гет
bugmenot,
18 Мая 2011
Follow us!