Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
Latest Saved Source Codes!

Source Code 28246 - Prog1Array, Language: C/C++
Source Code 28245 - ankit010.cpp, Language: C/C++
Source Code 28244 - Area, Language: JAVA
Source Code 28243 - addition.cpp, Language: C/C++
Source Code 28242 - c.c, Language: C/C++
Source Code 28241 - 逐步模拟, Language: FORTRAN
Source Code 28240 - test, Language: C/C++
Source Code 28239 - game 1, Language: C/C++
Source Code 28238 - not, Language: C/C++
Source Code 28237 - MAIN 1, Language: C/C++
Source Code 28236 - asd, Language: FORTRAN
Source Code 28235 - 5, Language: C/C++
Source Code 28234 - test, Language: C/C++
Source Code 28233 - unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdMappedPortTCP, StdCtrls, jpeg, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; TCP: TIdMappedPortTCP; Image1: TImage; Label1: TLabel; Hajar: TLabel; Memo1: TMemo; Memo2: TMemo; Label2: TLabel; procedure Button1Click(Sender: TObject); procedure TCPExecute(AThread: TIdMappedPortThread); procedure TCPOutboundData(AThread: TIdMappedPortThread); private Tombol:Boolean; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if Tombol then begin TCP.Active := False; TCP.Bindings.Clear; Sleep(100); Button1.Caption := 'START'; Tombol := False; end else begin Button1.Caption := 'STOP'; TCP.Bindings.Add.IP := '127.0.0.1'; TCP.Bindings.Add.Port := StrToInt('1111'); TCP.MappedHost :='10.1.89.130'; TCP.MappedPort := StrToInt('8000'); TCP.Active := True; Tombol := True; end; end; function AddHeader(header, Newheader:string):string; begin header := StringReplace(header, #13#10 + #13#10, #13#10 + Newheader + #13#10 + #13#10, [rfReplaceAll]); Result := header; end; procedure TForm1.TCPExecute(AThread: TIdMappedPortThread); var Payload,header: string; begin Memo1.Lines.Add(AThread.NetData); if (pos('CONNECT',athread.NetData)<>0) or (pos('HTTP',athread.NetData)<>0) or (pos('http',athread.NetData)<>0) or (pos('https',athread.NetData)<>0) then begin header:=Addheader(Athread.NetData,'Proxy-Connection: Keep-Alive'+#13#10#13+'Connection: Keep-Alive'+#10#13#13#10); payload := 'DELETE http://auth.telkomsel.mobi/ HTTP/1.1''Host: telkomsel.mobi'+#13#10+'Connection: Keep-Alive'; athread.OutboundClient.Write(Addheader(Athread.NetData,'Proxy-Connection: Keep-Alive'+#13#10#13+'Connection: Keep-Alive'+#10#13#13#10)); //athread.OutboundClient.Write(header); Sleep (1000); athread.NetData:=payload; end; end; procedure TForm1.TCPOutboundData(AThread: TIdMappedPortThread); begin if Pos ('403 Forbidden', AThread.NetData) <>0 then begin AThread.NetData := StringReplace(athread.NetData,'403 Forbidden','200 OK',[rfReplaceAll]); end else if Pos ('407 Proxy Authentication Required', AThread.NetData) <>0 then begin AThread.NetData := StringReplace(athread.NetData,'407 Proxy Authentication Required','200 OK',[rfReplaceAll]); end else if Pos ('302 Found', AThread.NetData) <>0 then begin AThread.NetData := StringReplace(athread.NetData,'302 Found','200 OK',[rfReplaceAll]); end else if Pos ('301 Moved Permanently', AThread.NetData) <>0 then begin AThread.NetData := StringReplace(athread.NetData,'301 Moved Permanently','200 OK',[rfReplaceAll]); end else if Pos ('HTTP/1.0 405 Method Not Allowed', AThread.NetData) <>0 then begin AThread.NetData := StringReplace(athread.NetData,'405 Method Not Allowed','200 OK',[rfReplaceAll]); end else if Pos ('503 Service Unavailable', AThread.NetData) <>0 then begin AThread.NetData := StringReplace(athread.NetData,'503 Service Unavailable','200 OK',[rfReplaceAll]); end else if Pos ('407 Proxy Authentication Required', AThread.NetData) <>0 then begin AThread.NetData := StringReplace(athread.NetData,'407 Proxy Authentication Required','200 OK',[rfReplaceAll]); end else if Pos (' Set-Cookie', AThread.NetData) <>0 then begin AThread.NetData := StringReplace(AThread.NetData,' Set-Cookie',' 200 OK',[rfReplaceAll]); end else if Pos ('HTTP/1.1 302 Moved Temporarily', AThread.NetData) <> 0 then begin AThread.NetData := ''; end; end; end., Language: PASCAL
Source Code 28232 - raul, Language: PASCAL
Source Code 28231 - ol, Language: C/C++
Source Code 28230 - dd, Language: C/C++
Source Code 28229 - 11111, Language: C/C++
Source Code 28228 - dsg, Language: C/C++
Source Code 28227 - Hd, Language: C/C++
Source Code 28226 - First.c, Language: C/C++
Source Code 28225 - g,c, Language: C/C++
Source Code 28224 - Maximum Draw, Language: C/C++
Source Code 28223 - Maximum Draw, Language: C/C++
Source Code 28222 - Maximum Draw, Language: C/C++
Source Code 28221 - stars, Language: C/C++
Source Code 28220 - b, Language: C/C++
Source Code 28219 - b, Language: C/C++
Source Code 28218 - 322, Language: C/C++
Source Code 28217 - deniseduarte, Language: PASCAL
Source Code 28216 - r.c, Language: C/C++
Source Code 28215 - ok, Language: C/C++
Source Code 28214 - ok, Language: C/C++
Source Code 28213 - ok, Language: C/C++
Source Code 28212 - ok, Language: C/C++
Source Code 28211 - ok, Language: C/C++
Source Code 28210 - PRIYAM, Language: C/C++
Source Code 28209 - renuka, Language: C/C++
Source Code 28208 - eldo, Language: C/C++
Source Code 28207 - eldo, Language: C/C++
Source Code 28206 - eldo, Language: C/C++
Source Code 28205 - eldo, Language: C/C++
Source Code 28204 - u, Language: FORTRAN
Source Code 28203 - jdjjjjd, Language: C/C++
Source Code 28202 - venegas, Language: C/C++
Source Code 28201 - Employee, Language: JAVA
Source Code 28200 - countdown, Language: JAVA
Source Code 28199 - 12, Language: C/C++
Source Code 28198 - te, Language: C/C++
Source Code 28197 - hanoi, Language: C/C++
Source Code 28196 - GossipServer.java, Language: JAVA
Source Code 28195 - 3, Language: C/C++
Source Code 28194 - nn.c, Language: C/C++
Source Code 28193 - kakadevaca, Language: C/C++
Source Code 28192 - dsf, Language: C/C++
Source Code 28191 - argv, Language: C/C++
Source Code 28190 - desvio padrao, Language: FORTRAN
Source Code 28189 - desvio padrao, Language: FORTRAN
Source Code 28188 - Emvado, Language: PASCAL
Source Code 28187 - 123, Language: C/C++
Source Code 28186 - test1.java, Language: JAVA
Source Code 28185 - programacion, Language: C/C++
Source Code 28184 - programacion, Language: C/C++
Source Code 28183 - gfgfgf, Language: C/C++
Source Code 28182 - calculator.java, Language: JAVA
Source Code 28181 - calculator.java, Language: JAVA
Source Code 28180 - ggg, Language: PASCAL
Source Code 28179 - 4, Language: PASCAL
Source Code 28178 - eqw, Language: JAVA
Source Code 28177 - pro, Language: C/C++
Source Code 28176 - hhh, Language: C/C++
Source Code 28175 - programacion, Language: C/C++
Source Code 28174 - sd, Language: C/C++
Source Code 28173 - 365, Language: FORTRAN
Source Code 28172 - fr, Language: C/C++
Source Code 28171 - ll, Language: C/C++
Source Code 28170 - ç, Language: C/C++
Source Code 28169 - PRIMEIRO TRABALHO, Language: C/C++
Source Code 28168 - main, Language: C/C++
Source Code 28167 - Programa, Language: C/C++
Source Code 28166 - Programa, Language: C/C++
Source Code 28165 - 1, Language: C/C++
Source Code 28164 - 1, Language: C/C++
Source Code 28163 - kkkkkkk, Language: C/C++
Source Code 28162 - 1, Language: C/C++
Source Code 28161 - go, Language: C/C++
Source Code 28160 - 1, Language: C/C++
Source Code 28159 - a1, Language: C/C++
Source Code 28158 - asdsad, Language: C/C++
Source Code 28157 - comnicacion entre procesos, Language: C/C++
Source Code 28156 - comnicacion entre procesos, Language: C/C++
Source Code 28155 - comnicacion entre procesos, Language: C/C++
Source Code 28154 - comnicacion entre procesos, Language: C/C++
Source Code 28153 - comnicacion entre procesos, Language: C/C++
Source Code 28152 - comnicacion entre procesos, Language: C/C++
Source Code 28151 - comnicacion entre procesos, Language: C/C++
Source Code 28150 - test, Language: C/C++
Source Code 28149 - aaa, Language: C/C++
Source Code 28148 - вф, Language: C/C++
Source Code 28147 - вф, Language: C/C++
Source Code 28146 - вф, Language: C/C++
Source Code 28145 - вф, Language: C/C++
Source Code 28144 - вф, Language: C/C++
Source Code 28143 - btree, Language: C/C++
Source Code 28142 - gauss jordan, Language: C/C++
Source Code 28141 - gauss jordan, Language: C/C++
Source Code 28140 - fifo, Language: C/C++
Source Code 28139 - ai5uoR0U.java, Language: JAVA
Source Code 28138 - abreme como pistache v;, Language: C/C++
Source Code 28137 - test, Language: C/C++
Source Code 28136 - Mandy.java, Language: JAVA
Source Code 28135 - main1, Language: C/C++
Source Code 28134 - calcolo del fattoriale, Language: C/C++
Source Code 28133 - palindrome, Language: JAVA
Source Code 28132 - palindrome, Language: JAVA
Source Code 28131 - palindrome, Language: JAVA
Source Code 28130 - ss, Language: C/C++
Source Code 28129 - ss, Language: C/C++
Source Code 28128 - ss, Language: C/C++
Source Code 28127 - teste.c, Language: C/C++
Source Code 28126 - teste.c, Language: C/C++
Source Code 28125 - test, Language: FORTRAN
Source Code 28124 - test, Language: FORTRAN
Source Code 28123 - abcd.cpp, Language: C/C++
Source Code 28122 - abcd.cpp, Language: C/C++
Source Code 28121 - mcd, Language: C/C++
Source Code 28120 - bsearch.cpp, Language: C/C++
Source Code 28119 - Source, Language: C/C++
Source Code 28118 - Source, Language: C/C++
Source Code 28117 - Source, Language: C/C++
Source Code 28116 - Source, Language: C/C++
Source Code 28115 - j, Language: C/C++
Source Code 28114 - test, Language: JAVA
Source Code 28113 - test, Language: JAVA
Source Code 28112 - test, Language: JAVA
Source Code 28111 - ll, Language: C/C++
Source Code 28110 - aa, Language: PASCAL
Source Code 28109 - Stonozka, Language: PASCAL
Source Code 28108 - nested loop, Language: C/C++
Source Code 28107 - 21, Language: BASIC
Source Code 28106 - 11, Language: C/C++
Source Code 28105 - 11, Language: C/C++
Source Code 28104 - ilg, Language: PASCAL
Source Code 28103 - feuxcouleurs, Language: PASCAL
Source Code 28102 - wmrDogg1.java, Language: JAVA
Source Code 28101 - vim rahu.f, Language: FORTRAN
Source Code 28100 - pless, Language: C/C++
Source Code 28099 - pless, Language: C/C++
Source Code 28098 - pless, Language: C/C++
Source Code 28097 - pless, Language: C/C++
Source Code 28096 - pless, Language: C/C++
Source Code 28095 - pless, Language: C/C++
Source Code 28094 - pless, Language: C/C++
Source Code 28093 - Recomendaçoes de uso do notebook, Language: C/C++
Source Code 28092 - s, Language: JAVA
Source Code 28091 - yan, Language: C/C++
Source Code 28090 - 12, Language: C/C++
Source Code 28089 - 12, Language: C/C++
Source Code 28088 - 12, Language: C/C++
Source Code 28087 - 12, Language: C/C++
Source Code 28086 - 12, Language: C/C++
Source Code 28085 - 12, Language: C/C++
Source Code 28084 - ава, Language: PASCAL
Source Code 28083 - ава, Language: PASCAL
Source Code 28082 - 3, Language: BASIC
Source Code 28081 - Hola mundo, Language: PASCAL
Source Code 28080 - 2, Language: BASIC
Source Code 28079 - 2, Language: BASIC
Source Code 28078 - 2, Language: BASIC
Source Code 28077 - 2, Language: BASIC
Source Code 28076 - 2, Language: BASIC
Source Code 28075 - 2, Language: BASIC
Source Code 28074 - program, Language: FORTRAN
Source Code 28073 - 2, Language: BASIC
Source Code 28072 - 2, Language: BASIC
Source Code 28071 - 2, Language: BASIC
Source Code 28070 - teste, Language: PASCAL
Source Code 28069 - gg, Language: C/C++
Source Code 28068 - 1, Language: C/C++
Source Code 28067 - eletro, Language: C/C++
Source Code 28066 - eletro, Language: C/C++
Source Code 28065 - eletro, Language: C/C++
Source Code 28064 - eletro, Language: C/C++
Source Code 28063 - אלחנן, Language: C/C++
Source Code 28062 - binary search, Language: C/C++
Source Code 28061 - binary search, Language: C/C++
Source Code 28060 - Retta, Language: C/C++
Source Code 28059 - s, Language: C/C++
Source Code 28058 - d, Language: C/C++
Source Code 28057 - 1p.c, Language: C/C++
Source Code 28056 - S, Language: C/C++
Source Code 28055 - Virus, Language: C/C++
Source Code 28054 - 33, Language: C/C++
Source Code 28053 - 54, Language: PASCAL
Source Code 28052 - fgfdg, Language: PASCAL
Source Code 28051 - fibbb, Language: PASCAL
Source Code 28050 - fibbb, Language: PASCAL
Source Code 28049 - fibbb, Language: PASCAL
Source Code 28048 - fibbb, Language: PASCAL
Source Code 28047 - avl, Language: C/C++