Konversi Encrypt VB dan Decrypt VB ke PHP

 

Mohon bantuan untuk konversi encrypt VB dan decrpyt VB ke PHP (program encrypt VB dan decrpyt VB terlampir), hasil encrypt dan decrypt PHP harus sama dengan VB, nanti akan kirim hasil ecrypt VB sebagai contoh

Public Function EncryptText(strText As String, ByVal strPwd As String)

Dim I As Integer, E As Integer

Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then


    'Convert password to upper case

    'if not case-sensitive

    strPwd = UCase$(strPwd)


#End If

    If Len(strPwd) Then

        For I = 1 To Len(strText)

            E = Asc(Mid$(strText, I, 1))

            E = E + Asc(Mid$(strPwd, (I Mod Len(strPwd)) + 1, 1))

            strBuff = strBuff & Chr$(E And &HFF)

        Next I

    Else

        strBuff = strText

    End If

    EncryptText = strBuff

End Function



=========================================


Public Function DecryptText(strText As String, ByVal strPwd As String)

Dim I As Integer, D As Integer

Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then


    'Convert password to upper case

    'if not case-sensitive

    strPwd = UCase$(strPwd)


#End If

    If Len(strPwd) Then

        For I = 1 To Len(strText)

            D = Asc(Mid$(strText, I, 1))

            D = D - Asc(Mid$(strPwd, (I Mod Len(strPwd)) + 1, 1))

            strBuff = strBuff & Chr$(D And &HFF)

        Next I

    Else

        strBuff = strText

    End If

    DecryptText = strBuff

End Function  

Web Programming PHP VisualBasic

Published Budget: Rp 500,000 - 1,000,000
Finish Days: 7
Published Date: 05/12/2021 09:22:01 WIB
Start Date: 07/12/2021 08:50:04 WIB
Finish Date: 07/12/2021 09:05:49 WIB
Project Status: Closed
Accepted Worker: gary99 (gary99)
Accepted Budget: Rp 500,000
Project Ending: Completed

Project Owner

patangahan
Kota Pekanbaru
    
10.00/10.00
55 Point
#5,234 dari 352,455
Rated Worker: 10.00/10.00

Pekerjaan nya cepat , hasil memuaskan dan sangat familiar  dalam berdiskusi

Accepted Worker

gary99
Kab. Sidoarjo
    
9.94/10.00
740 Point
#579 dari 352,455
Rated Owner: 10.00/10.00

Thanks gan...
kalo problem tinggal kontak ane aja... hehehehehe

  User Bids

kaptenjegu
    
10.00/10.00

ilham_xyz
    
10.00/10.00

mochyusuf120
    
9.75/10.00

anlichandra
    
9.67/10.00

searover
    
9.67/10.00

ahroihan
    
10.00/10.00

gary99
    
9.94/10.00

zdienos
    
10.00/10.00

media.projects
    
10.00/10.00

zerovimo
    
10.00/10.00

steve17
    
10.00/10.00

saniya
    
10.00/10.00

HarisBahrudin
    
9.40/10.00

irvandi
    
9.42/10.00

higashi
    
0.00/10.00

Recommended Workers

Iswanto

24,781 points
527 projects
    
9.72/10.00

Muhammad.Rahman

15,559 points
172 projects
    
9.78/10.00

steven.comptia

40,284 points
871 projects
    
9.97/10.00

manakreatif

13,862 points
110 projects
    
9.70/10.00

rakifsul

14,845 points
60 projects
    
10.00/10.00

Recommended Services

Tiru Website Lain Sesuai Keinginan (Cloning)

Rp 650,000
9 sales
    
9.78/10.00

Pembuatan bot line

Rp 1,500,000
6 sales
    
10.00/10.00

Aplikasi Jasa Servis dan panggil Teknisi

Rp 3,800,000
2 sales
    
10.00/10.00

Jasa Pembuatan website Wordpress + Elementor

Rp 650,000
9 sales
    
10.00/10.00

Open Projects

Membutuhkan konten belajar programming

Owner: wsmart
Budget: Rp 1,000,000 - 1,000,000

Migrasi Website dari CodeIgniter ke Wordpress

Owner: ManhattanKing
Budget: Rp 250,000 - 500,000

Register Dari WP Auto Update Ke Biolink Script

Owner: denan80
Budget: Rp 1,000,000 - 1,500,000

Membuat web/ plugin news contoh sudah tersedia

Owner: haryanto90
Budget: Rp 1,000,000 - 2,000,000

membuat pemograman menggunakan Visual Studio dan C#

Owner: dxfandy19
Budget: Rp 500,000 - 800,000

 


Live Chat