Phần mềm Soft 4 Facebook – Soft4Marketing   42 comments


Phần mềm Soft 4 Facebook – Soft4Marketing

Homepage: http://soft4marketing.com/phan-mem-nhan-tin-quang-cao-facebook.html

Tính năng của phần mềm Soft4 Facebook Marketing:
Kết bạn 5.000 – 70.000 người chỉ trong 1 tuần
Đăng thông tin quảng cáo lên tường cá nhân hoặc Group nhanh chóng, nhiều người xem
An toàn cho tài khoản sử dụng, không bị khoá tài khoản
Một tài khoản sử dụng nhiều máy, bảo hành hỗ trợ vĩnh viễn, update phần mềm miễn phí
Tìm kiếm người dùng, Fanpage, Group theo từ khoá hiệu quả, nhanh chóng
Cài đặt độ trễ gửi tin chính xác, hiệu quả.
Cài đặt nhiều tài khoản cùng lúc trên phần mềm
Xuất – Nhập dữ liệu tự động, báo cáo cụ thể, chính xác
Tính năng nổi bật:
Một tài khoản sử dụng nhiều máy
Một phần mềm tích hợp được nhiều tài khoản
Tìm kiếm thông tin người dùng nhanh chóng, chính xác
Đăng thông tin vào các bài viết có lượt Comment cao nhất , lượt like nhiều nhất 
Link download: http://app.soft4marketing.com/S4Facebooksetup.exe
Link mirror: https://drive.google.com/file/d/0B1uANqJ1CXYNU1N0bGFEb3k4VWM/view?usp=sharing
Zero@decodefile: https://drive.google.com/file/d/0B1uANqJ1CXYNM2d0NUFHZjVhS0E/view?usp=sharing
Đổi .dat thành .rar , giải nén passwords: 1

Code:

