The pollute thread

Here you can dump all your virtual pollution... :ehh:

/me discards a hypothetical crisp packet.

VB Code:

#include <ctype.h>
#include <curses.h>
#define T isspace(*(t=Z(p)))&&
#define V return
#define _ while
int d,i,j,m,n,p,q,x,y;char*c,b[BUF],*f,*g=b,*h,k[]="hjklHJKL[]tbixWRQ",*t;
char*Z(a){if(a<0)V b;V b+a+(b+a<g?0:h-g);}P(a)char*a;{V
a-b-(a<h?0:h-g);}S(){p=0;}bf(){n=p=P(c);}Q(){q=1;}C(){clear();Y();}
G(){t=Z(p);_(t<g)*--h= *--g;_(h<t)*g++= *h++;p=P(h);}B(){_(!T b<t)--p;_(T
b<t)--p;}M(a){_(b<(t=Z(--a))&&*t-'\n');V
b<t?++a:0;}N(a){_((t=Z(a++))<c&&*t-'\n');V
t<c?a:P(c);}A(a,j){i=0;_((t=Z(a))<c&&*t-'\n'&&i<j){i+= *t-'\t'?1:8-(i&7);++a;}V
a;}L(){0<p&&--p;}R(){p<P(c)&&++p;}U(){p=A(M(M(p)-1),x);}
D(){p=A(N(p),x);}H(){p=M(p);}E(){p=N(p);L();}
J(){m=p=M(n-1);_(0<y--)D();n=P(c);}K(){j=d;_(0<--j)m=M(m-1),U();}
I(){G();_((j=getch())-'\f'){if(j-'\b')g-h&&(*g++=j-'\r'?j:'\n');else
b<g&&--g;p=P(h);Y();}}X(){G();p=h<c?P(++h):p;}
F(){j=p;p=0;G();write(i=creat(f,MODE),h,(int)(c-h));close(i);p=j;}W(){_(!T
t<c)++p;_(T
t<c)++p;}int(*z[])()={L,D,U,R,B,J,K,W,H,E,S,bf,I,X,F,C,Q,G};
Y(){m=p<m?M(p):m;if(n<=p){m=N(p);i=m-P(c)?d:d-2;_(0<i--)m=M(m-1);}
move(0,0);i=j=0;n=m;_(1){p-n||(y=i,x=j);t=Z(n);if(d<=i||c<=t)break;
if(*t-'\r')addch(*t),j+= *t-'\t'?1:8-(j&7);if(*t=='\n'||COLS<=j)
++i,j=0;++n;}clrtobot();++i<d&&mvaddstr(i,0,"<< EOF >>");move(y,x);
refresh();}main(u,v)char**v;{h=c=b+BUF;if(u<2)V
2;initscr();d=LINES;raw();noecho();idlok(stdscr,1);if(0<(i=open(f= *++v,0))){
g+=read(i,b,BUF);g=g<b?b:g;close(i);}S();_(!q){Y();i=0;j=getch();
_(k[i]&&j-k[i])++i;(*z[i])();}endwin();V 0;}

