Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 34
+162
/* Присваивание объекту свойств.
* o изменяемый объект.
* Max Pro.
*/
function Font11(o)
{
if(bNavigator==true&&iNavigator!=2)
{
o.style.fontFamily="sans-serif";
o.style.fontSize="11pt";
}
} //end Font11(o)мощно, сурово, независимо
ursus,
20 Мая 2010
+132
DWORD WINAPI readPort( LPVOID lpParam )
{
while (1)
{
if (brkListen)
break;
if (((Param*)(void*)lpParam)->port)
if (fgetc(((Param*)(void*)lpParam)->port)!=EOF);
((Param*)(void*)lpParam)->count++;
}
return 0;
}Кусок программы подсчёта импульсов с оптопорта. Мало того что так делать плохо, так ещё один косяк есть. RS232 ниже 64 бод в винде не держит. так и не выяснил в физике это дело или в оси. Под RTEMS 6.04 64 бод на ура считалось.
ursus,
19 Мая 2010
+164
o.style.cursor="wait";
document.body.style.cursor="wait";
switch(iCellSelected)
{
case 2:
//задержка .1с
AnyPage("1_2");
break;
case 4:
//задержка .1с
AnyPage("1_3");
break;
case 6:
//задержка .1с
AnyPage("1_4");
break;
case 8:
//задержка .1с
AnyPage("1_5");
break;
case 10:
//задержка .1с
AnyPage("1_6");
break;
case 12:
//задержка .1с
AnyPage("1_7");
break;
} //end switch(iCellSelected)
Это сайт максима прохорова. Посмотревших ждёт батхэт.
http://ee324704-1.hosting.parking.ru/
ursus,
18 Мая 2010
+100
int wmain()
{
_rmCfg rmCfg;
double tt;
int i;
String *filePath=S"C:\\rm\\rm.cfg";
String * sqlstr;
rmCfg.isread=0;
String * dir[];
DateTime dt;
if (File::Exists(filePath))
{
StreamReader *sr= new StreamReader(filePath);
rmCfg.gosanPath=sr->ReadLine();
rmCfg.iakServer=sr->ReadLine();
rmCfg.iakUser=sr->ReadLine();
rmCfg.iakPassword=sr->ReadLine();
rmCfg.trackId=sr->ReadLine()->ToInt32(0);
// rmCfg.trName=sr->ReadLine();
Console::WriteLine(S"Viewing directory: ");
Console::Write(rmCfg.gosanPath);
Console::WriteLine();Писано было на втором фреймворке. Так бы и продолжал писать, если бы товарищ не намекнул про сериализацию.
ursus,
05 Мая 2010
+129
#define SPI_BUF_SIZE 0x400
#define SDRAM_SPI_0_BUF_MISO (void*)0x100000
#define SDRAM_SPI_0_BUF_MOSI SDRAM_SPI_0_BUF_MISO - SPI_BUF_SIZE
#define SDRAM_SPI_1_BUF_MISO SDRAM_SPI_0_BUF_MOSI - SPI_BUF_SIZE
#define SDRAM_SPI_1_BUF_MOSI SDRAM_SPI_1_BUF_MISO - SPI_BUF_SIZE
#define SDRAM_SPI_2_BUF_MISO SDRAM_SPI_1_BUF_MOSI - SPI_BUF_SIZE
#define SDRAM_SPI_2_BUF_MOSI SDRAM_SPI_2_BUF_MISO - SPI_BUF_SIZE
#define SDRAM_SPI_3_BUF_MISO SDRAM_SPI_2_BUF_MOSI - SPI_BUF_SIZE
#define SDRAM_SPI_3_BUF_MOSI SDRAM_SPI_3_BUF_MISO - SPI_BUF_SIZE
void test()
{
void *buf = SDRAM_SPI_3_BUF_MOSI;
void *buf1 = (void*)0x100000 - 0x400*7;
*buf = *buf1 = 0xAA;
printf("buf=%.2x \tbuf1=%.2x\n ",*buf, buf1);
return;
}
Расскажу преамбулу. Код писался под проц atmel at91sam7x
В этом процессоре есть звено SPI (serial pereferial interface). Но так как звено было спроектировано с небольшим косячком (который кстати в эррате был явно описан) буффер для каждой линии нужно было выделять в сдраме.
Сказано - сделано. Выделили. а так как средства отладки только DBGU и JTAG.
Все волосы на жопе вырвал пока нашел в чем ошибка.
Внимание, вопрос. В чем гавно?
ursus,
29 Апреля 2010
+73
ICQ::logInIcq( )
{
TLV clid1,clid,clm,clmin,clless,clbild,cldistr,cllang,clcontr,t1;
WSA ws;
int packn;
unsigned char st1[40];
port=ControlIcqPropert.portIcqServer;
host=(char*)ControlIcqPropert.IcqServer;
if((strlen(host)==0)|(port==0))
{
port=DEFAULT_SERVER_PORT;
host=DEFAULT_SERVER_HOST;
}
if(strlen(password)<3) return 0;
pn=sock.Connect( host,port );
packn=sock.Receive( ( char * )uc,sizeof( uc ),0,0 );
if( packn <= 0 ){return 1;}
//SetIndic(10);
tUin.type=0x0100;
tUin.lenght[0]=0x00;//htons( ( BYTE )strlen( uin ) );
tUin.lenght[1]=strlen(uin);
memcpy( tUin.data,uin,strlen( uin ) );
flap.chan_id=0x01;
flap.Sequence+=0x0100;
flap.datalenght[0]=0x00;
flap.datalenght[1]=0x04;
flap.data[0]=0x00;
flap.data[1]=0x00;
flap.data[2]=0x00;
flap.data[3]=0x01;
packn=sock.Send( ( const char * )&flap,10,0 );
flap.Sequence+=0x0100;
flap.chan_id=0x02;
t1.type=0x1700;
t1.lenght[0]=0x00;
t1.lenght[1]=0x06;
t1.data[0]=0x00;
t1.data[1]=0x00;
t1.data[2]=0x00;
t1.data[3]=0x00;
t1.data[4]=0x00;
t1.data[5]=0x00;
int lnum=0;
lnum+=10;
memcpy( &st1,&t1,lnum );
memcpy( &st1[lnum],&tUin,strlen(uin)+4 );
lnum+=strlen(uin)+4;
unsigned char u1[4];
u1[0]=0x00;
u1[1]=0x4B;
u1[2]=0x00;
u1[3]=0x00;
memcpy( &st1[lnum],&u1,4 );
lnum+=4;
memcpy( flap.data,&st1,lnum );
flap.datalenght[0]=0x00;
flap.datalenght[1]=0x1B;
lnum+=6;
packn=sock.Send( ( char * )&flap,lnum,0 );
//memcpy( &flap,NULL,4096 );
packn=sock.Receive( ( char * )&inflap,sizeof( inflap ),0 );
memcpy( &uc,&inflap,packn );
memcpy( &snac,&uc[6],packn-6 );
memcpy( key,&snac.data[2],snac.data[1] );
int ii;
MD5_CTX Md5Ctx;
HASH hash;
MD5Init ( &Md5Ctx );
MD5Update( &Md5Ctx, ( unsigned char* )password, strlen( password ) );
MD5Final ( ( uchar* )hash, &Md5Ctx );
MD5Init ( &Md5Ctx );
MD5Update( &Md5Ctx, ( unsigned char* )key, snac.data[1] );
MD5Update( &Md5Ctx, ( unsigned char* )hash, 16 );
MD5Update( &Md5Ctx, ( unsigned char* )AIM_MD5_STRING, strlen( AIM_MD5_STRING ) );
MD5Final ( ( uchar* )hash, &Md5Ctx );
flap.chan_id=0x02;
flap.Sequence+=0x0100;
flap.datalenght[0]=0x00;
flap.datalenght[1]=0x72;
t1.lenght[0]=0x00; //Not Lenght!!! it is SNAC!!!
t1.lenght[1]=0x02;
memcpy( uc,&t1,10 );
memcpy( &uc[10],&tUin,13 );
TLV auth_h;
auth_h.type=0x2500;
auth_h.lenght[0]=0x00;
auth_h.lenght[1]=0x10;
memcpy( &auth_h.data,&hash,16 );
memcpy( &uc[23],&auth_h,20 );
uc[43]=0x00;
uc[44]=0x4c;
uc[45]=0x00;
uc[46]=0x00;
clid1.type=0x0300;Много лет назад, будучи молодым программером писал абсолютное гавно. Была поставлена задача реализовать протокол оскар 11 в одной бухгалтерской системе. Полное отсутствие архитектуры приложения, бизнес-слоя. В общем мне тогда сказали что так писать не надо и с треском выгнали. После этого так перестал писать :-)
ursus,
29 Апреля 2010
−86
using System;
using System.Web;
using MaxPro;
namespace HandlerFile
{
public class FileHttpHandler : IHttpHandler
{
// Переопределяем метод ProcessRequest.
public void ProcessRequest(HttpContext context)
{
//var
Byte[] oImg;
Int32 iId=0;
Int32 iRemInt=0;
//var Zap
Int32 iNum=0;
Exception oErr;
Object[,] oZap=new Object[0,0];
//end var
if(All.IsInteger(context.Request.QueryString["iId"]))
{
iId=Convert.ToInt32(context.Request.QueryString["iId"]);
iNum=Ow.iZap1i("OneWindow.Procedure173","@iId",iId,out oZap,out oErr);
}
else if(All.IsInteger(context.Request.QueryString["iRemInt"]))
{
iId=Convert.ToInt32(context.Request.QueryString["iRemInt"]);
iNum=Ow.iZap1i("OneWindow.Procedure174","@iRemInt",iRemInt,out oZap,out oErr);
}
if(iNum>0)
{
oImg=(Byte[])oZap[0,0];
//генерация бинарного потока
/* Возможно пригодится, хотя ясности нет зачем,
* но когда ie сбоит и не открывает файл, то это помогает, особенно ClearHeaders
* Response.ClearContent()
* Response.ClearHeaders()
*///
context.Response.ContentEncoding=System.Text.Encoding.GetEncoding("UTF-8");
context.Response.Charset="UTF-8";
context.Request.ContentEncoding=System.Text.Encoding.UTF8;
switch (Convert.ToString(oZap[2,0]))
{
case "gif":
context.Response.ContentType="image/GIF";
context.Response.AddHeader("Content-Disposition","filename="+Convert.ToString(oZap[1,0]));
break;
case "jpg":
context.Response.ContentType="image/JPEG";
context.Response.AddHeader("Content-Disposition","filename="+Convert.ToString(oZap[1,0]));
break;
case "jpeg":
context.Response.ContentType="image/JPEG";
context.Response.AddHeader("Content-Disposition","filename="+Convert.ToString(oZap[1,0]));
break;
case "bmp":
context.Response.ContentType="image/BMP";
context.Response.AddHeader("Content-Disposition","filename="+Convert.ToString(oZap[1,0]));
break;
case "png":
context.Response.ContentType="image/PNG";
context.Response.AddHeader("Content-Disposition","filename="+Convert.ToString(oZap[1,0]));
break;
case "txt":
context.Response.ContentType="text/plain";
context.Response.AddHeader("Content-Disposition","filename="+Convert.ToString(oZap[1,0]));
break;
case "htm":
context.Response.ContentType="text/HTML";
context.Response.AddHeader("Content-Disposition","filename="+Convert.ToString(oZap[1,0]));
break;
case "html":
context.Response.ContentType="text/HTML";
context.Response.AddHeader("Content-Disposition","filename="+Convert.ToString(oZap[1,0]));
break;
case "xls":
context.Response.ContentType="application/vnd.ms-excel";
context.Response.AddHeader("Content-Disposition","attachment; filename="+Convert.ToString(oZap[1,0]));
break;
case "doc":
context.Response.ContentType="application/msword";
context.Response.AddHeader("Content-Disposition","attachment; filename="+Convert.ToString(oZap[1,0]));
break;
case "dot":
context.Response.ContentType="application/msword";
context.Response.AddHeader("Content-Disposition","attachment; filename="+Convert.ToString(oZap[1,0]));
break;
case "ppt":
context.Response.ContentType="application/vnd.ms-powerpoint";
context.Response.AddHeader("Content-Disposition","attachment; filename="+Convert.ToString(oZap[1,0]));
break;
default:
context.Response.AddHeader("Content-Disposition","attachment; filename="+Convert.ToString(oZap[1,0]));
break;
}
context.Response.OutputStream.Write(oImg,0,oImg.Length);
}
}а вам слабо? всё те же мос окна
ursus,
26 Апреля 2010
−92
public class Chart//работа с ChartSpace
{
/* String sCategories="значение1"+СимволТабуляции(символ с кодом 9)+"значение2"+...
* String sValues="значение1"+СимволТабуляции(символ с кодом 9)+"значение2"+...
*/
//В VB6 также вместе со "строками через табулятор" поддерживаются одномерные массивы
//var
public const String sProcedure001 = "OneWindow.Procedure121";
public const String sProcedure002 = "OneWindow.Procedure122";
public const String sProcedure003 = "OneWindow.Procedure123";
public const String sProcedure004 = "OneWindow.Procedure124";
public const String sProcedure005 = "OneWindow.Procedure125";
public static Int32 iDataLiteral = Convert.ToInt32(OWC11.ChartSpecialDataSourcesEnum.chDataLiteral);
public static Object[,] _oZap001;
public static Object[,] _oZap002;
public static Object[,] _oZap003;
public static Object[,] _oZap004;
public static Object[,] _oZap005;
//end var
//property
public static Object[,] oZap001
{
//var
//end var
get
{
Int32 iNum = 0;
Exception oErr;
if (_oZap001 == null)
{
iNum = Ow.iZap0(sProcedure001, out _oZap001, out oErr);
if (iNum <= 0)
{
_oZap001 = null;
}
}
return _oZap001;
}
}
public static Object[,] oZap002
{
//var
//end var
get
{
Int32 iNum = 0;
Exception oErr;
if (_oZap002 == null)
{
iNum = Ow.iZap0(sProcedure002, out _oZap002, out oErr);
if (iNum <= 0)
{
_oZap002 = null;
}
}
return _oZap002;
}
}
public static Object[,] oZap003
{
//var
//end var
get
{
Int32 iNum = 0;
Exception oErr;
if (_oZap003 == null)
{
iNum = Ow.iZap0(sProcedure003, out _oZap003, out oErr);
if (iNum <= 0)
{
_oZap003 = null;
}
}
return _oZap003;
}
}
public static Object[,] oZap004
{
//var
//end var
get
{
Int32 iNum = 0;
Exception oErr;
if (_oZap004 == null)
{
iNum = Ow.iZap0(sProcedure004, out _oZap004, out oErr);
if (iNum <= 0)
{
_oZap004 = null;
}
}
return _oZap004;
}
}
public static Object[,] oZap005
{
...
Я нашел абсолютное гавно!!!!!!
Максим Прохоров торжественно спиздил исходники сайта okno.mos.ru и забыл в конторе (хуй он забыл, на самом деле я ему доступ закрыл в один прекрасный момент).
Теперь буду выкладывать маленькими порциями. представляете, за это гавно отвалили миллионов 10. Чиновники их дружно освоили. А отвалили из нашего кармана. Я лично налоги плачу.
ursus,
23 Апреля 2010
+162
char pack_LOF_OBJ(LOF_OBJ *pobj, char* pdata)
{
*pdata =(unsigned char) (pobj->value << 16);
*(pdata + 1) = (unsigned char)(pobj->value << 8 >> 16 << 8);
*(pdata + 2) = (unsigned char)(pobj->value >> 16 << 16);
return 0x01;
};
тоже писал я. Умрите в мучениях, человеки.
Упакуем 4 байта согласно протоколу. Похуй маски. Главное сдвигами подрочить.
Когда господин шаша (мудрый и строгий начальник) сказал что я мудак - сразу поправил всё на маски.
ursus,
23 Апреля 2010
+157
//Русская рулетка. 7 газовых, один боевой.
act_rx_session_104(&apdu);
// printf ("recv I\n");
result = (*((COLLECTORHDLR*)((collector_cfg.pFILLHDL + (unsigned char)apdu.asdu.type)->pHandler)))
((HEAD_ASDU_60870*) &apdu.asdu);
Как то писал под OS Rtems 4.6 протокол 60870-5-104
эта строчка специально придумывалась как гавно, активизируещее механизм разбора пакета и запуска других механизмов.
ursus,
23 Апреля 2010
Follow us!