Private Sub btDangNhap_Click(ByVal sender As Object, ByVal e As EventArgs)
    Dim str As String = Me.txtUser.Text.Replace("'", "")
    Dim str2 As String = Me.txtPass.Text.Replace("'", "")
    If (((str.Trim.Length >= 6) AndAlso (str2.Trim.Length <> 0)) AndAlso Not str2.Equals(Me.string_0)) Then
        Select Case Me.class1_0.method_3(str, str2)
            Case 0
                MessageBox.Show("Đăng ký thành công!", "Thành công", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
                MyBase.DialogResult = DialogResult.OK
                Me.form1_0.Tag = str
                Return
            Case 1
                MessageBox.Show("Đăng ký không thành công!" & ChrW(10) & ". Xin liên hệ với chúng tôi! Email: support@soft4marketing.com", "Lỗi đăng ký", MessageBoxButtons.OK, MessageBoxIcon.Hand)
                MyBase.DialogResult = DialogResult.Cancel
                Return
            Case 2
                MessageBox.Show("Đăng ký không thành công!" & ChrW(10) & " Bạn cần có kết nối internet để hoàn tất quá trình đăng ký.", "Lỗi đăng ký", MessageBoxButtons.OK, MessageBoxIcon.Hand)
                MyBase.DialogResult = DialogResult.Cancel
                Return
            Case 3
                MessageBox.Show(("Không ghi được mã đăng ký!" & ChrW(10) & " Phần mềm cần quyền ghi vào thư mục cá nhân: '" & Environment.GetFolderPath(SpecialFolder.ApplicationData) & "'."), "Lỗi đăng ký", MessageBoxButtons.OK, MessageBoxIcon.Hand)
                Return
        End Select
    Else
        MyBase.DialogResult = DialogResult.Cancel
    End If
End Sub

Public Function method_4(ByVal string_2 As String, ByVal string_3 As String, ByVal string_4 As String) As Integer
    Try 
        Dim str As String = New service().AppLogin(String.Concat(New String() { Me.string_0, string_2, "'", string_3, "'", string_4 }))
        If ((str.Trim.Length <> 0) AndAlso (Short.Parse(str.Substring((str.LastIndexOf("-"c) + 1))) = 4)) Then
            Try 
                If File.Exists(Me.string_1) Then
                    File.Delete(Me.string_1)
                End If
                Using writer As StreamWriter = New StreamWriter(Me.string_1, True)
                    writer.WriteLine(str)
                    writer.WriteLine(string_2)
                End Using
            Catch obj1 As Object
                Return 3
            End Try
            Return 0
        End If
        Return 1
    Catch exception As Exception
        Class28.smethod_0(exception)
        Return 2
    End Try
End Function


Public Sub New()
    Me.Url = "http://115.146.126.88/App/WSEservice.asmx"
    If Me.IsLocalFileSystemWebService(Me.Url) Then
        Me.UseDefaultCredentials = True
        Me.useDefaultCredentialsSetExplicitly = False
    Else
        Me.useDefaultCredentialsSetExplicitly = True
    End If
End Sub

Public Sub New()
    Me.Url = "http://115.146.126.88/App/service.asmx"
    If Me.IsLocalFileSystemWebService(Me.Url) Then
        Me.UseDefaultCredentials = True
        Me.useDefaultCredentialsSetExplicitly = False
    Else
        Me.useDefaultCredentialsSetExplicitly = True
    End If
End Sub

Posted 19/06/2015 by phamhqthanh in Phần mềm kế toán khác

42 responses to “Phần mềm Soft 4 Facebook – Soft4Marketing

Subscribe to comments with RSS.

  1. Lâu quá mới thấy bác xuất hiện,
    AE lại được dịp phấn khởi.

  2. không được

  3. Mình không load được vào reflector. Bị lỗi Index was outside the bounds of the array.

  4. Bạn cho xin bản crack nhé. Thanks!

  5. sau khi unpack, phần đăng nhập và đăng ký không thấy bác thanh ơi

  6. Dùng soft nào để Deobfuscator vậy anh em? Bị lỗi Index was outside the bounds of the array

  7. Me.string_0 là? method_3 là? show đi A.E

  8. Public Sub New(ByVal mainFrm As Form1)
    Me.string_0 = “DD445839B49ED0A5360EF427D5DFA418”
    Me.InitializeComponent
    Me.form1_0 = mainFrm
    Me.class1_0 = New Class1
    End Sub

    Public Function method_3(ByVal string_2 As String, ByVal string_3 As String) As Integer
    Return Me.method_4(string_2, string_3, (Guid.NewGuid))
    End Function

    Chỉ có vậy thôi, nhưng bạn phải xử lý 2 cái service => AppLogin + AppConnect =>request về 2 địa chỉ:
    http://115.146.126.88/App/WSEservice.asmx
    http://115.146.126.88/App/service.asmx

    Public Class Service
    Inherits System.Web.Services.WebService
    _
    Public Function AppLogin(ByVal str As String) As String
    Return “ABCD-4”
    End Function

    _
    Public Function AppConnect(ByVal str As String) As String
    Return “4”
    End Function
    End Class

  9. làm cái hướng dẫn unpack soft này đi bác thanh ơi

  10. Căn cứ dữ kiện như trên, để giải bài toán này chúng ta chỉ cần viết code dựa trên những dữ kiện trên mà ko cần phải UP soft có đúng ko gia chủ? bấy nhiêu dữ kiện trên đã đủ chưa hay còn thiếu nước mắm bột ngọt gì?

    Sao soft này bị lỗi ko chạy được ta, dùng thử báo lỗi nên cũng ko mặn mà ngâm nữa.

  11. Bác quay lại lần này thấy khác nhiều nhỉ ? cho ace cả phần mềm Zero@decodefile. Em chờ hoài cái này đó. Thanks bác và chúc bác vui khỏe.
    P/s : Bác cho mọi người xem vài tut tạo keygen soft vb.net để tham khảo nhé. Em nhìn vô thấy rối tung hết.

    Trần Tấn Đức
  12. Có anh em nào xử dùm soft này với, đi sửa máy thấy copy về mà ko bit chạy thế nào
    https://drive.google.com/file/d/0B9iNYv-4HBGeanFfYnBJRUItUG8/view?usp=sharing

    • Bạn đưa soft lên mà không kèm pass giải nén thì mở bằng niềm tin à ?

      Trần Tấn Đức
    • Tải về sẽ được 1 file CoffeeManager.rar dung lượng 24,1 Mb. File rar đó có pass chứ không phải pass download đâu.

      Trần Tấn Đức
    • Bạn đã chia sẻ mà đặt pass unrar như vậy thì sẽ không có ai giúp bạn được đâu, bạn không biết kiểm tra file có pass hay không à ? Nếu bạn cố ý đặt pass như vậy thị bạn giữ lấy mà dùng nhé, mình hết quan tâm về pm của bạn rồi và mình nghĩ những người khác trên blog này cũng vậy. 1 vài lời góp ý chân thành với bạn hy vọng bạn sẽ suy nghĩ khi tham gia blog

      Trần Tấn Đức
      • Í bác lại giận em rồi. Em cố ý chia sẻ thì đặt pass là gì hả bác???? nói thật với bác rõ ràng cái này chính tay em zip và đưa lên, em nhớ là ko pass biết gì hết nên nhiều lần mấy bác bảo có pass nên em mới khẳng định là ko có pass và cũng làm biết ko load về kiểm tra thế nào. Mãi hôm trước thử thì đúng là có pass thật!!!. em đã úp lại rồi đấy.
        Hình như cái winrra của em cài pass tự động trong tùy chọn thì phải, ai đánh đố các thầy làm gì. Em xin trình bày rõ, còn bác ko quan tâm thì thôi chứ biết sao.

  13. Chào mừng anh, thần tượng của tôi.

  14. Bác Thanh bỏ rơi blog này thì phải, toàn thấy mọi nguời đưa ý kiến chứ bác thì vẫn im hơi lặng tiếng. Mail bác không có phản hồi về những bài trên blog à ?

    Trần Tấn Đức
  15. Dạ! Có ai làm được hướng dẫn e với ạ. To.luu.tt@gmail.con

  16. mọi người giúp mình phần mềm http://ipostfb.com ( đây là phần mềm marketing thường xuyên cập nhật nên hạn chế thuật toán block nick fb rất tốt ) Mọi người giúp mình nhé mình dùn thử được 3 ngày , cài win lại nhưng vẫn bị, nó ghi Machine ID : hết hạn

  17. unpack?

  18. Làm sao để unpack được nó thế các bác?

  19. Biết có làm ăn được gì ko, nhưng thấy có đoạn này:
    =========================================

    Public Async Sub checkLicense()
    Dim machine_id As String = await Task.Factory.StartNew(Of String)( => FingerPrint.Value)
    Settings.Default.machine_id = machine_id
    Settings.Default.Save
    Dim rand As Integer = New Random().Next(&H2710)
    Dim result As String = await Me.checkLicense_Task(machine_id, rand)
    Dim _results As String() = result.Split(New String() { ChrW(13) & ChrW(10) }, StringSplitOptions.None)
    If (result = “error”) Then
    Program.f001.Visible = False
    Program.f002.Visible = False
    MessageBox.Show((“Ðu?ng truy?n c?a b?n quá ch?m.” & Environment.NewLine & “Hãy tìm 1 du?ng truy?n m?ng t?t hon!”))
    Application.Exit
    ElseIf ((result = “trial?”) OrElse (result = “DENIED”)) Then
    If (result = “DENIED”) Then
    Settings.Default.license_status = “B?n quy?n dã h?t h?n”
    Else
    Settings.Default.license_status = “Chua kích ho?t”
    End If
    Settings.Default.Save
    Dim _license As New F502_license(True)
    Try
    _license.ShowDialog(Program.f002)
    Catch obj1 As Object
    _license.ShowDialog(Me)
    End Try
    ElseIf ((_results.Length 3) OrElse (FingerPrint.GenHash((machine_id & rand & “7N@Nkg^Sw&1BPX1e&MLqkt8q”)) _results(0))) Then
    Program.f001.Visible = False
    Program.f002.Visible = False
    MessageBox.Show(“R?t xin l?i b?n. Có v?n d? x?y ra v?i Server c?a chúng tôi. Xin hãy th? l?i sau.”)
    Application.Exit
    Else
    If (Application.ProductVersion _results(1)) Then
    Program.f001.Visible = False
    Program.f002.Visible = False
    If (MessageBox.Show((“Có phiên b?n m?i hon c?a ph?n m?m FB Marketing iPOST.” & Environment.NewLine & “Nh?n YES d? c?p nh?t t? d?ng, nh?n NO d? ti?p t?c phiên b?n cu.”), “C?p nh?t ph?n m?m”, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) = DialogResult.Yes) Then
    New Process() With { _
    .StartInfo = { FileName:=”autoupdate.exe”, Arguments:=Process.GetCurrentProcess.Id.ToString } _
    }.Start
    Application.Exit
    Return
    End If
    Program.f001.Visible = True
    Program.f002.Visible = True
    End If
    Settings.Default.license_status = _results(2)
    Settings.Default.Save
    End If
    End Sub

  20. santanan giup minh voi lam sao de unpack?

  21. santanan pm cho minh qua email samac_86@yahoo.com.vn nhe.

  22. Cái này cũng đơn giản thôi mà, tìm hiểu xem chức năng thế nào, có hay = soft 4 facebook ko

  23. santanan ban coo yahoo ko cho minh dia chi nhe cho tien lien lac

  24. Santana gửi cho mình bản unpack với. Nick :tuancoi30_4@yahoo.com

  25. lâu lắm rồi mới gặp mọi người

  26. có anh nào biết lập trình ngôn ngữ visual fox không ạ, em nhờ 1 chút ạ em gửi phí công giúp đỡ ạ, mọi người giúp em với, ai giúp được em gửi thông tin vào mail cho em để em tiện liên hệ sakura.tomoyo2403@gmail.com

  27. Anh Thanh ơi sao em tìm hoài mà sao không có cái patch gì đó giống như video của Anh vậy ạ!!! huhu

  28. Cái này chủ yếu là unpack ra xem có dc hay ko! nếu ko dc thì bó tay
    mà khi unpack rồi tạo key thì dc chứ đoii khi unpack xong méochạy dc =))

    unknow programer
  29. vậy cái này có crack được không Anh, có key không cho em xin với ạ!!!

  30. de4dot xong còn confuser 1.9 nữa :))

  31. không phải dân lập trình nên xin các bạn cái hướng dẫn được không ạ?
    nhlipad@gmail.com

Gửi phản hồi

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s

%d bloggers like this: