Rekord Spam Thread

[JimmyVoice]

00110101010101010101101101010101010100101001010101010101010101010101010101010101010010001011101000101010100101110010100101010101010101011001010101010101011100101011111010010101010101000010101010101101110010010101010101010100101010101001010100011111111111100000011110101010111100000111100000010101001010010101010100101010010010010101010101001010110010101010101010101010101000101101001010101010101010101010101010101010101010101010100101001001010100111010101011010010101010101010100101010101100010100100

 

[JimmyVoice]

So und wer entschlüsselt diesen binären Code?

 

[soul to soul]

00000000100000121210000121215,46512132154612132b154h654g6h54641b3v13v21bg4h65g4h31vb2v1b3vgf65h46541vb321v3hb1g654h6g54h5v21b32v1b6g54h6g4h5v1b32v1b6g54h6g54hb3v13v21b6g54h6g54hb5v1b3g5h4g65h46g54b3v21b3g5h46g54h6v51b3vb1g35h46g54h654654g65fh654654zt654z6t54z654tz654t6z54t65z4t65z4t6546g51h3gh1g2h1gt2h13g1hg321h3g12h3g21h3g21h3g21h3g21h3g21h3g21h3t2zd32tz432tz4s35tz4s65e4tae6s5r4ta654r4tae65r4taer987ta6tgs654rgae7gta+ey7g6ydf4gryfd4gy5fd4g6a5r h6a545z6a5 4a65t4z a65t4z6sa5r4t 6a5t4z 6a5t4za65t4z6atzha654 6a5t4zh65t4 a65t4ha6s54 a654tz a65t4hga654hat47a698t7ha98t7hza98tz7a98zt7a96z6a5 4s
5 4zt65s5rt4z 6sr4z 3sd564t hksu rfliaueg öiUGf iöahf iyhe tü9a84rfiudiöuaerhföi räawoif fj aekdf oäiyd fg#<pj et

also wenn du mich fragst, jimmy, DEN entschlüüselt keiner - und mein freund hat gerade keine zeit

 

[Laylah Alana]

Omk Oo
Wenn man nichts zu tun hat

Ist genau der richtige Thread für mich..

 

[soul to soul]

ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssst0010011100 hramtantanmmsk

 

[soul to soul]

0011 0101 0101 0101 0101 1011 0101 0101 0101 0010 1001 0101 01
3 5 5 5 5 11 5 5 5 2 9 5 ?


01010101010101010101010101010101001000101110100010 10101001011100101001010101010101010110010101010101 01011100101011111010010101010101000010101010101101 11001001010101010101010010101010100101010001111111 11111000000111101010101111000001111000000101010010 10010101010100101010010010010101010101001010110010 10101010101010101010100010110100101010101010101010 10101010101010101010101010101001010010010101001110 10101011010010101010101010100101010101100010100100

@jimmy voice
wir haben da mal deinen binärcode angefagen zu entschlüsseln, aber du hast da eine dekadenschwachstelle



liebe grüße!
silvia

 

[soul to soul]

auweia - das hats verzogen...

 

[JimmyVoice]

0011 0101 0101 0101 0101 1011 0101 0101 0101 0010 1001 0101 01
3 5 5 5 5 11 5 5 5 2 9 5 ?


01010101010101010101010101010101001000101110100010 10101001011100101001010101010101010110010101010101 01011100101011111010010101010101000010101010101101 11001001010101010101010010101010100101010001111111 11111000000111101010101111000001111000000101010010 10010101010100101010010010010101010101001010110010 10101010101010101010100010110100101010101010101010 10101010101010101010101010101001010010010101001110 10101011010010101010101010100101010101100010100100

@jimmy voice
wir haben da mal deinen binärcode angefagen zu entschlüsseln, aber du hast da eine dekadenschwachstelle



liebe grüße!
silvia

huch, da war wohl ein Fehler in der Übertragung

 

[soul to soul]

*lach*Ü ist ja auch egal

ich sag dazu nur 2298diju oihwoheo ohwqoeuh gigieug iuOEUPRU=§)/ JHLJKJALKSD
JUhdhjskdhdd
00 14 5 88 9

weurieuzi uz zuzzf

danke!
dfkjhskjdhf pep pp p hdh uhg 0011 0001 jjejeo opdölk lö ölj p uroi gsreh goisdg oöihxdfö
kjdfkj

und ich hol mir jetzt meinen kjdf gjhagrfuzWE&RWERDI KJEDH OEF
*EF FVHYJHDFJHGFJHGJHHJGHJGjhgc
+
love
silvia

 

[Regelwerk]

{$mode objfpc}{$H+}
unit unames;

interface

uses Classes,basics,sysutils;

