- 1
awk -F "" 'BEGIN{OFS=""}$890$891$892$893=="0003"{sub("5","2",$917)}{print}' < posting.dat
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+130
awk -F "" 'BEGIN{OFS=""}$890$891$892$893=="0003"{sub("5","2",$917)}{print}' < posting.dat
Свеженькое:) Только что написал.
Оказывается, и -F "" на что-то сгодился, зря я на него гнал.
+163
smart_ptr<const AbstractElanos> pointy;struct Intializer{Intializer(void){pointy=new Elanos;};}initer;
Согласно проектного решения
smart_ptr<const AbstractElanos> pointy=new Elanos;
+162
//В H:
//...
#define Addr Byte
//...
//В СРР:
//...
bool Eraxcs(Addr b)
{
assert(sizeof(b)>0);
//...
+157
function month_to_number(a) {
if (a == 'Jan') {
a = '01';
}
if (a == 'Feb') {
a = '02';
}
if (a == 'Mar') {
a = '03';
}
if (a == 'Apr') {
a = '04';
}
if (a == 'May') {
a = '05';
}
if (a == 'Jun') {
a = '06';
}
if (a == 'Jul') {
a = '07';
}
if (a == 'Aug') {
a = '08';
}
if (a == 'Sep') {
a = '09';
}
if (a == 'Oct') {
a = '10';
}
if (a == 'Nov') {
a = '11';
}
if (a == 'Dec') {
a = '12';
}
return a;
};
+164
<?
$mult=$mult+0;
if ($mult<1 and $mult>38) $mult="001";
$mult = substr("00".$mult, 0,3);
//echo "mult=".$mult."<br>";
$title="Мультик №".$mult;
include ('../../novost/l1.htm');
$minmult=1+1;
$maxmult=38-1;
$multa= "00".($mult-1);
$multb= "00".($mult+1);
$multa = substr($multa, -3);
$multb = substr($multb, -3);
if ($mult>$maxmult) $multb="001";
if ($mult<$minmult) $multa="038";
?>
<!-- ********************************************** -->
<SCRIPT SRC="embedFlash.js" LANGUAGE="JavaScript" TYPE="text/javascript"></SCRIPT>
<CENTER>
<SCRIPT LANGUAGE="JavaScript">embedFlash("<? echo $mult; ?>.swf","100%","100%");</SCRIPT>
<br>
<a href="play.php?mult=<? echo $multa; ?>">Предыдущий</a> |
<a href="./">Список</a> |
<a href="play.php?mult=<? echo $multb; ?>">Следующий</a>
</CENTER>
<!-- ********************************************** -->
<?php include ('../../novost/l3.htm'); ?>
код моего друга админа)
+162
function plusDay($data){
$dat=explode(".",$data);
if ($dat[0]<28){
$dat++;
} else {
if (($dat[1]!=2)&&($dat[0]<31)){
$dat[0]++;
}
if (($dat[1]==2)&&($dat[0]==28)){
$dat[1]++;
$dat[0]=1;
}
if (($dat[1]==1)&&($dat[1]==3)&&($dat[1]==5)&&($dat[1]==7)&&($dat[1]==8)&&($dat[1]==10)&&($dat[1]==12)&&($dat[0]==31)){
$dat[0]=1;
if ($dat[1]==12){
$dat[2]++;
$dat[1]=1;
}else{
$dat[1]++;
}
}
if (($dat[1]==4)&&($dat[1]==6)&&($dat[1]==9)&&($dat[1]==11)&&($dat[0]==30)){
$dat[0]=1;
$dat[1]++;
}
}
return implode(".",$dat);
}
+74
private void StreamToBytes()throws Exception
{
int i;
InputStream in=getStream();
ArrayList<Integer> byt=new ArrayList<Integer>();
while((i=in.read())!=-1)
{
byt.add(i);
}
in.close();
b=new byte[byt.size()];
for(int j=0;j<b.length;j++)
{
b[j]=byt.get(j).byteValue();
}
}
+166
<?php
session_start();
// супер-мега защита от ддоса
$_SESSION['antiddos']==time() ? exit() : $_SESSION['antiddos']=time();
//конец супер мега защиты
....
?>
Найдено в старом проекте, код не мой.
Но вы знаете, от толпы школьников с кнопками F5 это реально помогает!
+100
procedure WriteCharXY(_bx,by:integer; ch:char; tcol:word);
var buf:array[1..18,1..12] of word;
XOfs:longint;
x,y,px,py:integer;
begin
XOfs:=GetCharOffset(ch);
if xofs=0 then fillchar(buf,sizeof(buf),200) else
fromXMS(XOfs,addr(buf),432);
for y:=1 to 18 do
for x:=1 to 12 do begin
if buf[y,x]=0 then begin
px:=_bx+x; py:=by+y;
asm
mov bx,px; add bx,actviewport.x1; cmp bx,fillviewport.x1;
jl @end; cmp bx,fillviewport.x2; jg @end;
mov cx,currentmode.scanline; cmp bx,cx; jnb @end;
mov ax,py; add ax,actviewport.y1; cmp ax,fillviewport.y1;
jl @end; cmp ax,fillviewport.y2; jg @end;
add ax,pageadd; mul cx; add bx,bx;
add ax,bx; adc dx,0; mov si,ax;
cmp dx,lastbank; je @next; push dx;
call nearsetbank2; @next: mov es,[currentmode.writeptr];
mov ax,tcol; {cmp writemode,0; jne @doxor;}
mov es:[si],ax; {jmp @end; @doxor: xor es:[si],ax;} @end:
end;
end;
end;
end;
procedure WriteStringXY(x,y,maxx:integer; s:string; col:word);
var tx,ty:integer; i:word;
begin tx:=x; ty:=y;
for i:=0 to length(s) do begin
writecharXY(tx,ty,s[i],col);
inc(tx,GetCharWidth(s[i]));
if (tx>=maxx) and (s[i]=' ') then begin inc(ty,18); tx:=x; end;
end;
end;
procedure Write5Strings(x,y,maxx:integer; col:word; s1,s2,s3,s4,s5:string;
letterdelay:byte);
var tx,ty:integer; t,i:word;
st:array[1..5] of string;
begin tx:=x; ty:=y;
st[1]:=s1; st[2]:=s2; st[3]:=s3; st[4]:=s4; st[5]:=s5;
for t:=1 to 5 do begin
if length(st[t])=0 then exit;
for i:=1 to length(st[t]) do begin
writecharXY(tx,ty,st[t][i],col);
if letterdelay>0 then pdel(letterdelay);
inc(tx,GetCharWidth(st[t][i]));
if (tx>=maxx-100) and (st[t][i]=' ') then begin
inc(ty,18); tx:=x; end;
end;
end;
end;
Молодость.
+161
switch ($action)
{
case 'error_php':
showError('php'); #
break;
case 'error_short_tag':
showError('tag'); #
break;
case 'index':
showIndex(); #
break;
case 'license':
showLicense(); #
break;
case 'choose':
showChoose(); #
break;
case 'postchoose':
showPostChoose(); #die($action."");
break;
case 'system':
showSystem(); # после выбора цвета макета переходим сюда
break;
case 'build':
showBuild(); # потом сюда
break;
case 'configure':
showConfigure(); # если без структуры идём сюда
break;
case 'uninstall':
showUninstall();
break;
case 'install':
showInstall();
break;
case 'postinstall':
showPostInstall();
break;
case 'vars':
downloadConfigFile();
break;
}
Структурное программирование от авторов инсталлятора NetCat.