Tüm Forumlar

Tüm Forumlar
Web Tasarım - Programlama
Yazılım Geliştirme
Delphi / C++ /Vb
Bu Konuda

Şimdi Ara

visual basic'te yardım edebilir misiniz?

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

BIC Intensity Fine Liner Keçe Uçlu Kalem 4'lü Blister Klasik Renkler, Siyah,Mavi,Kırmızı ve Yeşil Renk, 0.4 mm. Çizgi Kalınlığı : Amazon.com.tr: Ofis ve Kırtasiye https://www.amazon.com.tr/dp/B06XDPJ53M 2 sa. önce paylaşıldı

Amazon.com.tr: Seçili Atıştırmalıklarda 3 Al 2 Öde promosyon https://www.amazon.com.tr/promotion/psp/ALGXEQL3ADLX9 8 sa. önce paylaşıldı

adidas X_PLRPULSE Spor AyakkabıUnisex Yetişkin : Amazon.com.tr: Moda https://www.amazon.com.tr/dp/B0CTKS1GN5 dün paylaşıldı

Şımart Teknoloji E27 9W 16 Milyon Renk Akıllı Bluetooth Ampul Fiyatları ve Özellikleri https://www.n11.com/urun/simart-teknoloji-e27-9w-16-milyon-renk-akilli-bluetooth-ampul-28021096?magaza=simartpazarlama 4 ay önce paylaşıldı

Hilda Köşe Koltuk https://www.dogtas.com/hilda-kose-koltuk-kadife-dokulu-krem 3 sa. önce paylaşıldı

Xiaomi Mi TV Stick 1080p Dolby DTS Chromecast Android TV Medya Oynatıcı : Amazon.com.tr https://www.amazon.com.tr/dp/B08B8F63XP?ref=cm_sw_r_cso_cp_apin_dp_SY933NVCPVKCB691SRBG&ref_=cm_sw_r_cso_cp_apin_dp_SY933NVCPVKCB691SRBG&social_share=cm_sw_r_cso_cp_apin_dp_SY933NVCPVKCB691SRBG&previewDoh=1 2 sa. önce paylaşıldı

DOCKERS 237015N 4PR Erkek CASUAL COMFORT, KUM, 40 : Amazon.com.tr: Moda https://www.amazon.com.tr/dp/B0DDXCVB8S 4 sa. önce paylaşıldı

{{Title}} {{Description}} {{Price}} {{PriceUnit}} {{DiscountInformation}}

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir - 2 Masaüstü

5 sn

1
Cevap

0
Favori

424
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konudaki Resimler

Mesaj Tarihine Göre En Beğenilen Son Ekleneneler

Seçimimi Hatırla

Mesaj Tarihine Göre

Mesaj Tarihine Göre
En Beğenilenler
Son Eklenenler

Konuya Özel

Favorilerime Ekle
Konuyu Açandan
Popüler Mesajlar
Linkli Mesajlar
Yazdır
E-Posta Aboneliği
Konuyu Gizle

0 oy

Öne Çıkar

x İlgini çekti mi?
Öne çıkar, anasayfada
daha üstte görünsün.
Daha Fazla Bilgi

Cevapla

Tüm Forumlar >> Web Tasarım - Programlama >> Yazılım Geliştirme >> Delphi / C++ /Vb >> visual basic'te yardım edebilir misiniz? | DonanımHaber Forum

Sayfa: 1

Giriş

Mesaj

cag3003

Teğmen

162 Mesaj

"teğmen": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

14 Şubat 2006 16:35:59 Konu Sahibi

Mesaj Linkini Kopyala
Şikayet

bi proje üzerinde çalışıyorumda şunları tam anlamadım

rnd -1
randomize .......... bundan sonra bir long tipinde değişken kullanılmış

anlayan varsa bir bakabilir mi?

buda verilen bir paroladan bir rakam elde ediyor ama shift'teki 7,13 veya moddaki 19,23 ün bi anlamı var mı ?

Public Function parolacevir(ByVal parola As String) As Long
'Verdiğiniz paroladan bir rakam yapar
'bu rakamda kodlamada kullanılıyor.

Dim sonuc As Long
Dim ch As Long
Dim shift1 As Long
Dim shift2 As Long
Dim i As Integer
Dim parolauzunlugu As Integer

shift1 = 3
shift2 = 17

parolauzunlugu = Len(parola)
For i = 1 To parolauzunlugu

ch = Asc(Mid$(parola, i, 1))
sonuc = sonuc Xor (ch * 2 ^ shift1)
sonuc = sonuc Xor (ch * 2 ^ shift2)

shift1 = (shift1 + 7) Mod 19
shift2 = (shift2 + 13) Mod 23

Next i
parolacevir = sonuc

End Function