type tnames=class;
     tname=class
      procedure dec;
      procedure inc;
      private
      next,last : tname;
      iid       : integer;
      refcount  : integer;
      istr      : string;
      public
      property id  : integer read iid;
      property str : string  read istr;
     end;
     tnames=class
      constructor create;
      destructor destroy;override;
      function add(name:string):tname;
      function get(name:string):tname;
      function get(id:integer):tname;
      function add(id:integer):tname;
      procedure clear;
      procedure tidyup;
      procedure giveids;
      procedure negids;
      function count:integer;
      procedure savetostream(stream:testream);
      procedure loadfromstream(stream:testream);
      procedure writedebuginfo;
      private
      lock  : tlock;
      names : tname;
     end;

implementation

procedure tnames.writedebuginfo;
var p:tname;
begin
 writeln('names:');
 p:=names;
 while p<>nil do
 begin
  writeln(p.str,'<->',p.id,'(',p.refcount,')');
  p:=p.next;
 end;
 writeln('names/');
end;

function tnames.add(id:integer):tname;
var p : tname;
begin
 p := names;
 while p<>nil do
 begin
  if p.iid=id then
  begin
   p.inc;
   add:=p;
   exit;
  end;
  p:=p.next;
 end;
 add:=nil;
end;

function tnames.get(id:integer):tname;
var p:tname;
begin
 p:=names;
 while p<>nil do
 begin
  if p.iid=id then
  begin
   get:=p;
   exit;
  end;
  p:=p.next;
 end;
 get:=nil;
end;

procedure tnames.negids;
var p:tname;
begin
 p:=names;
 while p<>nil do
 begin
  p.iid:=-1;
  p:=p.next;
 end;
end;

function tnames.count:integer;
var p:tname;
begin
 p:=names;
 count:=0;
 while p<>nil do
 begin
  inc(count);
  p:=p.next;
 end;
end;

{$NOTES OFF}
procedure tnames.loadfromstream(stream:testream);
var cnt,id:integer;
    p:tname;
    str:string;
begin
 negids;
 cnt:=stream.readint;
 writeln(cnt);
 id:=0;
 while cnt<>0 do
 begin
  str:=stream.readstr;
  p:=add(str);
  p.iid:=id;
  dec(cnt);
  inc(id);
 end;
end;
{$NOTES ON}

procedure tnames.savetostream(stream:testream);
var p:tname;
begin
 tidyup;
 giveids;
 stream.writeint(count);
 p:=names;
 while p<>nil do
 begin
  stream.writestr(p.istr);
  p:=p.next;
 end;
end;

procedure tnames.giveids;
var p  : tname;
    id : integer;
begin
 p:=names;
 id:=0;
 while p<>nil do
 begin
  p.iid:=id;
  p:=p.next;
  inc(id);
 end;
end;

procedure tnames.tidyup;
var p,p2:tname;
begin
 p:=names;
 while p<>nil do
 begin
  p2:=p.next;
  if p.refcount=0 then
  begin
   if p=names then names:=p2;
   p.free;
  end;
  p:=p2;
 end;
end;

procedure tname.inc;
begin
 interlockedincrement(refcount);
end;

procedure tname.dec;
begin
 interlockedincrement(refcount);
end;

function tnames.add(name:string):tname;
var p:tname;
begin
 lock.acquire;
 p:=names;
 while p<>nil do
 begin
  if p.istr=name then
  begin
   add:=p;
   inc(p.refcount);
   lock.release;
   exit;
  end;
  p:=p.next;
 end;
 p:=tname.create;
 p.last:=nil;
 p.istr:=name;
 p.refcount:=1;
 p.next:=names;
 if names<>nil then names.last:=p;
 names:=p;
 lock.release;
 add:=p;
end;

function tnames.get(name:string):tname;
var p:tname;
begin
 lock.acquire;
 p:=names;
 while p<>nil do
 begin
  if p.istr=name then
  begin
   get:=p;
   lock.release;
   exit;
  end;
  p:=p.next;
 end;
 p:=tname.create;
 p.last:=nil;
 p.istr:=name;
 p.refcount:=0;
 p.next:=names;
 if names<>nil then names.last:=p;
 names:=p;
 lock.release;
 get:=p;
end;

constructor tnames.create;
begin
 inherited create;
 names:=nil;
 lock:=tlock.create;
end;

{ Not thread safe ! }
procedure tnames.clear;
var p,p2:tname;
begin
 p:=names;
 while p<>nil do
 begin
  p2:=p.next;
  p.free;
  p:=p2;
 end;
 names:=nil;
end;

destructor tnames.destroy;
begin
 clear;
 lock.destroy;
 inherited destroy;
end;

end.