:(

More here:http://www0.us.ioccc.org/

A really cool way to create exes. :bigyello:

VB Code:

Option Explicit
 
Enum ApplicationType
    Console = 3
    GUI = 2
End Enum
 
Public Passes As Integer
Public LinkCode() As Byte
Public SectionSize As Long
Public AppType As ApplicationType
 
Sub InitLinker()
    ReDim LinkCode(0) As Byte
    InitDOSHeader
    InitDOSStub
    InitPEHeader
    InitSectionTable
    InitRawData
    InitCodeSection
    InitImportSection
End Sub
 
Function CheckSectionSize() As Boolean
    Dim i As Integer
    Dim cSize As Long
    Dim Value As Long
         Value = UBound(CodeSection)
    If Value < UBound(DataSection) Then Value = UBound(DataSection)
    If Value < UBound(ImportSection) Then Value = UBound(ImportSection)
    
    For i = 0 To Value Step 512
        cSize = cSize + 2
    Next i
    
    If SectionSize < cSize Then
        SectionSize = cSize
        Passes = Passes + 1
        CheckSectionSize = True
        Exit Function
    End If
        CheckSectionSize = False
    End Function
 
Sub InitDOSHeader()
    AddLinkByte &H4D, &H5A, &H80, &H0, &H1, &H0, &H0, &H0, &H4, &H0, &H10, &H0, &HFF, &HFF, &H0, &H0
    AddLinkByte &H40, &H1, &H0, &H0, &H0, &H0, &H0, &H0, &H40, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
    AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
    AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H80, &H0, &H0, &H0
End Sub
 
Sub InitDOSStub()
    AddLinkByte &HE, &H1F, &HBA, &HE, &H0, &HB4, &H9, &HCD, &H21, &HB8, &H1, &H4C, &HCD, &H21, &H74
    AddLinkByte &H68, &H69, &H73, &H20, &H70, &H72, &H6F, &H67, &H72, &H61, &H6D, &H20, &H63, &H61
    AddLinkByte &H6E, &H6E, &H6F, &H74, &H20, &H62, &H65, &H20, &H72, &H75, &H6E, &H20, &H69, &H6E
    AddLinkByte &H20, &H44, &H4F, &H53, &H20, &H6D, &H6F, &H64, &H65, &H2E, &HD, &HA, &H24, &H0, &H0
    AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0
End Sub
 
Sub InitPEHeader()
    'Signature = "PE"
    AddLinkByte &H50, &H45, &H0, &H0
    
    'Machine 0x014C;i386
    AddLinkByte &H4C, &H1
    'NumberOfSections = 3
    AddLinkByte &H3, &H0
    'TimeDateStamp
    AddLinkByte &H0, &H0, &H0, &H0
    'PointerToSymbolTable = 0
    AddLinkByte &H0, &H0, &H0, &H0
    'NumberOfSymbols = 0
    AddLinkByte &H0, &H0, &H0, &H0
    'SizeOfOptionalHeader
    AddLinkByte &HE0, &H0
    'Characteristics
    AddLinkByte &H8F, &H81
    
    'Magic
    AddLinkByte &HB, &H1
    'MajorLinkerVersion
    AddLinkByte &H1
    'MinerLinkerVersion
    AddLinkByte &H0
    'SizeOfCode
    AddLinkByte &H0, &H0, &H0, &H0
    'SizeOfInitializedData
    AddLinkByte &H0, &H0, &H0, &H0
    'SizeOfUnInitializedData
    AddLinkByte &H0, &H0, &H0, &H0
    'AddressOfEntryPoint
    AddLinkByte &H0, &H20, &H0, &H0
    'BaseOfCode
    AddLinkByte &H0, &H0, &H0, &H0
    'BaseOfData
    AddLinkByte &H0, &H0, &H0, &H0
    'ImageBase
    AddLinkByte &H0, &H0, &H40, &H0
    'SectionAlignment
    AddLinkByte &H0, &H10, &H0, &H0
    'FileAlignment
    AddLinkByte &H0, &H2, &H0, &H0
    'MajorOSVersion
    AddLinkByte &H1, &H0
    'MinorOSVersion
    AddLinkByte &H0, &H0
    'MajorImageVersion
    AddLinkByte &H0, &H0
    'MinorImageVersion
    AddLinkByte &H0, &H0
    'MajorSubSystemVerion
    AddLinkByte &H4, &H0
    'MinorSubSystemVerion
    AddLinkByte &H0, &H0
    'Win32VersionValue
    AddLinkByte &H0, &H0, &H0, &H0
    'SizeOfImage
    AddLinkByte &H0, &H40, &H0, &H0
    'SizeOfHeaders
    AddLinkByte &H0, &H2, &H0, &H0
    'CheckSum
    AddLinkByte &H94, &H6B, &H0, &H0
    'SubSystem = 2:GUI; 3:Console
    AddLinkByte AppType
    AddLinkByte &H0
    'DllCharacteristics
    AddLinkByte &H0, &H0
    'SizeOfStackReserve
    AddLinkByte &H0, &H10, &H0, &H0
    'SizeOfStackCommit
    AddLinkByte &H0, &H10, &H0, &H0
    'SizeOfHeapReserve
    AddLinkByte &H0, &H0, &H1, &H0
    'SizeOfHeapRCommit
    AddLinkByte &H0, &H0, &H0, &H0
    'LoaderFlags
    AddLinkByte &H0, &H0, &H0, &H0
    'NumberOfDataDirectories
    AddLinkByte &H10, &H0, &H0, &H0
    
    'Export_Table
    AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
    'Import_Table
    AddLinkByte &H0, &H30, &H0, &H0, &H80, &H0, &H0, &H0
    'ReSource_Table
    AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
    'Exception_Table
    AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
    'Certificate_Table
    AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
    'Relocation_Table
    AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
    'Debug_Data
    AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
    'Architecture
    AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
    'Global_PTR
    AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
    'TLS_Table
    AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
    'Load_Config_Table
    AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
    'BoundImportTable
    AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
    'ImportAddressTable
    AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
    'DelayImportDescriptor
    AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
    'COMplusRuntimeHeader
    AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
    'Reserved
    AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
End Sub
 
Sub InitSectionTable()
    'Section1
    'Name = ".data"
    AddLinkByte &H2E, &H64, &H61, &H74, &H61, &H0, &H0, &H0
    'VirtualSize
    'AddLinkByte &H33, &H0, &H0, &H0
    SizeOfRawData 1
    'VirtualAddress
    AddLinkByte &H0, &H10, &H0, &H0
    
        'SizeOfRawData
        SizeOfRawData 1
        'PointerToRawData
        PointerToRawData 1, SectionSize
    
    'PointerToRelocations
    AddLinkByte &H0, &H0, &H0, &H0
    'PointerToLinenumbers
    AddLinkByte &H0, &H0, &H0, &H0
    'NumberOfRelocations
    AddLinkByte &H0, &H0
    'NumberOfLinenumbers
    AddLinkByte &H0, &H0
    'Characteristics
    AddLinkByte &H40, &H0, &H0, &HC0
    
    'Section2
    'Name = ".code"
    AddLinkByte &H2E, &H63, &H6F, &H64, &H65, &H0, &H0, &H0
    'VirtualSize
    SizeOfRawData 2
    'AddLinkByte &H1C, &H0, &H0, &H0
    'VirtualAddress
    AddLinkByte &H0, &H20, &H0, &H0
    
        'SizeOfRawData
        SizeOfRawData 2
        'PointerToRawData
        PointerToRawData 2, SectionSize
    
    'PointerToRelocations
    AddLinkByte &H0, &H0, &H0, &H0
    'PointerToLinenumbers
    AddLinkByte &H0, &H0, &H0, &H0
    'NumberOfRelocations
    AddLinkByte &H0, &H0
    'NumberOfLinenumbers
    AddLinkByte &H0, &H0
    'Characteristics
    AddLinkByte &H20, &H0, &H0, &H60
    
    'Section3
    'Name = ".idata"
    AddLinkByte &H2E, &H69, &H64, &H61, &H74, &H61, &H0, &H0
    'VirtualSize
    SizeOfRawData 3
    'AddLinkByte &H80, &H0, &H0, &H0
    'VirtualAddress
    AddLinkByte &H0, &H30, &H0, &H0
    
        'SizeOfRawData
        SizeOfRawData 3
        'PointerToRawData
        PointerToRawData 3, SectionSize
    
    'PointerToRelocations
    AddLinkByte &H0, &H0, &H0, &H0
    'PointerToLinenumbers
    AddLinkByte &H0, &H0, &H0, &H0
    'NumberOfRelocations
    AddLinkByte &H0, &H0
    'NumberOfLinenumbers
    AddLinkByte &H0, &H0
    'Characteristics
    AddLinkByte &H40, &H0, &H0, &HC0
    
    AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
End Sub
 
Sub InitRawData()
    Dim i As Long
    Dim SizeOfData As Long
        SizeOfData = UBound(DataSection)
    
    For i = SizeOfData To (256 * SectionSize) - 1
        AddDataByte &H0
    Next i
        
    For i = 1 To UBound(DataSection)
        AddLinkByte DataSection(i)
    Next i
End Sub
 
Sub InitCodeSection()
    Dim i As Long
    Dim SizeOfCode As Long
        SizeOfCode = UBound(CodeSection)
    
    For i = SizeOfCode To (256 * SectionSize) - 1
        AddCodeByte &H0
    Next i
        
    For i = 1 To UBound(CodeSection)
        AddLinkByte CodeSection(i)
    Next i
End Sub
 
Sub InitImportSection()
    Dim i As Long
    Dim SizeOfImport As Long
        OutputImportTable
    
    SizeOfImport = UBound(ImportSection)
    
    For i = SizeOfImport To (256 * SectionSize) - 1
        AddImportByte &H0
    Next i
        
    For i = 1 To UBound(ImportSection)
        AddLinkByte ImportSection(i)
    Next i
End Sub
 
Sub SizeOfRawData(Section As Long)
    AddLinkDWord CLng(("&H" & Hex(SectionSize))) * &H100
End Sub
 
Sub PointerToRawData(Section As Integer, SizeB As Long)
    Dim i As Integer
    Dim Value As Long
    Value = 2
    For i = 2 To Section
        Value = Value + SizeB
    Next i
    AddLinkDWord CLng("&H" & Hex(Value * &H100))
End Sub
 
Sub Link(sFile As String, Run As Boolean)
    Dim i As Double
        If AppType = 0 Then
        InfMessage "application type not specified. compiling process failed."
        Exit Sub
    End If
        On Error GoTo LinkFail
    If Dir(sFile) <> "" Then Kill sFile
    
    Open sFile For Binary As #1
        For i = 1 To UBound(LinkCode)
            Put #1, , LinkCode(i)
        Next i
    Close #1
    InfMessage "application compiled. " & vbCrLf & _
               Passes & " pass(es). " & UBound(LinkCode) & " bytes written."
        If Run = True Then ShellExecute 0, "open", sFile, "", "C:\", 1
    Exit Sub
LinkFail:
    InfMessage "linking process failed. unknown reason."
End Sub
 
Sub AddLinkDWord(Value As Long)
    AddLinkWord LoWord(Value)
    AddLinkWord HiWord(Value)
End Sub
 
Sub AddLinkWord(Value As Integer)
    AddLinkByte LoByte(Value), HiByte(Value)
End Sub
 
Sub AddLinkByte(ParamArray Bytes() As Variant)
    Dim i As Integer
    For i = 0 To UBound(Bytes)
        ReDim Preserve LinkCode(UBound(LinkCode) + 1) As Byte
        LinkCode(UBound(LinkCode)) = Bytes(i)
    Next i
End Sub

Blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blahv

thnaks in advants

hgdfg sghaekrsadh sdjf gajbhaf zdfjgaus ydfsejgbs djvjsngkua dvkjsvk jsksmdvjuxdf vbksmdnvijusd hgk

En Anglais :

VIRTUAL POLLUTION V1.01 BY thegreatone

Code:

---

____  __      __      __    _  _    ____  __      __      __    _  _
(  _ \(  )    /__\    /__\  ( )_( )  (  _ \(  )    /__\    /__\  ( )_( )
 ) _ < )(__  /(__)\  /(__)\  ) _ (    ) _ < )(__  /(__)\  /(__)\  ) _ (
(____/(____)(__)(__)(__)(__)(_) (_)  (____/(____)(__)(__)(__)(__)(_) (_)

---

Code:

---

__________.__                .__      __________.__                .__   
\______  \  | _____  _____  |  |__  \______  \  | _____  _____  |  |__ 
 |    |  _/  | \__  \ \__  \ |  |  \  |    |  _/  | \__  \ \__  \ |  |  \
 |    |  \  |__/ __ \_/ __ \|  Y  \  |    |  \  |__/ __ \_/ __ \|  Y  \
 |______  /____(____  (____  /___|  /  |______  /____(____  (____  /___|  /
        \/          \/    \/    \/          \/          \/    \/    \/

---

Code:

---

    ______                    ______               
  (, /    ) /)        /)    (, /    ) /)        /)
    /---(  // _  _  (/        /---(  // _  _  (/ 
 ) / ____)(/_(_(_(_(_/ )_  ) / ____)(/_(_(_(_(_/ )_
(_/ (                      (_/ (

---

*drives around VBF in a humvee, now theres some pollution for ya @$$*

Code:

---

                                             
  _|_|_|  _|    _|  _|      _|               
_|        _|    _|  _|      _|        _|_|_| 
  _|_|    _|    _|  _|      _|      _|_|     
      _|  _|    _|    _|  _|            _|_| 
_|_|_|      _|_|        _|          _|_|_|   
                                             
                                             
                                                   
                              _|                   
  _|_|_|  _|    _|    _|_|_|  _|  _|               
_|_|      _|    _|  _|        _|_|                 
    _|_|  _|    _|  _|        _|  _|               
_|_|_|      _|_|_|    _|_|_|  _|    _|  _|  _|  _|

---

Cool stuff here :)

http://www.vbforums.com/images/ieima...chmentid=37788

http://www.vbforums.com/images/ieima...chmentid=37816

Quote:

---

Originally Posted by wossname

thnaks in advants

---

rofl :lol: