- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
#define true false
...
#define double int
...
#define TRUE FALSE
// удачной отладки суки
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+143.7
#define true false
...
#define double int
...
#define TRUE FALSE
// удачной отладки суки
+133.4
/****************************************************************************
#if !(TARGET_IS_NT50_OR_LATER)
#error You need a Windows 2000 or later to run this stub because it uses these features:
#error /robust command line switch.
#error However, your C/C++ compilation flags indicate you intend to run this app on earlier systems.
#error This app will die there with the RPC_X_WRONG_STUB_VERSION error.
#endif
...
где-то глубоко
* Macros for targeted platforms
****************************************************************************/
#if (0x501 <= _WIN32_WINNT)
#define TARGET_IS_NT51_OR_LATER 1
#else
#define TARGET_IS_NT51_OR_LATER 0
#endif
#if (0x500 <= _WIN32_WINNT)
#define TARGET_IS_NT50_OR_LATER 1
#else
#define TARGET_IS_NT50_OR_LATER 0
#endif
#if (defined(_WIN32_DCOM) || 0x400 <= _WIN32_WINNT)
#define TARGET_IS_NT40_OR_LATER 1
#else
#define TARGET_IS_NT40_OR_LATER 0
#endif
#if (0x400 <= WINVER)
#define TARGET_IS_NT351_OR_WIN95_OR_LATER 1
#else
#define TARGET_IS_NT351_OR_WIN95_OR_LATER 0
#endif
Код , сгенерированный компилятором MIDL для dll прокси/заглушки COM объекта.
VS2005 :)
+159.1
function dump_link($dump_id)
{
$a = date(G);
$b = date(i);
$c = date(s);
$day = date(j);
$mouth = date(n);
$year = date(Y);
$utc = date(Z);
$int = mktime($a, $b, $c, $mouth, $day, $year);
...
}
Наш ответ функции time()!
+99.7
foreach (char c in customField.CustomFieldId.ToLower()
.Replace("CustomField".ToLower(), String.Empty))
{
if (c < '0' || c > '9') fieldName += c;
}
Догадайтесь что он делает
+135.7
private void Form1_Load(object sender, EventArgs e)
{
List<defaultItem> EqQty = new List<defaultItem>();
EqQty.Add(new defaultItem(1, 1.ToString()));
EqQty.Add(new defaultItem(2, 2.ToString()));
EqQty.Add(new defaultItem(3, 3.ToString()));
EqQty.Add(new defaultItem(4, 4.ToString()));
EqQty.Add(new defaultItem(5, 5.ToString()));
cbEqQty.DataSource = EqQty;
cbEqQty.ValueMember = "Key";
cbEqQty.DisplayMember = "Value";
List<defaultItem> PlusQty = new List<defaultItem>();
PlusQty.Add(new defaultItem(1, 1.ToString()));
PlusQty.Add(new defaultItem(2, 2.ToString()));
PlusQty.Add(new defaultItem(3, 3.ToString()));
PlusQty.Add(new defaultItem(4, 4.ToString()));
PlusQty.Add(new defaultItem(5, 5.ToString()));
cbPlusQty.DataSource = PlusQty;
cbPlusQty.ValueMember = "Key";
cbPlusQty.DisplayMember = "Value";
}
public class defaultItem
{
public int Key { get; set; }
public String Value { get; set; }
/// <summary>
/// Коснтруктор
/// </summary>
/// <param name="Key"></param>
/// <param name="Value"></param>
public defaultItem
(
int Key,
String Value
)
{
this.Key = Key;
this.Value = Value;
}
}
Надо было два дропдауна при загрузке формы заполнить))
−864.1
select nvl2(view."DOC_TYPE", view."DOC_TYPE", '')||
nvl2(view."SDOC", ', серия:'||view."SDOC", '')||
nvl2(view."NDOC", ', номер:'||view."NDOC", '')||
... from view
Это всё в Оракле
+95.3
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
IdCookieManager, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, ExtCtrls, ComCtrls, Grids, ValEdit,IniFiles;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Button1: TButton;
IdHTTP1: TIdHTTP;
IdCookieManager1: TIdCookieManager;
ListView1: TListView;
Label1: TLabel;
Label2: TLabel;
ListBox1: TListBox;
GroupBox1: TGroupBox;
Edit1: TEdit;
Edit2: TEdit;
Button2: TButton;
GroupBox2: TGroupBox;
Button3: TButton;
Edit3: TEdit;
Edit4: TEdit;
TabSheet3: TTabSheet;
Memo1: TMemo;
Memo2: TMemo;
Button4: TButton;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure TabSheet2Show(Sender: TObject);
procedure Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TMyThread = class
private
FHandle: THandle;
FID: Cardinal;
function Execute: DWord; stdcall;
public
constructor Create;
destructor Destroy; override;
end;
var
Form1: TForm1;
edit_nom:integer;
acc_list:tstringlist;
thread_count:integer;
implementation
{$R *.dfm}
function findinhtml(text:string;first:string;dop1:string;dop2:string;dop3:string;dop4:string;dop5:string;dop6:string;first_end:string;last:string):string;
var
a,b,c:string;
begin
a:=copy(text,pos(first,text)+length(first)+1,1000);
if dop1<>'' then a:=copy(a,pos(dop1,a)+length(dop1),length(a));
+102.3
for i:=1 to 3 do
if (f[i,1]<>a) and (f[i,2]<>b) then
begin
inc(n);
if n>3 then exit;
f[n,1]:=a;
f[n,2]:=b;
break;
end
else break;
О как!
+164.7
$arr = array('blabla','blabla_1','blabla_2');
$mask = 'blabla';
$lenght = strlen($mask);
$pos = null;
foreach($arr as $k=>$v)
{
$pos = stripos($arr[$k],$mask);
if(isset($pos))
{
$arr[$k] = substr($arr[$k],$pos,$lenght);
}
}
Задача была - удалить в строках все после символа _
Источник http://www.nulled.ws/showthread.php?t=159950
−178.5
def generate(_len = None, sg = None):
if sg == None:
sg = 'aoeuizxcvbn_msdfghjklqwrt_yp123456_7890'
if _len == None:
_len = random.Random().randint(1, 100)
s = ''
l = len(sg)
while _len > 0:
s += sg[random.Random().randint(0, l - 1)]
_len -= 1
return s
def loadsrvlists(file, srvlist = {}, prtlist = {}):
prtlist[0] = 5222
f = open(file)
while True:
s = f.readline().strip()
if s:
sr = s[:s.find(':')]
pr = s[s.find(':') + 1:]
if not sr in srvlist:
srvlist[sr] = True
if pr != prtlist[0]:
prtlist[sr] = int(pr)
else: break
return [srvlist, prtlist]
По конфам прошла волна спама, автор которого пиарил своего бота.
Это кусок кода из того бота.
А тут полный исходник. http://dumpz.org/15156/
Кто то может для себя почерпнуть нечто новое и неизведанное.